summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/trace.test25
2 files changed, 18 insertions, 12 deletions
diff --git a/ChangeLog b/ChangeLog
index 2bb3b88..c7eee11 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-24 Vince Darley <vincentdarley@users.sourceforge.net>
+
+ * trace.test: removed 'knownBug' from a test which doesn't
+ illustrate a bug, just a bad test.
+
2003-09-23 Miguel Sofer <msofer@users.sf.net>
* generic/tclExecute.c:
diff --git a/tests/trace.test b/tests/trace.test
index f1556fa..ed7eca9 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.30 2003/09/24 02:07:52 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.31 2003/09/24 12:56:17 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1982,9 +1982,10 @@ foo {if {[catch {bar}]} {
}} 2 error leavestep
foo foo 0 error leave}}
-test trace-28.4 {exec traces in slave with 'return -code error'} {knownBug} {
+test trace-28.4 {exec traces in slave with 'return -code error'} {
interp create slave
interp alias slave traceExecute {} traceExecute
+ set info {}
set res [interp eval slave {
set info {}
set res {}
@@ -2011,16 +2012,16 @@ test trace-28.4 {exec traces in slave with 'return -code error'} {knownBug} {
trace remove execution foo {enter enterstep leave leavestep} \
[list traceExecute foo]
- list $res [join $info \n]
+ list $res
}]
interp delete slave
- set res
+ lappend res [join $info \n]
} {{error error} {foo foo enter
foo {if {[catch {bar}]} {
- return "error"
- } else {
- return "ok"
- }} enterstep
+ return "error"
+ } else {
+ return "ok"
+ }} enterstep
foo {catch bar} enterstep
foo bar enterstep
foo {return -code error msg} enterstep
@@ -2030,10 +2031,10 @@ foo {catch bar} 0 1 leavestep
foo {return error} enterstep
foo {return error} 2 error leavestep
foo {if {[catch {bar}]} {
- return "error"
- } else {
- return "ok"
- }} 2 error leavestep
+ return "error"
+ } else {
+ return "ok"
+ }} 2 error leavestep
foo foo 0 error leave}}
test trace-28.5 {exec traces} {