diff options
author | stanton <stanton> | 1998-12-04 03:01:27 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-12-04 03:01:27 (GMT) |
commit | 3b933d49401f7113479c56cc2efb8afab812cf1e (patch) | |
tree | 4e52919e3fab67928fef4545a0cefaedf60b5d11 /tests/util.test | |
parent | 41603e59a53d02d7365a1f99ee8176b70ef71a0a (diff) | |
download | tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.zip tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.tar.gz tcl-3b933d49401f7113479c56cc2efb8afab812cf1e.tar.bz2 |
fixed broken tests
Diffstat (limited to 'tests/util.test')
-rw-r--r-- | tests/util.test | 6 |
1 files changed, 3 insertions, 3 deletions
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 |