Parent Directory | Revision Log | Patch
revision 7 by dpavlin, Sat Jul 16 16:00:19 2005 UTC | revision 12 by dpavlin, Sat Jul 16 22:57:26 2005 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use strict; | use strict; |
4 | use Test::More tests => 15; | use Test::More tests => 16; |
5 | use Test::Exception; | use Test::Exception; |
6 | use blib; | use blib; |
7 | ||
# | Line 20 ok(my $lookup = new WebPAC::Lookup( | Line 20 ok(my $lookup = new WebPAC::Lookup( |
20 | }, | }, |
21 | ), "new"); | ), "new"); |
22 | ||
23 | ok(my $regex = $lookup->regex, "regex"); | |
24 | diag "regex: $regex"; | |
25 | ||
26 | my $rec = { | my $rec = { |
27 | '000' => [ '001' ], | '000' => [ '001' ], |
28 | '800' => [ 'foo' ], | '800' => [ 'foo' ], |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |