diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-10 14:13:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-10 14:13:51 (GMT) |
| commit | 43a91548b31101b95bc2b2e29ada872bb3d9590e (patch) | |
| tree | 7ddd3ac3bd4d9125f2a44ce67d4d5bb7a4540013 /tests/load.test | |
| parent | b01e1efe400bfde2a54d1fcc2e40b804b8b1b3ea (diff) | |
| download | tcl-43a91548b31101b95bc2b2e29ada872bb3d9590e.zip tcl-43a91548b31101b95bc2b2e29ada872bb3d9590e.tar.gz tcl-43a91548b31101b95bc2b2e29ada872bb3d9590e.tar.bz2 | |
Fix for bug [f51efe99a7]: MinGW build fails on current checkin. And a new test-case which makes the problem visible on UNIX as well.
Diffstat (limited to 'tests/load.test')
| -rw-r--r-- | tests/load.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/load.test b/tests/load.test index cded85d..9536271 100644 --- a/tests/load.test +++ b/tests/load.test @@ -215,6 +215,12 @@ test load-10.1 {load from vfs} \ -body {list [catch {load simplefs:/pkgd$ext pkgd} msg] $msg} \ -result {0 {}} \ -cleanup {testsimplefilesystem 0; cd $dir; unset dir} + +test load-11.1 {Load TclOO extension using Stubs (Bug [f51efe99a7])} \ + [list $dll $loaded] { + load [file join $testDir pkgooa$ext] + list [pkgooa_stubsok] [lsort [info commands pkgooa_*]] +} {1 pkgooa_stubsok} # cleanup unset ext |