diff options
author | Evan Hunter <evan@ozhiker.com> | 2016-10-09 18:15:18 +0100 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-10-11 08:33:24 +1000 |
commit | 3d31b6fe9b1144adaf9127ccde69cefa77316268 (patch) | |
tree | 5a6801614938eb611043c54f9f2f46018a4c5f6b /tests/expr-base.test | |
parent | 00fb0474d517db114375b5e979d7f8cbb8b71b57 (diff) | |
download | jimtcl-3d31b6fe9b1144adaf9127ccde69cefa77316268.zip jimtcl-3d31b6fe9b1144adaf9127ccde69cefa77316268.tar.gz jimtcl-3d31b6fe9b1144adaf9127ccde69cefa77316268.tar.bz2 |
Separate out Jim specific tests
Diffstat (limited to 'tests/expr-base.test')
-rw-r--r-- | tests/expr-base.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/expr-base.test b/tests/expr-base.test index 5c9e1da..27d583e 100644 --- a/tests/expr-base.test +++ b/tests/expr-base.test @@ -7,7 +7,6 @@ set good_testcases { 8 8 00 0 07 7 - 08 8 0x5 5 0x0 0 0x00 0 @@ -23,6 +22,11 @@ foreach {str exp} $good_testcases { test expr-base-1.[incr i] "expr conversion" [list expr [list $str]] $exp } +# JimTCL specifically does not adhere to the octal default for numbers starting with zero +test expr-base-2.1 {expr conversion jim specific} -constraints jim -body { + expr [list "08"] +} -result {8} + set bad_testcases { {0x + 1} x @@ -34,6 +38,6 @@ set bad_testcases { set i 0 foreach str $bad_testcases { - test expr-base-2.[incr i] "expr conversion failure" -returnCodes error -body [list expr $str] -match glob -result "*" + test expr-base-3.[incr i] "expr conversion failure" -returnCodes error -body [list expr $str] -match glob -result "*" } testreport |