summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-10 14:13:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-10 14:13:51 (GMT)
commit43a91548b31101b95bc2b2e29ada872bb3d9590e (patch)
tree7ddd3ac3bd4d9125f2a44ce67d4d5bb7a4540013 /tests
parentb01e1efe400bfde2a54d1fcc2e40b804b8b1b3ea (diff)
downloadtcl-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')
-rw-r--r--tests/load.test6
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