diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 11:43:28 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:42 +1000 |
commit | c4ab1843c767455c7b8032b04a52d103c09d19b3 (patch) | |
tree | ee4853a7c2f6f8f9abfbff850844aba0fb5880cc /tests/testing.tcl | |
parent | c5d20eba3b1082c8f50f6209980e2b22ad94281f (diff) | |
download | jimtcl-c4ab1843c767455c7b8032b04a52d103c09d19b3.zip jimtcl-c4ab1843c767455c7b8032b04a52d103c09d19b3.tar.gz jimtcl-c4ab1843c767455c7b8032b04a52d103c09d19b3.tar.bz2 |
Improvements to 'scan'
Use libc strtoull() for long long conversions
Also some white space cleanup
Also remove some win32 vestiges
Also improve error messages for array access errors
Diffstat (limited to 'tests/testing.tcl')
-rw-r--r-- | tests/testing.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 4956450..f3cf672 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -31,7 +31,7 @@ proc test {id descr script expected} { } else { puts "ERR $descr" puts "Expected: '$expected'" - puts "Got : '$result'" + puts "Got : '$result'" incr ::testresults(numfail) lappend ::testresults(failed) [list $id $descr $script $expected $result] } |