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
|
use Test2::Bundle::Extended -target => 'Test2::Compare::Regex';
my $one = $CLASS->new(input => qr/abc/i);
is(qr/abc/i, $one, "same regex");
ok(!$one->verify(got => qr/xyz/i, exists => 1), "Different regex");
ok(!$one->verify(got => qr/abc/, exists => 1), "Different flags");
ok(!$one->verify(exists => 0), "Must exist");
ok(!$one->verify(exists => 1, got => {}), "Must be regex");
ok(!$one->verify(exists => 1, got => undef), "Must be defined");
ok(!$one->verify(exists => 1, got => 'aaa'), "String is not valid");
is($one->name, "" . qr/abc/i, "name is regex pattern");
is($one->operator, 'eq', "got operator");
ok($one->verify(got => qr/abc/i, exists => 1), "Same regex");
like(
dies { $CLASS->new() },
qr/'input' is a required attribute/,
"require a pattern"
);
like(
dies { $CLASS->new(input => 'foo') },
qr/'input' must be a regex , got 'foo'/,
"must be a regex"
);
done_testing;
|
