diff options
Diffstat (limited to 'Examples/test-suite/tcl/imports_runme.tcl')
-rw-r--r-- | Examples/test-suite/tcl/imports_runme.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Examples/test-suite/tcl/imports_runme.tcl b/Examples/test-suite/tcl/imports_runme.tcl index 6b2e77bde..cd5629cf6 100644 --- a/Examples/test-suite/tcl/imports_runme.tcl +++ b/Examples/test-suite/tcl/imports_runme.tcl @@ -1,11 +1,11 @@ # This is the imports runtime testcase. proc import {} { - if [ catch { load ./imports_b[info sharedlibextension] imports_b} err_msg ] { + if [ catch { load ./imports_b[info sharedlibextension] Imports_b} err_msg ] { puts stderr "Could not load shared object:\n$err_msg" exit 1 } - if [ catch { load ./imports_a[info sharedlibextension] imports_a} err_msg ] { + if [ catch { load ./imports_a[info sharedlibextension] Imports_a} err_msg ] { puts stderr "Could not load shared object:\n$err_msg" exit 1 } @@ -15,8 +15,8 @@ import set x [new_B] A_hello $x -if [ catch { $x nonexistant } ] { +if [ catch { $x nonexistent } ] { } else { - puts stderr "nonexistant method did not throw exception\n" + puts stderr "nonexistent method did not throw exception\n" exit 1 } |