Commit | Line | Data |
---|---|---|
d2b434aa | 1 | |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use Test::More tests => 2; # last test to print | |
6 | ||
7 | use Devel::Declare 'method' => sub{}; | |
8 | ||
9 | sub lowercase { | |
10 | lc $_[0]; | |
11 | } | |
12 | ||
13 | is uc("bar\x{263a}"), "BAR\x{263a}"; | |
14 | is lowercase("FOO\x{263a}"), "foo\x{263a}"; | |
15 | ||
16 | =pod | |
17 | ||
18 | This test does *not* segfault for me like t/segv_utf8_lc.t | |
19 | ||
20 | =cut | |
21 |