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/trace.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/trace.test')
| -rw-r--r-- | tests/trace.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/trace.test b/tests/trace.test index b4d02d3..3a80f08 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) trace.test 1.27 97/07/23 17:08:38 +# SCCS: @(#) trace.test 1.29 97/12/08 15:04:36 if {[string compare test [info procs test]] == 1} then {source defs} @@ -610,10 +610,10 @@ test trace-12.1 {delete one trace from another} { test trace-13.1 {trace command (overall)} { list [catch {trace} msg] $msg -} {1 {too few args: should be "trace option [arg arg ...]"}} +} {1 {wrong # args: should be "trace option [arg arg ...]"}} test trace-13.2 {trace command (overall)} { list [catch {trace gorp} msg] $msg -} {1 {bad option "gorp": should be variable, vdelete, or vinfo}} +} {1 {bad option "gorp": must be variable, vdelete, or vinfo}} test trace-13.3 {trace command ("variable" option)} { list [catch {trace variable x y} msg] $msg } {1 {wrong # args: should be "trace variable name ops command"}} @@ -963,4 +963,4 @@ test trace-17.1 {unset traces on procedure returns} { catch {unset x} catch {unset y} -concat {} +return |