summaryrefslogtreecommitdiffstats
path: root/tests/source.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-27 15:34:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-27 15:34:09 (GMT)
commitd413c21407eb2fa550412f25914e5ebaa42d596e (patch)
treef9d936177f0cb59965c1dcfe84a247763faeac75 /tests/source.test
parenta5a2f896bb91053061b5a83f09cb0778c3b53e3b (diff)
parentf43e26d84c0342402389b06a5fa4e419a927e541 (diff)
downloadtcl-d413c21407eb2fa550412f25914e5ebaa42d596e.zip
tcl-d413c21407eb2fa550412f25914e5ebaa42d596e.tar.gz
tcl-d413c21407eb2fa550412f25914e5ebaa42d596e.tar.bz2
Merge forward new test, marked as knownBug, so other merges are no longer held back.
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 d71212d..6ee2198 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} -constraints knownBug -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.