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 | 74f3e06000185be17eeba1ab61cf2f5a0b111424 (patch) | |
| tree | 7ddd3ac3bd4d9125f2a44ce67d4d5bb7a4540013 /tests/load.test | |
| parent | f4c238d6a753ff06727422c124d8f1b9fee490c6 (diff) | |
| download | tcl-74f3e06000185be17eeba1ab61cf2f5a0b111424.zip tcl-74f3e06000185be17eeba1ab61cf2f5a0b111424.tar.gz tcl-74f3e06000185be17eeba1ab61cf2f5a0b111424.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 |