diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 10:53:36 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:39 +1000 |
commit | 6ef810ae664dccd457fe1ed750f7d509b6f60878 (patch) | |
tree | 13f3ab69416d1fc7f5d10db06c1bf83aa0153e4f /tests/expr.test | |
parent | a0017cc44c22a83df8f92600317ad8ccd635e2a1 (diff) | |
download | jimtcl-6ef810ae664dccd457fe1ed750f7d509b6f60878.zip jimtcl-6ef810ae664dccd457fe1ed750f7d509b6f60878.tar.gz jimtcl-6ef810ae664dccd457fe1ed750f7d509b6f60878.tar.bz2 |
Bugs, features and tests
source fails with zero length file
unknown can't be called recursively
*: This can be useful when using unknown to dynamically load code,
which may in turn want to dynamically load code
*: Limit it to 50 recursions though
Allow string greater/less comparison
*: Comparing two strings for order did not work
Implement file join
*: It's not to hard and is handy when working with the current dir, ""
Don't omit [unknown] completely from stack trace
*: Since we lose valuable informtion, just omit the name
Fix return from case
Turn regexp patterns into real objects
*: Thus caching the compiled regexps
Allow error to rethrow an error
Replace bcopy() with more standard memcpy()
Fixes to parray, improve errorInfo
*: errorInfo takes an optional stack trace
Add tests for rethrowing errors via errorInfo
Fix ndelay
*: Was looking at wrong param
*: Also fix usage/help for aio.socket
Package should be able to call exit
*: Currently any return from a package is changed to JIM_ERR
Line counting is incorrect for backlash newline
Diffstat (limited to 'tests/expr.test')
-rw-r--r-- | tests/expr.test | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/expr.test b/tests/expr.test new file mode 100644 index 0000000..99ef609 --- /dev/null +++ b/tests/expr.test @@ -0,0 +1,17 @@ +source testing.tcl + +section "String comparison" + +test expr-1.1 "Compare strings lt" { + expr {"V000500" < "V000405"} +} {0} + +test expr-1.2 "Compare strings with embedded nulls" { + set s1 [format abc%cdef 0] + set s2 [format abc%cghi 0] + expr {$s1 < $s2} +} {1} + +test expr-1.3 "Hex values" { + set mask1 [expr 0x4050 & 0x0CCC] +} {64} |