diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-07-28 16:28:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-07-28 16:28:16 (GMT) |
| commit | 4e5f121eb24abae229a568bf40a5ff0ccd542571 (patch) | |
| tree | 90263c7d5bdfa6ef8d24ac4aad5388f53a00e849 /tests/basic.test | |
| parent | dd3a15f77204f9835c4d1e9aae10aa21b9e0d4ca (diff) | |
| download | tcl-4e5f121eb24abae229a568bf40a5ff0ccd542571.zip tcl-4e5f121eb24abae229a568bf40a5ff0ccd542571.tar.gz tcl-4e5f121eb24abae229a568bf40a5ff0ccd542571.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]
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 }} |