* generic/tclCompCmds.c: Tolerate [append] syntax errors

        * tests/appendComp.test (8.1):  at compile time, and allow runtime
        to raise the error (or succeed if a redefined [append] allows).


FossilOrigin-Name: 03e134c9ceb1143afcb9aa17e75e3f0d7764d8b9

1 files changed, 16 insertions, 2 deletions

diff --git a/tests/appendComp.test b/tests/appendComp.test
index 9eaff48..4f4cb8b 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.test
@@ -11,10 +11,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: appendComp.test,v 1.6 2004/05/25 15:33:28 dkf Exp $
+# RCS: @(#) $Id: appendComp.test,v 1.7 2004/09/22 03:19:52 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 catch {unset x}
@@ -351,6 +351,20 @@ test appendComp-7.9 {append var does not trigger read trace} {
     bar
 } {0}
 
+test appendComp-8.1 {TCL_OUT_LINE_COMPILE, not TCL_ERROR} -setup {
+    interp create slave
+} -body {
+    slave eval {
+	proc foo {} {
+	    proc append args {}
+	    append
+	}
+	foo
+    }
+} -cleanup {
+    interp delete slave
+} -result {}
+
 catch {unset i x result y}
 catch {rename foo ""}
 catch {rename bar ""}