diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-15 08:18:22 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-15 08:18:22 (GMT) |
commit | 73745cbfbf2708e4100af830ca10401c121799db (patch) | |
tree | 0bc8f572bf7df2c04d201cfa6574295bb4a2f3b5 /tests/string.test | |
parent | 5eba4fa4d73e7249d46af537a2d631f6799f8f11 (diff) | |
parent | ab91723185690febc744d2e0f85bcbeac259874a (diff) | |
download | tcl-73745cbfbf2708e4100af830ca10401c121799db.zip tcl-73745cbfbf2708e4100af830ca10401c121799db.tar.gz tcl-73745cbfbf2708e4100af830ca10401c121799db.tar.bz2 |
Enhance new testscases for compiled/interpreted mode
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/tests/string.test b/tests/string.test index 62bc062..e4c0113 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1897,32 +1897,32 @@ test string-21.15.$noComp {string wordend, unicode} -body { test string-21.16.$noComp {string wordend, unicode} -constraints utf16 -body { run {string wordend "\U1D7CA\U1D7CA abc" 10} } -result 8 -test string-21.17 {string trim, unicode} knownBug { - string trim "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02 +test string-21.17.$noComp {string trim, unicode} knownBug { + run {string trim "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02} } "Hello world!" -test string-21.18 {string trimleft, unicode} { - string trimleft "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02 +test string-21.18.$noComp {string trimleft, unicode} { + run {string trimleft "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02} } "Hello world!\uD83D\uDE02" -test string-21.19 {string trimright, unicode} knownBug { - string trimright "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02 +test string-21.19.$noComp {string trimright, unicode} knownBug { + run {string trimright "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD83D\uDE02} } "\uD83D\uDE02Hello world!" -test string-21.20 {string trim, unicode} { - string trim "\uF602Hello world!\uF602" \uD83D\uDE02 +test string-21.20.$noComp {string trim, unicode} { + run {string trim "\uF602Hello world!\uF602" \uD83D\uDE02} } "\uF602Hello world!\uF602" -test string-21.21 {string trimleft, unicode} { - string trimleft "\uF602Hello world!\uF602" \uD83D\uDE02 +test string-21.21.$noComp {string trimleft, unicode} { + run {string trimleft "\uF602Hello world!\uF602" \uD83D\uDE02} } "\uF602Hello world!\uF602" -test string-21.22 {string trimright, unicode} { - string trimright "\uF602Hello world!\uF602" \uD83D\uDE02 +test string-21.22.$noComp {string trimright, unicode} { + run {string trimright "\uF602Hello world!\uF602" \uD83D\uDE02} } "\uF602Hello world!\uF602" -test string-21.23 {string trim, unicode} { - string trim "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02 +test string-21.23.$noComp {string trim, unicode} { + run {string trim "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02} } "\uD83D\uDE02Hello world!\uD83D\uDE02" -test string-21.24 {string trimleft, unicode} { - string trimleft "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02 +test string-21.24.$noComp {string trimleft, unicode} { + run {string trimleft "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02} } "\uD83D\uDE02Hello world!\uD83D\uDE02" -test string-21.25 {string trimright, unicode} { - string trimright "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02 +test string-21.25.$noComp {string trimright, unicode} { + run {string trimright "\uD83D\uDE02Hello world!\uD83D\uDE02" \uD93D\uDE02} } "\uD83D\uDE02Hello world!\uD83D\uDE02" test string-22.1.$noComp {string wordstart} -body { |