/[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 472 by dpavlin, Sun Jul 24 15:03:11 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 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.472  
changed lines
  Added in v.473
  ViewVC Help
Powered by ViewVC 1.1.26