/[Biblio-Isis]/trunk/t/002_isis.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/002_isis.t

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

revision 32 by dpavlin, Wed Jan 5 15:46:26 2005 UTC revision 38 by dpavlin, Wed Jan 12 19:28:41 2005 UTC
# Line 6  use blib; Line 6  use blib;
6  use Data::Dumper;  use Data::Dumper;
7    
8  use Test::More tests => 110;  use Test::More tests => 110;
9    use File::Spec;
10    
11  BEGIN { use_ok( 'IsisDB' ); }  BEGIN { use_ok( 'Biblio::Isis' ); }
12    
13    my $debug = shift @ARGV;
14  my $isis;  my $isis;
15    
16    my $path_winisis = File::Spec->catfile('data', 'winisis', 'BIBL');
17    my $path_isismarc = File::Spec->catfile('data', 'isismarc', 'BIBL');
18    
19  sub test_data {  sub test_data {
20    
21          my $args = {@_};          my $args = {@_};
22    
23          isa_ok ($isis, 'IsisDB');          isa_ok ($isis, 'Biblio::Isis');
24    
25          cmp_ok($isis->count, '==', 5, "count is 5");          cmp_ok($isis->count, '==', 5, "count is 5");
26    
# Line 121  sub test_data { Line 126  sub test_data {
126    
127  }  }
128    
129  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
130          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
131          include_deleted => 1,          include_deleted => 1,
132            debug => $debug,
133  );  );
134    
135  print Dumper($isis);  print Dumper($isis);
# Line 139  test_data( Line 145  test_data(
145          ) ],          ) ],
146  );  );
147    
148  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
149          isisdb => './data/isismarc/BIBL',          isisdb => $path_isismarc,
150          include_deleted => 1,          include_deleted => 1,
151  );  );
152    
# Line 156  test_data( Line 162  test_data(
162    
163  # check logically deleted  # check logically deleted
164    
165  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
166          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
167          include_deleted => 1,          include_deleted => 1,
168  );  );
169    
170  ok($isis->fetch(3), "deleted found");  ok($isis->fetch(3), "deleted found");
171  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
172    
173  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
174          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
175            debug => $debug,
176  );  );
177    
178  ok(! $isis->fetch(3), "deleted not found");  ok(! $isis->fetch(3), "deleted not found");
Legend:
Removed from v.32  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26