diff options
author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/incr-old.test | |
parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/incr-old.test')
-rw-r--r-- | tests/incr-old.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/incr-old.test b/tests/incr-old.test index 8fbd89f..710896c 100644 --- a/tests/incr-old.test +++ b/tests/incr-old.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) incr-old.test 1.11 96/11/19 16:56:23 +# SCCS: @(#) incr-old.test 1.12 97/12/08 15:06:10 if {[string compare test [info procs test]] == 1} then {source defs} @@ -86,4 +86,4 @@ test incr-old-2.10 {incr errors} { list [catch {incr x 1} msg] $msg } {1 {expected integer but got "20 x"}} -concat {} +return |