/[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 33 by dpavlin, Wed Jan 5 21:23:04 2005 UTC revision 36 by dpavlin, Thu Jan 6 20:48:07 2005 UTC
# Line 7  use Data::Dumper; Line 7  use Data::Dumper;
7    
8  use Test::More tests => 110;  use Test::More tests => 110;
9    
10  BEGIN { use_ok( 'IsisDB' ); }  BEGIN { use_ok( 'Biblio::Isis' ); }
11    
12  my $debug = shift @ARGV;  my $debug = shift @ARGV;
13  my $isis;  my $isis;
# Line 16  sub test_data { Line 16  sub test_data {
16    
17          my $args = {@_};          my $args = {@_};
18    
19          isa_ok ($isis, 'IsisDB');          isa_ok ($isis, 'Biblio::Isis');
20    
21          cmp_ok($isis->count, '==', 5, "count is 5");          cmp_ok($isis->count, '==', 5, "count is 5");
22    
# Line 122  sub test_data { Line 122  sub test_data {
122    
123  }  }
124    
125  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
126          isisdb => './data/winisis/BIBL',          isisdb => './data/winisis/BIBL',
127          include_deleted => 1,          include_deleted => 1,
128          debug => $debug,          debug => $debug,
# Line 141  test_data( Line 141  test_data(
141          ) ],          ) ],
142  );  );
143    
144  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
145          isisdb => './data/isismarc/BIBL',          isisdb => './data/isismarc/BIBL',
146          include_deleted => 1,          include_deleted => 1,
147  );  );
# Line 158  test_data( Line 158  test_data(
158    
159  # check logically deleted  # check logically deleted
160    
161  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
162          isisdb => './data/winisis/BIBL',          isisdb => './data/winisis/BIBL',
163          include_deleted => 1,          include_deleted => 1,
164  );  );
# Line 166  $isis = IsisDB->new ( Line 166  $isis = IsisDB->new (
166  ok($isis->fetch(3), "deleted found");  ok($isis->fetch(3), "deleted found");
167  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");  cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
168    
169  $isis = IsisDB->new (  $isis = Biblio::Isis->new (
170          isisdb => './data/winisis/BIBL',          isisdb => './data/winisis/BIBL',
171          debug => $debug,          debug => $debug,
172  );  );

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

  ViewVC Help
Powered by ViewVC 1.1.26