diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-06-04 21:57:24 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-06-04 21:57:24 +1000 |
commit | ca9506bfcc6143a617b1b4579e0b304a3bbf00f4 (patch) | |
tree | 7f078bef5c5c64134d9f83e59a3e811646b312a1 | |
parent | fc72b733f10eee9f1155fe34bb265d70ce567ec4 (diff) | |
download | jimtcl-ca9506bfcc6143a617b1b4579e0b304a3bbf00f4.zip jimtcl-ca9506bfcc6143a617b1b4579e0b304a3bbf00f4.tar.gz jimtcl-ca9506bfcc6143a617b1b4579e0b304a3bbf00f4.tar.bz2 |
Make test error easier to read
Add a blank line after each error
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/testing.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 87d54ef..ccebc70 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -183,6 +183,7 @@ proc test {id descr args} { } puts "Expected: '$expected'" puts "Got : '$result'" + puts "" incr ::testinfo(numfail) lappend ::testinfo(failed) [list $id $descr $source $expected $result] } |