Improved messages produced on getting a syntax error in an expression

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/compile.test b/tests/compile.test
index 5e77875..72024b8 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.15 2001/11/23 01:25:58 das Exp $
+# RCS: @(#) $Id: compile.test,v 1.16 2001/12/04 15:36:29 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -230,11 +230,11 @@ test compile-11.6 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
 test compile-11.7 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     proc p {} { set r [list foobar] ; expr !a }
     list [catch {p} msg] $msg
-} {1 {syntax error in expression "!a"}}
+} {1 {syntax error in expression "!a": expected a parenthesis enclosing function arguments}}
 test compile-11.8 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     proc p {} { set r [list foobar] ; expr {!a} }
     list [catch {p} msg] $msg
-} {1 {syntax error in expression "!a"}}
+} {1 {syntax error in expression "!a": expected a parenthesis enclosing function arguments}}
 test compile-11.9 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     proc p {} { set r [list foobar] ; llength "\{" }
     list [catch {p} msg] $msg