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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
use strict;
use warnings;
use Test::More tests => 34;
use String::RewritePrefix ();
my $rewriter_num = 0;
sub test_rewrite {
my ($prefixes, $in, $expected) = @_;
my $rewriter_name = "rewriter_" . (++$rewriter_num);
String::RewritePrefix->import(rewrite => {
-as => $rewriter_name,
prefixes => $prefixes,
});
my $rewriter = __PACKAGE__->can($rewriter_name);
# List context
is_deeply([ $rewriter->(@$in) ], $expected, $rewriter_name);
is_deeply([ String::RewritePrefix->rewrite($prefixes, @$in) ], $expected);
# Scalar context
for(my $i=0; $i<=$#$in; $i++) {
is_deeply(scalar $rewriter->($in->[$i]), $expected->[$i], "$in->[$i] => $expected->[$i]");
is_deeply(scalar String::RewritePrefix->rewrite($prefixes, $in->[$i]), $expected->[$i]);
}
}
test_rewrite(
{
'-' => 'Tet::',
'@' => 'KaTet::',
'+' => sub { $_[0] . '::Foo::' },
'!' => sub { return undef },
},
[ qw( -Corporation @Roller Plinko -@Oops +Bar !None) ],
[ qw(Tet::Corporation KaTet::Roller Plinko Tet::@Oops Bar::Foo::Bar None) ],
);
test_rewrite(
{ '' => 'MyApp::', '+' => '' },
[ qw( Plugin Mixin Addon +Corporate::Thinger) ],
[ qw(MyApp::Plugin MyApp::Mixin MyApp::Addon Corporate::Thinger) ],
);
test_rewrite({
'-' => 'minus ',
'+' => 'plus ',
'' => 'plus ',
},
[ qw( +10 10 -10 0) ],
[ 'plus 10', 'plus 10', 'minus 10', 'plus 0' ],
);
|
