| ︙ | | | ︙ | |
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
|
safe::interpDelete $i
} -match glob -result "{\$p(:1:)} {\$p(:2:)} 1 {* not found in access path}\
1 {* not found in access path} 1 {*} 1 {*}\
{-accessPath {[list $tcl_library $TestsDir/auto0/auto1 $TestsDir/auto0/auto2]*}\
-statics 1 -nested 0 -deleteHook {}}\
{-accessPath {[list $tcl_library]*} -statics 1 -nested 0 -deleteHook {}}"
test safe-9.20 {check module loading} -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
|
|
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
|
safe::interpDelete $i
} -match glob -result "{\$p(:1:)} {\$p(:2:)} 1 {* not found in access path}\
1 {* not found in access path} 1 {*} 1 {*}\
{-accessPath {[list $tcl_library $TestsDir/auto0/auto1 $TestsDir/auto0/auto2]*}\
-statics 1 -nested 0 -deleteHook {}}\
{-accessPath {[list $tcl_library]*} -statics 1 -nested 0 -deleteHook {}}"
test safe-9.20 {check module loading} -constraints nonPortable -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
| ︙ | | | ︙ | |
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
|
0 0.5 0 1.0 0 2.0 --\
{-accessPath {[list $tcl_library $TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]*}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.21 {interpConfigure change the access path; check module loading; stale data case 1} -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
|
|
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
|
0 0.5 0 1.0 0 2.0 --\
{-accessPath {[list $tcl_library $TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]*}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.21 {interpConfigure change the access path; check module loading; stale data case 1} -constraints nonPortable -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
| ︙ | | | ︙ | |
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.22 {interpConfigure change the access path; check module loading; stale data case 0} -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
|
|
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.22 {interpConfigure change the access path; check module loading; stale data case 0} -constraints nonPortable -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
| ︙ | | | ︙ | |
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.23 {interpConfigure change the access path; check module loading; stale data case 3} -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
|
|
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.23 {interpConfigure change the access path; check module loading; stale data case 3} -constraints nonPortable -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
| ︙ | | | ︙ | |
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.24 {interpConfigure change the access path; check module loading; stale data case 2 (worst case)} -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
|
|
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
|
$TestsDir/auto0/auto2 \
$TestsDir/auto0/modules \
$TestsDir/auto0/modules/mod1 \
$TestsDir/auto0/modules/mod2]}\
-statics 1 -nested 0 -deleteHook {}} --\
res0 res1 res2"
test safe-9.24 {interpConfigure change the access path; check module loading; stale data case 2 (worst case)} -constraints nonPortable -setup {
set oldTm [tcl::tm::path list]
foreach path $oldTm {
tcl::tm::path remove $path
}
tcl::tm::path add [file join $TestsDir auto0 modules]
} -body {
set i [safe::interpCreate -accessPath [list $tcl_library]]
|
| ︙ | | | ︙ | |