diff options
author | dgp <dgp@noemail.net> | 2002-09-22 18:19:24 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-09-22 18:19:24 (GMT) |
commit | 977aa9d984cd03ab9760ee719a86c9d4cbdb72d7 (patch) | |
tree | a417f0dce5b7aa8e5410a3c69bf2ff11f446a798 /tests/tcltest.test | |
parent | d7a29504be67208a0afc05b302f767ef96bbea43 (diff) | |
download | tcl-977aa9d984cd03ab9760ee719a86c9d4cbdb72d7.zip tcl-977aa9d984cd03ab9760ee719a86c9d4cbdb72d7.tar.gz tcl-977aa9d984cd03ab9760ee719a86c9d4cbdb72d7.tar.bz2 |
* library/tcltest/tcltest.tcl: Corrected [puts -nonewline] within
test bodies. Thanks to Harald Kirsch. [Bug 612786, Patch 612788]
Also corrected reporting of body return code. Thanks to David
Taback [Bug 611922]
* library/tcltest/pkgIndex.tcl: Bump to version 2.2.1.
* tests/tcltest.test: added tests for these bugs.
FossilOrigin-Name: 1a5e5bd20ec9e764f33922e7fdc5c570734b037d
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index dd03458..0c0edbc 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.34 2002/09/06 15:10:32 rmax Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.35 2002/09/22 18:19:26 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -1686,6 +1686,22 @@ test tcltest-25.1 { unset foo } -result 0 +test tcltest-25.2 { + puts -nonewline (Bug 612786) +} -body { + puts -nonewline stdout bla + puts -nonewline stdout bla +} -output {blabla} + +test tcltest-25.3 { + reported return code (Bug 611922) +} -body { + # Buggy tcltest will generate result of 2 + test tcltest-25.3.0 {} -body { + error foo + } +} -match glob -output {*generated error; Return code was: 1*} + cleanupTests } |