diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-02-17 15:07:02 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-02-17 15:41:54 -0700 |
commit | 0167186c6da6afb0eb6708879a543c70c612fc45 (patch) | |
tree | b806b33eecbb0d470c9c50aaf4dfd0f092b73151 /t | |
parent | a4f280d0af1a2939cfa7932206f4bbee611a1731 (diff) | |
download | perl-0167186c6da6afb0eb6708879a543c70c612fc45.tar.gz |
op/turkish.t: Fix wrong test explanations
Diffstat (limited to 't')
-rw-r--r-- | t/op/turkish.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/turkish.t b/t/op/turkish.t index 08e2baceb0..628fcdc38a 100644 --- a/t/op/turkish.t +++ b/t/op/turkish.t @@ -76,7 +76,7 @@ sub ToLower { is(uc("\x{DF}\x{DF}"), "SSSS", "Verify that uc of non-overridden multi-char works"); is(uc("aa"), "AA", "Verify that uc of non-overridden ASCII works"); is(uc("\x{101}\x{101}"), "\x{100}\x{100}", "Verify that uc of non-overridden utf8 works"); -is(uc("ii"), "\x{130}\x{130}", "Verify uc('i') eq \\x{130}"); +is(uc("ii"), "\x{130}\x{130}", "Verify uc('ii') eq \\x{130}\\x{130}"); is(ucfirst("\x{DF}\x{DF}"), "Ss\x{DF}", "Verify that ucfirst of non-overridden multi-char works"); is(ucfirst("\x{101}\x{101}"), "\x{100}\x{101}", "Verify that ucfirst of non-overridden utf8 works"); @@ -89,7 +89,7 @@ is(lc("\x{0178}\x{0178}"), "\x{FF}\x{FF}", "Verify that lc of non-overridden utf is(lc("II"), "\x{131}\x{131}", "Verify that lc('I') eq \\x{131}"); is(lc("IG\x{0307}IG\x{0307}"), "\x{131}g\x{0307}\x{131}g\x{0307}", "Verify that lc(\"I...\\x{0307}\") eq \"\\x{131}...\\x{0307}\""); is(lc("I\x{0307}I\x{0307}"), "ii", "Verify that lc(\"I\\x{0307}\") removes the \\x{0307}, leaving 'i'"); -is(lc("\x{130}\x{130}"), "ii", "Verify that lc(\"\\x{130}\") eq 'i'"); +is(lc("\x{130}\x{130}"), "ii", "Verify that lc(\"\\x{130}\\x{130}\") eq 'ii'"); is(lcfirst("AA"), "aA", "Verify that lcfirst of non-overridden ASCII works"); is(lcfirst("\x{C0}\x{C0}"), "\x{E0}\x{C0}", "Verify that lcfirst of non-overridden latin1 works"); |