diff options
Diffstat (limited to 'tests/misc.test')
| -rw-r--r-- | tests/misc.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/misc.test b/tests/misc.test index d4ece74..fe19ebe 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -17,9 +17,6 @@ if {[lsearch [namespace children] ::tcltest] == -1} { namespace import -force ::tcltest::* } -::tcltest::loadTestedCommands -catch [list package require -exact Tcltest [info patchlevel]] - testConstraint testhashsystemhash [llength [info commands testhashsystemhash]] test misc-1.1 {error in variable ref. in command in array reference} { @@ -59,7 +56,12 @@ test misc-1.2 {error in variable ref. in command in array reference} { missing close-brace for variable name missing close-brace for variable name while executing -"set tst $a([winfo name $\{" +"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 ..." (procedure "tstProc" line 4) invoked from within "tstProc"}] |