diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-08-29 20:46:46 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-08-29 20:46:46 (GMT) |
| commit | 87e3efddb07fb90ce44be9869ca883a896f1b122 (patch) | |
| tree | cbc42734317c849661c57dd2aca2fa99e3e2a1c6 /tests/compile.test | |
| parent | b0b79251f620e43d32d7e401d2aa86689ba1fb0f (diff) | |
| download | tcl-87e3efddb07fb90ce44be9869ca883a896f1b122.zip tcl-87e3efddb07fb90ce44be9869ca883a896f1b122.tar.gz tcl-87e3efddb07fb90ce44be9869ca883a896f1b122.tar.bz2 | |
more variants in test (since 8.6 compiles "try" using evalStk instruction)
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test index c651804..ee95d25 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -488,12 +488,12 @@ test compile-13.2 {TclCompileScript: testing nested scripts compilation} -setup # Test different compilation variants (instructions evalStk, invokeStk, etc), # with 2000 nested scripts (bodies). If you get SO/SF exceptions on some low-stack # boxes or systems, please don't decrease it (either provide a constraint) - $i eval {foreach cmd {eval "if 1" catch} { + $i eval {foreach cmd {eval "if 1" try catch} { set c [gencode 2000 $cmd] if 1 $c }} $i eval {set result} -} -result {1 1 1} -cleanup { +} -result {1 1 1 1} -cleanup { interp delete $i } |