summaryrefslogtreecommitdiffstats
path: root/tests/source.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-25 16:39:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-25 16:39:26 (GMT)
commitf43e26d84c0342402389b06a5fa4e419a927e541 (patch)
treee436e3fd2864a6d0115277332deac382ceed8146 /tests/source.test
parent5d9b0d315794199313c41559a91710addd1d4630 (diff)
downloadtcl-f43e26d84c0342402389b06a5fa4e419a927e541.zip
tcl-f43e26d84c0342402389b06a5fa4e419a927e541.tar.gz
tcl-f43e26d84c0342402389b06a5fa4e419a927e541.tar.bz2
Test demonstrating need for "adjust" manipulation in TclSubstTokens.
Diffstat (limited to 'tests/source.test')
-rw-r--r--tests/source.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/source.test b/tests/source.test
index 641838c..dc3c2d8 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -187,6 +187,16 @@ test source-3.5 {return with special code etc.} -setup {
invoked from within
"source $sourcefile"} {a b c}}
+test source-4.1 {continuation line parsing} -setup {
+ set sourcefile [makeFile [string map {CL \\\n} {
+ format %s "[dict get [info frame 0] type]:CL[dict get [info frame 0] line]CL[dict get [info frame 0] line]CL[dict get [info frame 0] line]"
+ }] source.file]
+} -body {
+ source $sourcefile
+} -cleanup {
+ removeFile source.file
+} -result {source: 3 4 5}
+
test source-6.1 {source is binary ok} -setup {
# Note [makeFile] writes in the system encoding.
# [source] defaults to reading in the system encoding.