TIP#102 implementation: 'trace list' becomes 'trace info'

1 files changed, 27 insertions, 27 deletions

diff --git a/tests/trace.test b/tests/trace.test
index 81aa82e..bc67464 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: trace.test,v 1.17 2002/03/29 22:47:22 hobbs Exp $
+# RCS: @(#) $Id: trace.test,v 1.18 2002/06/14 13:17:17 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -352,7 +352,7 @@ test trace-5.3 {array traces do not outlive variable} {
 test trace-5.4 {array traces properly listed in trace information} {
     catch {unset x}
     trace add variable x array traceArray2
-    set result [trace list variable x]
+    set result [trace info variable x]
     set result
 } [list [list array traceArray2]]
 test trace-5.5 {array traces properly listed in trace information} {
@@ -564,7 +564,7 @@ test trace-9.3 {be sure traces are cleared before unset trace called} {
     catch {unset x}
     set x 33
     set info {}
-    trace add variable x unset {traceCheck {uplevel trace list variable x}}
+    trace add variable x unset {traceCheck {uplevel trace info variable x}}
     unset x
     set info
 } {0 {}}
@@ -574,7 +574,7 @@ test trace-9.4 {set new trace during unset trace} {
     set info {}
     trace add variable x unset {traceCheck {global x; trace add variable x unset traceProc}}
     unset x
-    concat $info [trace list variable x]
+    concat $info [trace info variable x]
 } {0 {} {unset traceProc}}
 
 test trace-10.1 {make sure array elements are unset before traces are called} {
@@ -597,7 +597,7 @@ test trace-10.3 {array elements are unset before traces are called} {
     catch {unset x}
     set x(0) 33
     set info {}
-    trace add variable x(0) unset {traceCheck {global x; trace list variable x(0)}}
+    trace add variable x(0) unset {traceCheck {global x; trace info variable x(0)}}
     unset x(0)
     set info
 } {0 {}}
@@ -607,7 +607,7 @@ test trace-10.4 {set new array element trace during unset trace} {
     set info {}
     trace add variable x(0) unset {traceCheck {uplevel {trace add variable x(0) read {}}}}
     catch {unset x(0)}
-    concat $info [trace list variable x(0)]
+    concat $info [trace info variable x(0)]
 } {0 {} {read {}}}
 
 test trace-11.1 {make sure arrays are unset before traces are called} {
@@ -638,7 +638,7 @@ test trace-11.4 {make sure arrays are unset before traces are called} {
     catch {unset x}
     set x(y) 33
     set info {}
-    set cmd {traceCheck {uplevel {trace list variable x}}}
+    set cmd {traceCheck {uplevel {trace info variable x}}}
     trace add variable x unset $cmd
     unset x
     set info
@@ -649,7 +649,7 @@ test trace-11.5 {set new array trace during unset trace} {
     set info {}
     trace add variable x unset {traceCheck {global x; trace add variable x read {}}}
     unset x
-    concat $info [trace list variable x]
+    concat $info [trace info variable x]
 } {0 {} {read {}}}
 test trace-11.6 {create scalar during array unset trace} {
     catch {unset x}
@@ -762,11 +762,11 @@ foreach type {variable command} {
 	} [list 1 "$start should be \"trace $op $type name opList command\""]
     }
     test trace-14.0.[incr i] "trace command, wrong # args errors" {
-	list [catch {trace list $type foo bar} msg] $msg
-    } [list 1 "$start should be \"trace list $type name\""]
+	list [catch {trace info $type foo bar} msg] $msg
+    } [list 1 "$start should be \"trace info $type name\""]
     test trace-14.0.[incr i] "trace command, wrong # args errors" {
-	list [catch {trace list $type} msg] $msg
-    } [list 1 "$start should be \"trace list $type name\""]
+	list [catch {trace info $type} msg] $msg
+    } [list 1 "$start should be \"trace info $type name\""]
 }
 
 test trace-14.1 "trace command, wrong # args errors" {
@@ -779,12 +779,12 @@ test trace-14.3 "trace command, wrong # args errors" {
     list [catch {trace remove} msg] $msg
 } [list 1 "wrong # args: should be \"trace remove type ?arg arg ...?\""]
 test trace-14.4 "trace command, wrong # args errors" {
-    list [catch {trace list} msg] $msg
-} [list 1 "wrong # args: should be \"trace list type ?arg arg ...?\""]
+    list [catch {trace info} msg] $msg
+} [list 1 "wrong # args: should be \"trace info type ?arg arg ...?\""]
 
 test trace-14.5 {trace command, invalid option} {
     list [catch {trace gorp} msg] $msg
-} [list 1 "bad option \"gorp\": must be add, list, remove, variable, vdelete, or vinfo"]
+} [list 1 "bad option \"gorp\": must be add, info, remove, variable, vdelete, or vinfo"]
 
 # Again, [trace ... command] and [trace ... variable] share syntax and
 # error message styles for their opList options; these loops test those 
