diff options
Diffstat (limited to 'Examples/test-suite/tcl/null_pointer_runme.tcl')
-rw-r--r-- | Examples/test-suite/tcl/null_pointer_runme.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Examples/test-suite/tcl/null_pointer_runme.tcl b/Examples/test-suite/tcl/null_pointer_runme.tcl index be99c7166..7ed87c153 100644 --- a/Examples/test-suite/tcl/null_pointer_runme.tcl +++ b/Examples/test-suite/tcl/null_pointer_runme.tcl @@ -3,7 +3,7 @@ if [ catch { load ./null_pointer[info sharedlibextension] null_pointer} err_msg } set a [A] -if {[func $a] != 0} { +if {[funk $a] != 0} { puts stderr "null_pointer test 1 failed" exit 1 } |