diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-05-05 15:32:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-05-05 15:32:17 (GMT) |
| commit | 96349207cbe89f0e0d78bd3dff7a294bcc588c84 (patch) | |
| tree | 6b13f676396eac36308dfc4b9dd0d1e7b714d1f1 /tests | |
| parent | 8f1d72dfe0e08b09f9985440a5e4f682804224ed (diff) | |
| download | tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.zip tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.tar.gz tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.tar.bz2 | |
* generic/tclCompCmds.c: Replaced all instance of
* generic/tclCompile.c: TCL_OUT_LINE_COMPILE with TCL_ERROR.
* generic/tclInt.h: Now that we've eradicated the mistaken
* tests/appendComp.test: notion of a "compile-time error", we
can use the TCL_ERROR return code to signal any failure to produce
bytecode.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/appendComp.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/appendComp.test b/tests/appendComp.test index 4f4cb8b..a9b5713 100644 --- a/tests/appendComp.test +++ b/tests/appendComp.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: appendComp.test,v 1.7 2004/09/22 03:19:52 dgp Exp $ +# RCS: @(#) $Id: appendComp.test,v 1.8 2005/05/05 15:32:20 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -351,7 +351,7 @@ 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 { +test appendComp-8.1 {defer error to runtime} -setup { interp create slave } -body { slave eval { |