/[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 36 by dpavlin, Thu Jan 6 20:48:07 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( 'Biblio::Isis' ); }  BEGIN { use_ok( 'Biblio::Isis' ); }
12    
13  my $debug = shift @ARGV;  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 = {@_};
# Line 123  sub test_data { Line 127  sub test_data {
127  }  }
128    
129  $isis = Biblio::Isis->new (  $isis = Biblio::Isis->new (
130          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
131          include_deleted => 1,          include_deleted => 1,
132          debug => $debug,          debug => $debug,
133  );  );
# Line 142  test_data( Line 146  test_data(
146  );  );
147    
148  $isis = Biblio::Isis->new (  $isis = Biblio::Isis->new (
149          isisdb => './data/isismarc/BIBL',          isisdb => $path_isismarc,
150          include_deleted => 1,          include_deleted => 1,
151  );  );
152    
# Line 159  test_data( Line 163  test_data(
163  # check logically deleted  # check logically deleted
164    
165  $isis = Biblio::Isis->new (  $isis = Biblio::Isis->new (
166          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
167          include_deleted => 1,          include_deleted => 1,
168  );  );
169    
# Line 167  ok($isis->fetch(3), "deleted found"); Line 171  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 = Biblio::Isis->new (  $isis = Biblio::Isis->new (
174          isisdb => './data/winisis/BIBL',          isisdb => $path_winisis,
175          debug => $debug,          debug => $debug,
176  );  );
177    

Legend:
Removed from v.36  
changed lines
  Added in v.38

  ViewVC Help
Powered by ViewVC 1.1.26