diff options
-rw-r--r-- | tests/defs | 4 | ||||
-rw-r--r-- | tests/lsearch.test | 4 | ||||
-rw-r--r-- | tests/parse.test | 45 |
3 files changed, 16 insertions, 37 deletions
@@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: defs,v 1.1.2.2 1998/09/24 23:59:22 stanton Exp $ +# RCS: @(#) $Id: defs,v 1.1.2.3 1998/12/02 21:46:04 stanton Exp $ if ![info exists VERBOSE] { set VERBOSE 0 @@ -484,7 +484,7 @@ proc viewFile {name} { # exposing that Tcl uses UTF-8 internally. proc bytestring {string} { - testencoding toutf $string identity + encoding convertfrom identity $string } # Locate tcltest executable diff --git a/tests/lsearch.test b/tests/lsearch.test index 8caf8d8..b081566 100644 --- a/tests/lsearch.test +++ b/tests/lsearch.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: lsearch.test,v 1.1.2.2 1998/09/24 23:59:29 stanton Exp $ +# RCS: @(#) $Id: lsearch.test,v 1.1.2.3 1998/12/02 21:46:05 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -45,7 +45,7 @@ test lsearch-2.5 {search modes} { } 1 test lsearch-2.6 {search modes} { list [catch {lsearch -regexp {xyz bbcc *bc*} *bc*} msg] $msg -} {1 {couldn't compile regular expression pattern: ?+* follows nothing}} +} {1 {couldn't compile regular expression pattern: quantifier operand invalid}} test lsearch-2.7 {search modes} { lsearch -regexp {b.x ^bc xy bcx} ^bc } 3 diff --git a/tests/parse.test b/tests/parse.test index 34f7250..53afce9 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -7,7 +7,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.1.2.4 1998/12/02 01:46:08 stanton Exp $ +# RCS: @(#) $Id: parse.test,v 1.1.2.5 1998/12/02 21:46:05 stanton Exp $ if {[info commands testparser] == {}} { puts "This application hasn't been compiled with the \"testparser\"" @@ -691,44 +691,23 @@ test parse-15.49 {CommandComplete procedure} { test parse-15.50 {CommandComplete procedure} { info complete "abc\\\n" } 0 -test parse-15.51 {CommandComplete procedure} { - info complete "\{abc\}\{" -} 1 +test parse-15.51 {CommandComplete procedure} " + info complete \"\\{abc\\}\\{\" +" 1 test parse-15.52 {CommandComplete procedure} { info complete "\"abc\"(" } 1 -test parse-15.53 {CommandComplete procedure} { - parse complete " # \{" -} 1 -test parse-15.54 {CommandComplete procedure} { - parse complete "foo bar;# \{" -} 1 +test parse-15.53 {CommandComplete procedure} " + info complete \" # {\" +" 1 +test parse-15.54 {CommandComplete procedure} " + info complete \"foo bar;# {\" +" 1 test parse-15.55 {CommandComplete procedure} { - parse complete "a\nb\n# \{\n# \{\nc\n" + info complete "set x [bytestring \0]; puts hi" } 1 test parse-15.56 {CommandComplete procedure} { - parse complete "#Incomplete comment\\\n" -} 0 -test parse-15.57 {CommandComplete procedure} { - parse complete "#Incomplete comment\\\nBut now it's complete.\n" -} 1 -test parse-15.58 {CommandComplete procedure} { - parse complete "# Complete comment\\\\\n" -} 1 -test parse-15.59 {CommandComplete procedure} { - parse complete "abc\\\n def" -} 1 -test parse-15.60 {CommandComplete procedure} { - parse complete "abc\\\n " -} 1 -test parse-15.61 {CommandComplete procedure} { - parse complete "abc\\\n" -} 0 -test parse-15.62 {CommandComplete procedure} { - parse complete "set x [binary format H 00]; puts hi" -} 1 -test parse-15.63 {CommandComplete procedure} { - parse complete "set x [binary format H 00]; {" + info complete "set x [bytestring \0]; \{" } 0 |