/[webpac2]/trunk/t/1-lookup.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/1-lookup.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 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' ],
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26