@@ -868,26 +868,26 @@ test trace-14.15 {trace command ("list variable" option)} {
     trace add variable x write {traceTag 1}
     trace add variable x write traceProc
     trace add variable x write {traceTag 2}
-    trace list variable x
+    trace info variable x
 } {{write {traceTag 2}} {write traceProc} {write {traceTag 1}}}
 test trace-14.16 {trace command ("list variable" option)} {
     catch {unset x}
-    trace list variable x
+    trace info variable x
 } {}
 test trace-14.17 {trace command ("list variable" option)} {
     catch {unset x}
-    trace list variable x(0)
+    trace info variable x(0)
 } {}
 test trace-14.18 {trace command ("list variable" option)} {
     catch {unset x}
     set x 44
-    trace list variable x(0)
+    trace info variable x(0)
 } {}
 test trace-14.19 {trace command ("list variable" option)} {
     catch {unset x}
     set x 44
     trace add variable x write {traceTag 1}
-    proc check {} {global x; trace list variable x}
+    proc check {} {global x; trace info variable x}
     check
 } {{write {traceTag 1}}}
 
@@ -1124,7 +1124,7 @@ test trace-17.2 {traced variables must survive procedure exits} {
     catch {unset x}
     proc p1 {} {global x; trace add variable x write traceProc}
     p1
-    trace list variable x
+    trace info variable x
 } {{write traceProc}}
 test trace-17.3 {traced variables must survive procedure exits} {
     catch {unset x}
@@ -1191,7 +1191,7 @@ test trace-19.2 {traces stick with renamed commands} {
 test trace-19.2.1 {trace add command rename trace exists} {
     proc foo {} {}
     trace add command foo rename traceCommand
-    trace list command foo
+    trace info command foo
 } {{rename traceCommand}}
 test trace-19.3 {command rename traces don't fire on command deletion} {
     proc foo {} {}
@@ -1212,7 +1212,7 @@ test trace-19.5 {trace add command deleted removes traces} {
     proc foo {} {}
     trace add command foo rename traceCommand
     proc foo {} {}
-    trace list command foo
+    trace info command foo
 } {}
 
 namespace eval tc {}
@@ -1262,7 +1262,7 @@ test trace-20.2 {trace add command delete doesn't trace recreated commands} {
 test trace-20.2.1 {trace add command delete trace info} {
     proc foo {} {}
     trace add command foo delete traceCommand
-    trace list command foo
+    trace info command foo
 } {{delete traceCommand}}
 test trace-20.3 {trace add command implicit delete} {
     proc foo {} {}
@@ -1272,7 +1272,7 @@ test trace-20.3 {trace add command implicit delete} {
 } {foo {} delete}
 test trace-20.3.1 {trace add command delete trace info} {
     proc foo {} {}
-    trace list command foo
+    trace info command foo
 } {}
 test trace-20.4 {trace add command rename followed by delete} {
     set infotemp {}
@@ -1337,7 +1337,7 @@ test trace-20.7 {trace add command delete in subinterp while being deleted} {
 } {}
 
 proc traceDelete {cmd old new op} {
-    eval trace remove command $cmd [lindex [trace list command $cmd] 0]
+    eval trace remove command $cmd [lindex [trace info command $cmd] 0]
     global info
     set info [list $old $new $op]
 }
@@ -1353,7 +1353,7 @@ test trace-20.8 {trace delete while trace is active} {
     catch {rename bar {}}
     trace add command foo {rename delete} [list traceDelete foo]
     rename foo bar
-    list [set info] [trace list command bar]
+    list [set info] [trace info command bar]
 } {{foo bar rename} {}}
 
 test trace-20.9 {rename trace deletes command} {