From 5594bcf588c8acb2d6c163b67922d08038ab785c Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 4 Jun 2007 17:24:20 +0000 Subject: Add missing constraints --- tests/parse.test | 6 +++--- 1 file 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}} -- cgit v0.12