diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/utf.test | 6 | ||||
-rw-r--r-- | tests/util.test | 6 | ||||
-rw-r--r-- | tests/var.test | 4 | ||||
-rw-r--r-- | tests/winFile.test | 7 |
4 files changed, 11 insertions, 12 deletions
diff --git a/tests/utf.test b/tests/utf.test index f7e5922..9175ba8 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -154,11 +154,7 @@ bsCheck \ua 10 bsCheck \uA 10 bsCheck \340 224 bsCheck \ua1 161 - -# scan only works on iso8859-1 characters, so all others will return -# the "?" character. The expected result will change when scan is fixed. - -bsCheck \u4e21 63 +bsCheck \u4e21 20001 test utf-11.1 {Tcl_UtfToUpper} { string toupper {} diff --git a/tests/util.test b/tests/util.test index bf29134..f21a655 100644 --- a/tests/util.test +++ b/tests/util.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: util.test,v 1.1.2.2 1998/09/24 23:59:39 stanton Exp $ +# RCS: @(#) $Id: util.test,v 1.1.2.3 1998/12/04 03:01:27 stanton Exp $ if {[info commands testobj] == {}} { puts "This application hasn't been compiled with the \"testobj\"" @@ -211,10 +211,10 @@ test util-5.44 {Tcl_StringMatch: skip correct number of ']'} { } 1 test util-5.45 {Tcl_StringMatch} { # if (*pattern == '\0') - # badly formed pattern + # badly formed pattern, still treats as a set string match {[a} a -} 0 +} 1 test util-5.46 {Tcl_StringMatch} { string match {a\*b} a*b } 1 diff --git a/tests/var.test b/tests/var.test index f90a4f2..c4ebe6e 100644 --- a/tests/var.test +++ b/tests/var.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: var.test,v 1.1.2.2 1998/09/24 23:59:39 stanton Exp $ +# RCS: @(#) $Id: var.test,v 1.1.2.3 1998/12/04 03:01:27 stanton Exp $ # if {[string compare test [info procs test]] == 1} then {source defs} @@ -453,7 +453,7 @@ test var-9.9 {behaviour of TclSetVar without TCL_LEAVE_ERR_MSG flag} { trace var v w readonly list [catch {testsetnoerr v 2} msg] $msg } {1 {before set}} - +} test var-10.1 {can't nest arrays with array set} { catch {unset arr} list [catch {array set arr(x) {a 1 b 2}} res] $res diff --git a/tests/winFile.test b/tests/winFile.test index 82ed2b9..10bfd11 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -23,7 +23,7 @@ if {$tcl_platform(platform) != "windows"} { test winFile-1.1 {TclpGetUserHome} { list [catch {glob ~nosuchuser} msg] $msg } {1 {user "nosuchuser" doesn't exist}} -test winFile-1.2 {TclpGetUserHome} {nt} { +test winFile-1.2 {TclpGetUserHome} {nt nonportable} { # The administrator account should always exist. catch {glob ~administrator} @@ -47,5 +47,8 @@ test winFile-1.2 {TclpGetUserHome} {!nt} { close $f set x } {0} - +test winFile-1.3 {TclpGetUserHome} {nt nonportable} { + catch {glob ~stanton@workgroup} +} {0} + return |