diff options
Diffstat (limited to 'contrib/tcl/tests/misc.test')
-rw-r--r-- | contrib/tcl/tests/misc.test | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/contrib/tcl/tests/misc.test b/contrib/tcl/tests/misc.test new file mode 100644 index 0000000..b53759d --- /dev/null +++ b/contrib/tcl/tests/misc.test @@ -0,0 +1,70 @@ +# Commands covered: various +# +# This file contains a collection of miscellaneous Tcl tests that +# don't fit naturally in any of the other test files. Many of these +# tests are pathological cases that caused bugs in earlier Tcl +# releases. +# +# Copyright (c) 1992-1993 The Regents of the University of California. +# Copyright (c) 1994 Sun Microsystems, Inc. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# SCCS: @(#) misc.test 1.5 96/02/16 08:56:18 + +if {[string compare test [info procs test]] == 1} then {source defs} + +test misc-1.1 {error in variable ref. in command in array reference} { + proc tstProc {} { + global a + + set tst $a([winfo name $zz]) + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + } + set msg {} + list [catch tstProc msg] $msg +} {1 {can't read "zz": no such variable}} +test misc-1.2 {error in variable ref. in command in array reference} { + proc tstProc {} " + global a + + set tst \$a(\[winfo name \$\{zz) + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + " + set msg {} + list [catch tstProc msg] $msg $errorInfo +} [list 1 {missing close-brace for variable name} \ +[format {missing close-brace for variable name + while executing +"winfo name $%szz) + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus commen ..." + (parsing index for array "a") + invoked from within +"set tst $a([winfo name $%szz) + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a bogus comment + # this is a ..." + (procedure "tstProc" line 4) + invoked from within +"tstProc"} \{ \{]] |