* tests/compile.test: Updated tests with changed behavior

        * tests/execute.test:   due to addition of bignums.
        * tests/expr-old.test:
        * tests/expr.test:
        * tests/parseExpr.test:
        * tests/platform.test:
        * tests/string.test:

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/compile.test b/tests/compile.test
index 2ef57a6..b518c37 100644
--- a/tests/compile.test
+++ b/tests/compile.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: compile.test,v 1.39 2005/10/21 20:44:17 dgp Exp $
+# RCS: @(#) $Id: compile.test,v 1.40 2005/11/09 20:24:10 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -253,10 +253,10 @@ test compile-11.5 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     proc p {} { set r [list foobar] ; incr foo }
     list [catch {p} msg] $msg
 } {1 {can't read "foo": no such variable}}
-test compile-11.6 {Tcl_Append*: ensure Tcl_ResetResult is used properly} knownBug {
+test compile-11.6 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     proc p {} { set r [list foobar] ; incr foo bogus }
     list [catch {p} msg] $msg
-} {1 {expected integer but got "bogus"}}
+} {1 {can't read "foo": no such variable}}
 test compile-11.7 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
     proc p {} { set r [list foobar] ; expr !a }
     list [catch {p} msg] $msg