aboutsummaryrefslogtreecommitdiff
path: root/tests/expr-new.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-10-30 15:21:21 +1000
committerSteve Bennett <steveb@workware.net.au>2010-11-22 13:27:14 +1000
commit192056900583884bc1f07f371df6478d856ada3b (patch)
tree540618a3e81d8d9e14261e267edb912f5b73710a /tests/expr-new.test
parentd98489727fe31fa217d237b36901211adc35282d (diff)
downloadjimtcl-192056900583884bc1f07f371df6478d856ada3b.zip
jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.gz
jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.bz2
Overhaul unit test framework
Much closer to tcltest now, including constraints. Try to get all appropriate tests running under both Jim and Tcl. Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/expr-new.test')
-rw-r--r--tests/expr-new.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/expr-new.test b/tests/expr-new.test
index c6da9fc..1130eb1 100644
--- a/tests/expr-new.test
+++ b/tests/expr-new.test
@@ -12,7 +12,7 @@
#
# RCS: @(#) $Id: expr.test,v 1.9 2000/04/10 17:18:59 ericm Exp $
-source testing.tcl
+source [file dirname [info script]]/testing.tcl
# procedures used below
@@ -271,11 +271,11 @@ test expr-9.4 {CompileRelationalExpr: just shift expr} {expr {1<<3}} 8
# architectures because LONG_MIN is different
if {0x80000000 > 0} {
- test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN} {
+ test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN (64bit)} jim {
expr {1<<63}
} -9223372036854775808
} else {
- test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN} {
+ test expr-9.5 {CompileRelationalExpr: shift expr producing LONG_MIN (32bit)} jim {
expr {1<<31}
} -2147483648
}