fixed broken tests

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