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
|
#!/usr/bin/perl
use strict;
use warnings;
no warnings 'syntax';
use lib ".";
use Regexp::Common;
use Test::More;
use t::zip::Zip;
my $r = eval "require Test::Regexp; 1";
unless ($r) {
print "1..0 # SKIP Test::Regexp not found\n";
exit;
}
test_zips country => "Monaco",
name => "Monaco zip codes",
prefix => {
iso => "MC",
cept => "MC",
invalid => "FR",
},
prefix_test_set => [98010, 98088],
;
done_testing;
sub valid_zip_codes {
98000 .. 98099,
}
__END__
|
