diff options
author | dgp <dgp@users.sourceforge.net> | 2012-08-08 20:30:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-08-08 20:30:37 (GMT) |
commit | 23754cbbc81ac0eda71610fe3737a8bc8ae31c65 (patch) | |
tree | a6fadf3d6bc55a704065f4543ea894d5ebddfe46 /tests/load.test | |
parent | ff0e2463cb108f9b0481ac516251142506818114 (diff) | |
parent | 7ce9d6f8fc9b0c2b4fd1a18a85c54bb37387dda0 (diff) | |
download | tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.zip tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.tar.gz tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/load.test')
-rw-r--r-- | tests/load.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/load.test b/tests/load.test index b7c1a59..78bf64c 100644 --- a/tests/load.test +++ b/tests/load.test @@ -15,6 +15,9 @@ if {[lsearch [namespace children] ::tcltest] == -1} { namespace import -force ::tcltest::* } +::tcltest::loadTestedCommands +catch [list package require -exact Tcltest [info patchlevel]] + # Figure out what extension is used for shared libraries on this # platform. if {![info exists ext]} { @@ -197,7 +200,7 @@ test load-9.1 {Tcl_StaticPackage, load already-loaded package into another inter [child1 eval { info loaded {} }] \ [child2 eval { info loaded {} }] } \ - -result {{{{} Loadninepointone} {{} Tcltest}} {{{} Loadninepointone} {{} Tcltest}}} \ + -match glob -result {{{{} Loadninepointone} {* Tcltest}} {{{} Loadninepointone} {* Tcltest}}} \ -cleanup { interp delete child1 ; interp delete child2 } test load-10.1 {load from vfs} \ |