diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-08-01 18:04:08 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-08-03 09:07:17 +1000 |
commit | 00c8f8991c6dd72baa3a281db0631a8268086f2a (patch) | |
tree | 0e1f34fac10634cf1ed6bf800cf50639982b5840 /tests | |
parent | 03a04d4ce5959ae1881088cc7c67179bb49554ef (diff) | |
download | jimtcl-00c8f8991c6dd72baa3a281db0631a8268086f2a.zip jimtcl-00c8f8991c6dd72baa3a281db0631a8268086f2a.tar.gz jimtcl-00c8f8991c6dd72baa3a281db0631a8268086f2a.tar.bz2 |
Error on extra characters after close brace
In scripts, like Tcl does.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Reported-by: tcler.yin
Diffstat (limited to 'tests')
-rw-r--r-- | tests/misc.test | 2 | ||||
-rw-r--r-- | tests/subst.test | 7 |
2 files changed, 6 insertions, 3 deletions
diff --git a/tests/misc.test b/tests/misc.test index 29bd977..0ff2a7a 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -485,7 +485,7 @@ test jimexpr-2.6 "exit in expression" { } else { set x 3 } - }] + } } 6 # This one is for test coverage of an unusual case diff --git a/tests/subst.test b/tests/subst.test index 353af5f..5128a99 100644 --- a/tests/subst.test +++ b/tests/subst.test @@ -142,10 +142,13 @@ test subst-10.2 {break in a subst} { test subst-10.3 {break in a subst} { subst {foo [if 1 { break; bogus code}] bar} } {foo } -test subst-10.4 {break in a subst, parse error} { + +# Note that unlike Tcl, Jim throws an error for these two before +# evaluating +test subst-10.4 {break in a subst, parse error} tcl { subst {foo [break ; set a {}{} ; stuff] bar} } {foo } -test subst-10.5 {break in a subst, parse error} { +test subst-10.5 {break in a subst, parse error} tcl { subst {foo [break ;set bar baz ;set a {}{} ; stuff] bar} } {foo } |