diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-12-09 14:19:37 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:01 +1000 |
| commit | bece93a6de3f259385ccf425da0ec53a74d6cf38 (patch) | |
| tree | a415fb4e5e38e0567f2b9fe7c522903ad4ad963c /tests/util.test | |
| parent | 2e6b2f185c6e7fb9866850a3f08094c873d22263 (diff) | |
| download | jimtcl-bece93a6de3f259385ccf425da0ec53a74d6cf38.zip jimtcl-bece93a6de3f259385ccf425da0ec53a74d6cf38.tar.gz jimtcl-bece93a6de3f259385ccf425da0ec53a74d6cf38.tar.bz2 | |
Add constraints for tests which need utf-8
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/util.test b/tests/util.test index af7c468..6b54425 100644 --- a/tests/util.test +++ b/tests/util.test @@ -144,7 +144,7 @@ test util-5.7 {Tcl_StringMatch: UTF-8} { test util-5.8 {Tcl_StringMatch} { Wrapper_Tcl_StringMatch a?c abc } 1 -test util-5.9 {Tcl_StringMatch: UTF-8} { +test util-5.9 {Tcl_StringMatch: UTF-8} utf8 { # skip one character in string Wrapper_Tcl_StringMatch a?c a\u4e4fc } 1 @@ -157,7 +157,7 @@ test util-5.11 {Tcl_StringMatch} { test util-5.12 {Tcl_StringMatch} { Wrapper_Tcl_StringMatch {[abc]bc} abc } 1 -test util-5.13 {Tcl_StringMatch: UTF-8} { +test util-5.13 {Tcl_StringMatch: UTF-8} utf8 { # string += Tcl_UtfToUniChar(string, &ch); Wrapper_Tcl_StringMatch "\[\u4e4fxy\]bc" "\u4e4fbc" } 1 @@ -174,7 +174,7 @@ test util-5.15 {Tcl_StringMatch} { test util-5.16 {Tcl_StringMatch} { Wrapper_Tcl_StringMatch {a[abc]c} abc } 1 -test util-5.17 {Tcl_StringMatch: UTF-8} { +test util-5.17 {Tcl_StringMatch: UTF-8} utf8 { # pattern += Tcl_UtfToUniChar(pattern, &endChar); # get 1 UTF-8 character Wrapper_Tcl_StringMatch "a\[a\u4e4fc]c" "a\u4e4fc" @@ -198,10 +198,10 @@ test util-5.21 {Tcl_StringMatch} { test util-5.22 {Tcl_StringMatch: UTF-8 range} { Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "0" } 0 -test util-5.23 {Tcl_StringMatch: UTF-8 range} { +test util-5.23 {Tcl_StringMatch: UTF-8 range} utf8 { Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "\u4e33" } 1 -test util-5.24 {Tcl_StringMatch: UTF-8 range} { +test util-5.24 {Tcl_StringMatch: UTF-8 range} utf8 { Wrapper_Tcl_StringMatch "\[\u4e00-\u4e4f]" "\uff08" } 0 test util-5.25 {Tcl_StringMatch} { @@ -258,7 +258,7 @@ test util-5.41 {Tcl_StringMatch: skip correct number of ']'} { test util-5.42 {Tcl_StringMatch: skip correct number of ']'} { Wrapper_Tcl_StringMatch {[A-]]x} \ue1x } 0 -test util-5.43 {Tcl_StringMatch: skip correct number of ']'} { +test util-5.43 {Tcl_StringMatch: skip correct number of ']'} utf8 { Wrapper_Tcl_StringMatch \[A-]\ue1]x \ue1x } 1 test util-5.44 {Tcl_StringMatch: skip correct number of ']'} { |