summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-07-28 16:28:16 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-07-28 16:28:16 (GMT)
commit4e5f121eb24abae229a568bf40a5ff0ccd542571 (patch)
tree90263c7d5bdfa6ef8d24ac4aad5388f53a00e849 /tests
parentdd3a15f77204f9835c4d1e9aae10aa21b9e0d4ca (diff)
downloadtcl-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')
-rw-r--r--tests/basic.test5
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
}}