1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#%Module
if {[info exists env(TESTSUITE_SOURCE_CACHE)]} {
switch -- $env(TESTSUITE_SOURCE_CACHE) {
rc1 {
proc proc_pre {args} {
return "bar[concat $args]"
}
puts [info script]
source [file dirname $ModulesCurrentModulefile]/source_file
module-alias source/[proc_from] source/1.0
puts [info script]
}
err_rc1 {
source [file dirname $ModulesCurrentModulefile]/source_file
module-alias source/bar source/1.0
}
unk_rc1 {
source ../path/to/unk
module-alias source/bar source/1.0
}
}
}
|
