summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-06-04 17:24:20 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-06-04 17:24:20 (GMT)
commit5594bcf588c8acb2d6c163b67922d08038ab785c (patch)
tree68526dd97dfb41d74dd6a77ba899f5ef022d6be5 /tests
parentf61e89e103538dc5c47ba15f66b3bdf75fcbcf7a (diff)
downloadtcl-5594bcf588c8acb2d6c163b67922d08038ab785c.zip
tcl-5594bcf588c8acb2d6c163b67922d08038ab785c.tar.gz
tcl-5594bcf588c8acb2d6c163b67922d08038ab785c.tar.bz2
Add missing constraints
Diffstat (limited to 'tests')
-rw-r--r--tests/parse.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/parse.test b/tests/parse.test
index 07c9f47..6011e83 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.28 2007/05/30 18:12:59 dgp Exp $
+# RCS: @(#) $Id: parse.test,v 1.29 2007/06/04 17:24:20 dgp Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -50,10 +50,10 @@ 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} {
+test parse-1.9 {Tcl_ParseCommand procedure, backslash newline + newline} testparser {
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} {
+test parse-1.10 {Tcl_ParseCommand procedure, backslash newline + newline} testparser {
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}}