projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
added 2 tests wrt utf string manipulations causing segfaults
[p5sagit/Devel-Declare.git]
/
t
/
segv_utf8_lc_prevented.t
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