From d0f0f90be16c2ac553b5fa08512045273135147a Mon Sep 17 00:00:00 2001 From: Alistair Delva Date: Wed, 10 Apr 2024 14:15:29 -0700 Subject: Update to v4.2.1 Change-Id: I47cef2be94299220d80265d949a95b58eee2c23b --- Examples/test-suite/tcl/imports_runme.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Examples/test-suite/tcl/imports_runme.tcl') 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 } -- cgit v1.2.3