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

=pod

This tests against a segfault when PL_parser becomes NULL temporarly, while
another module is loaded.

=cut

use strict;
use warnings;

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

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

sub lowercase {
        lc $_[0];
}

is lowercase("FOO\x{263a}"), "foo\x{263a}";
Commit	Line	Data
2cf7b7e2	1	=pod
	2
	3	This tests against a segfault when PL_parser becomes NULL temporarly, while
	4	another module is loaded.
	5
	6	=cut
	7
	8	use strict;
	9	use warnings;
	10
	11	use Test::More tests => 1; # last test to print
	12
	13	use Devel::Declare 'method' => sub{};
	14
	15	sub lowercase {
	16	lc $_[0];
	17	}
	18
	19	is lowercase("FOO\x{263a}"), "foo\x{263a}";