projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Release commit for 0.006019
[p5sagit/Devel-Declare.git]
/
t
/
load_module.t
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}";