diff options
| author | hobbs <hobbs@noemail.net> | 2000-05-11 00:16:51 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-05-11 00:16:51 (GMT) |
| commit | 3a7ad7cab756bf3e6ed216b1ea07afb6ccd728bb (patch) | |
| tree | bc3c22720f5fddd042f51e076a16faacb5a8aef3 /tests/source.test | |
| parent | be80d48a2f42e5417ad09815ff683990ae1ffbd4 (diff) | |
| download | tcl-3a7ad7cab756bf3e6ed216b1ea07afb6ccd728bb.zip tcl-3a7ad7cab756bf3e6ed216b1ea07afb6ccd728bb.tar.gz tcl-3a7ad7cab756bf3e6ed216b1ea07afb6ccd728bb.tar.bz2 | |
* doc/source.n:
* doc/Eval.3:
* tests/source.test:
* generic/tclIOUtil.c (Tcl_EvalFile): added explicit \32 (^Z)
eofchar (affects Tcl_EvalFile in C, "source" in Tcl). This was
implicit on Windows already, and is now cross-platform to allow
for scripted documents.
FossilOrigin-Name: 03cdfc3a8627067407a7e520e4a974a07976e0bc
Diffstat (limited to 'tests/source.test')
| -rw-r--r-- | tests/source.test | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/source.test b/tests/source.test index 30b69a5..1718aa6 100644 --- a/tests/source.test +++ b/tests/source.test @@ -6,12 +6,12 @@ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. +# Copyright (c) 1998-2000 by Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: source.test,v 1.6 2000/04/10 17:19:04 ericm Exp $ +# RCS: @(#) $Id: source.test,v 1.7 2000/05/11 00:16:53 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -179,6 +179,12 @@ test source-6.1 {source is binary ok} { source source.file string length $x } 5 +test source-6.2 {source skips everything after Ctrl-Z: Bug 2040} { + set x {} + makeFile [list set x "ab\32c"] source.file + source source.file + string length $x +} 2 # cleanup catch {::tcltest::removeFile source.file} |