diff options
author | mdejong <mdejong@noemail.net> | 2007-03-15 22:05:19 (GMT) |
---|---|---|
committer | mdejong <mdejong@noemail.net> | 2007-03-15 22:05:19 (GMT) |
commit | eb98231182dc73e5dacca697025b229a7306fdea (patch) | |
tree | 82a063f62abe1418dba0b504c89e05a67bef222c /tests | |
parent | b19bb3bec74c0196f4e476cfa94e694ffab22ecb (diff) | |
download | tcl-eb98231182dc73e5dacca697025b229a7306fdea.zip tcl-eb98231182dc73e5dacca697025b229a7306fdea.tar.gz tcl-eb98231182dc73e5dacca697025b229a7306fdea.tar.bz2 |
* tests/parse.test: Add two backslash newline parse tests.
FossilOrigin-Name: 9b94a40c9b86a834665483a03a7159846b52466a
Diffstat (limited to 'tests')
-rw-r--r-- | tests/parse.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/parse.test b/tests/parse.test index 1a2f3a3..a89e991 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parse.test,v 1.26 2006/11/03 00:34:53 hobbs Exp $ +# RCS: @(#) $Id: parse.test,v 1.27 2007/03/15 22:05:21 mdejong Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -50,6 +50,12 @@ test parse-1.7 {Tcl_ParseCommand procedure, missing continuation line in leading test parse-1.8 {Tcl_ParseCommand procedure, eof in leading space} testparser { testparser " foo" 3 } {- {} 0 { foo}} +test parse-1.9 {Tcl_ParseCommand procedure, backslash newline + newline} { + testparser "cmd1\\\n\ncmd2" 0 +} {- cmd1\\\n\n 1 simple cmd1 1 text cmd1 0 cmd2} +test parse-1.10 {Tcl_ParseCommand procedure, backslash newline + newline} { + testparser "list \\\nA B\\\n\nlist C D" 0 +} {- list\ \\\nA\ B\\\n\n 3 simple list 1 text list 0 simple A 1 text A 0 simple B 1 text B 0 {list C D}} test parse-2.1 {Tcl_ParseCommand procedure, comments} testparser { testparser "# foo bar\n foo" 0 |