diff options
| author | dgp <dgp@noemail.net> | 2004-07-28 16:28:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2004-07-28 16:28:16 (GMT) |
| commit | 171616b9de277e4739cc5bf9a6c8ef0f219fbebb (patch) | |
| tree | 90263c7d5bdfa6ef8d24ac4aad5388f53a00e849 /tests/basic.test | |
| parent | d11105ec56b57747e25fb17a1f0f30b75cf2ead4 (diff) | |
| download | tcl-171616b9de277e4739cc5bf9a6c8ef0f219fbebb.zip tcl-171616b9de277e4739cc5bf9a6c8ef0f219fbebb.tar.gz tcl-171616b9de277e4739cc5bf9a6c8ef0f219fbebb.tar.bz2 | |
* generic/tclMain.c (Tcl_Main, StdinProc): Append newline only
* tests/basic.test (basic-46.1): to incomplete scripts
as part of multi-line script construction. Do not add an extra
trailing newline to the complete script. [Bug 833150]
FossilOrigin-Name: f78f682cf1f1869192c0fe9a326365096ca9c53f
Diffstat (limited to 'tests/basic.test')
| -rw-r--r-- | tests/basic.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/basic.test b/tests/basic.test index cc35cbe..39c9f67 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -15,7 +15,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: basic.test,v 1.25.2.3 2004/03/01 17:33:22 dgp Exp $ +# RCS: @(#) $Id: basic.test,v 1.25.2.4 2004/07/28 16:28:21 dgp Exp $ # package require tcltest 2 @@ -584,8 +584,7 @@ test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {stdio} { list $res $msg } {1 {invoked "continue" outside of a loop while executing -"continue -" +"continue" DONE }} |