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
|
#!perl
use warnings;
use strict;
use Test::More tests => 15;
use Carp::Assert::More;
use Test::Exception;
my @good = (
qr//,
qr/Foo/,
qr/slash i/i,
qr/slash m/m,
qr/slash s/s,
qr/slash x/x,
);
my @bad = (
undef,
14,
'',
'//',
'/Foo/',
[],
{},
\99,
\*STDIN,
);
for my $good ( @good ) {
lives_ok(
sub { assert_regex( $good, "$good is good" ) },
"$good passes assertion"
);
}
for my $bad ( @bad ) {
my $disp = $bad;
$disp = '<undef>' unless defined $disp;
throws_ok(
sub { assert_regex( $bad, "$disp is bad" ) },
qr/\Q$disp is bad/,
"$disp fails assertion"
);
}
exit 0;
|
