* 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]

2 files changed, 17 insertions, 4 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
diff --git a/tests/misc.test b/tests/misc.test
index 3bacade..c82944b 100644
--- a/tests/misc.test
+++ b/tests/misc.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: misc.test,v 1.9 2004/07/04 18:02:42 dkf Exp $
+# RCS: @(#) $Id: misc.test,v 1.10 2004/09/22 22:23:40 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -57,14 +57,14 @@ test misc-1.2 {error in variable ref. in command in array reference} {
 } [subst -novariables -nocommands {1
 missing close-brace for variable name
 missing close-brace for variable name
-    while compiling
+    while executing
 "set tst $a([winfo name $\{zz)
 	# this is a bogus comment
 	# this is a bogus comment
 	# this is a bogus comment
 	# this is a bogus comment
 	# this is a ..."
-    (compiling body of proc "tstProc", line 4)
+    (procedure "tstProc" line 4)
     invoked from within
 "tstProc"}]