1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
use Test2::Bundle::Extended;
use Test2::Util::Sub qw{
sub_name
};
imported_ok qw{
sub_name
};
sub named { 'named' }
*unnamed = sub { 'unnamed' };
like(sub_name(\&named), qr/named$/, "got sub name (named)");
like(sub_name(\&unnamed), qr/__ANON__$/, "got sub name (anon)");
like(
dies { sub_name() },
qr/sub_name requires a coderef as its only argument/,
"Need an arg"
);
like(
dies { sub_name('xxx') },
qr/sub_name requires a coderef as its only argument/,
"Need a ref"
);
like(
dies { sub_name({}) },
qr/sub_name requires a coderef as its only argument/,
"Need a code ref"
);
done_testing;
|
