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
|
use Test2::V0;
plan 9;
use String::Copyright;
use String::Copyright { threshold_before => 0 },
'copyright' => { -as => 'before0' };
use String::Copyright { threshold_before => 1 },
'copyright' => { -as => 'before1' };
use String::Copyright { threshold_before => 2 },
'copyright' => { -as => 'before2' };
use String::Copyright { threshold_after => 0 },
'copyright' => { -as => 'after0' };
use String::Copyright { threshold_after => 1 },
'copyright' => { -as => 'after1' };
use String::Copyright { threshold_after => 2 },
'copyright' => { -as => 'after2' };
#is( ( 0 + copyright( "foo" ) ), 0, 'non-copyright string numeric is zero' );
my $string = "© Foo\n© Bar\n\n© Baz\n\n\n© Boom";
is copyright($string), "© Foo\n© Bar\n© Baz\n© Boom", 'no skip';
is before0("\n\n\n\n$string"),
"© Foo\n© Bar\n© Baz\n© Boom", 'zero skip before match';
is before1($string), "© Foo\n© Bar\n© Baz\n© Boom",
'skip before match and 1 miss';
is before1("\n$string"), "", 'skip before match and 1 miss, skipped';
is before2("\n$string"), "© Foo\n© Bar\n© Baz\n© Boom",
'skip before match and 2 misses';
is before2("\n\n$string"), "",
'skip before match and 2 misses, skipped';
is after0($string), "© Foo\n© Bar\n© Baz\n© Boom",
'zero skip after match';
is after1($string), "© Foo\n© Bar", 'skip after match and 1 miss';
is after2($string),
"© Foo\n© Bar\n© Baz", 'skip after match and 2 misses';
done_testing;
|
