projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e4e4477
)
We had no tests that covered the grow paths in pp_uc and pp_lc.
author
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Apr 2006 17:58:53 +0000
(17:58 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Apr 2006 17:58:53 +0000
(17:58 +0000)
p4raw-id: //depot/perl@28028
t/op/lc.t
patch
|
blob
|
history
diff --git
a/t/op/lc.t
b/t/op/lc.t
index
95cf019
..
571868f
100644
(file)
--- a/
t/op/lc.t
+++ b/
t/op/lc.t
@@
-6,7
+6,7
@@
BEGIN {
require './test.pl';
}
-plan tests =>
7
7;
+plan tests =>
8
7;
$a = "HELLO.* world";
$b = "hello.* WORLD";
@@
-199,3
+199,9
@@
for (map { $_ } "A\x{100}", "ABC\x{100}", "\x{100}") {
is($result, $expect, "[perl #38619]");
}
+for (1, 4, 9, 16, 25) {
+ is(uc "\x{03B0}" x $_, "\x{3a5}\x{308}\x{301}" x $_,
+ 'uc U+03B0 grows threefold');
+
+ is(lc "\x{0130}" x $_, "i\x{307}" x $_, 'lc U+0130 grows');
+}