diff options
author | Alistair Delva <adelva@google.com> | 2024-04-10 14:15:29 -0700 |
---|---|---|
committer | Alistair Delva <adelva@google.com> | 2024-04-11 12:58:28 -0700 |
commit | d0f0f90be16c2ac553b5fa08512045273135147a (patch) | |
tree | 5d9ebb7a04807ea8a609ddd18b0162bc87530e4b /Examples/test-suite/tcl/imports_runme.tcl | |
parent | 6ffc1dbf29ba98c4d8aa71ebc9b484e973fe1030 (diff) | |
download | swig-master.tar.gz |
Update to v4.2.1HEADmastermainllvm-r522817
Change-Id: I47cef2be94299220d80265d949a95b58eee2c23b
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 } |