diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-27 15:34:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-27 15:34:09 (GMT) |
| commit | 694bd3ba7302913ab4a1b850ee5ba238ad3f78db (patch) | |
| tree | f9d936177f0cb59965c1dcfe84a247763faeac75 | |
| parent | 067ef1dceadd2a389c08826c178661bad1b35abf (diff) | |
| parent | e929b912222f8a79390ef58c8d8d6db71c1cbd4c (diff) | |
| download | tcl-694bd3ba7302913ab4a1b850ee5ba238ad3f78db.zip tcl-694bd3ba7302913ab4a1b850ee5ba238ad3f78db.tar.gz tcl-694bd3ba7302913ab4a1b850ee5ba238ad3f78db.tar.bz2 | |
Merge forward new test, marked as knownBug, so other merges are no longer held back.
| -rw-r--r-- | tests/source.test | 10 |
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. |