[p5sagit/Devel-Declare.git] / t / segv_utf8_lc_prevented.t


use strict;
use warnings;

use Test::More tests => 2;                      # last test to print

use Devel::Declare 'method' => sub{};

sub lowercase {
        lc $_[0];
}

is uc("bar\x{263a}"), "BAR\x{263a}";
is lowercase("FOO\x{263a}"), "foo\x{263a}";

=pod

This test does *not* segfault for me like t/segv_utf8_lc.t

=cut
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