/[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 30 by dpavlin, Sun Jul 24 14:20:59 2005 UTC revision 473 by dpavlin, Sat May 13 12:07:56 2006 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 => 16;  use Test::More tests => 17;
5  use Test::Exception;  use Test::Exception;
6  use blib;  use blib;
7    
# Line 11  BEGIN { Line 11  BEGIN {
11  use_ok( 'WebPAC::Lookup' );  use_ok( 'WebPAC::Lookup' );
12  }  }
13    
14  throws_ok { new WebPAC::Lookup() } qr/lookup_file/, "new without lookup_file";  throws_ok { new WebPAC::Lookup( no_log => 1 ) } qr/lookup_file/, "new without lookup_file";
15    
16  ok(my $lookup = new WebPAC::Lookup(  ok(my $lookup = new WebPAC::Lookup(
17          lookup_file => 'conf/lookup/example.pm',          lookup_file => 'conf/lookup/example.pm',
# Line 33  diag "testing WebPAC::Lookup own methods Line 33  diag "testing WebPAC::Lookup own methods
33    
34  ok($lookup->add( $rec ), "add");  ok($lookup->add( $rec ), "add");
35    
36  ok($lookup->{'_lookup_data'}, "have lookup hash");  ok($lookup->{'_lookup_data'}, "{_lookup_data}");
37    ok($lookup->lookup_hash, "lookup_hash");
38    
39  my $lookup_res = {  my $lookup_res = {
40          '800:foo' => [ 'bar' ],          '800:foo' => [ 'bar' ],
Legend:
Removed from v.30  
changed lines
  Added in v.473
  ViewVC Help
Powered by ViewVC 1.1.26