* generic/tclCmdMZ.c (TclProcessReturn): Support the -errorline

        * generic/tclCompile.c (TclCompileScript):      option to [return].
        * tests/compile.test (16.23.*): Use that capability to defer reporting
        * tests/misc.test (1.2):        of parse errors until runtime.
        Updated tests to reflect change. [Bug 1032805]

1 files changed, 14 insertions, 1 deletions

diff --git a/tests/compile.test b/tests/compile.test
index c4eb685..6976b5b 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.31 2004/08/02 15:33:36 dgp Exp $
+# RCS: @(#) $Id: compile.test,v 1.32 2004/09/22 22:23:40 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -570,6 +570,19 @@ test compile-16.22.$noComp {
     rename ReturnResults {}
 } -returnCodes ok -result [string trim [string repeat {x } 260]]
 
+test compile-16.23.$noComp {
+    Bug 1032805: defer parse error until run time
+} -body {
+    namespace eval x {
+	run {
+	    proc if {a b} {uplevel 1 [list set $a $b]}
+	    if 1 {syntax {}{}}
+	}
+    }
+} -cleanup {
+    namespace delete x
+} -returnCodes ok -result {syntax {}{}}
+
 }	;# End of noComp loop
 
 # cleanup