/[webpac2]/trunk/t/2-input-isi.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

Contents of /trunk/t/2-input-isi.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1372 - (show annotations)
Thu Aug 22 08:14:43 2013 UTC (9 years, 5 months ago) by dpavlin
File MIME type: application/x-troff
File size: 672 byte(s)
check existence to prevent warning

1 #!/usr/bin/perl -w
2
3 use strict;
4 use lib 'lib';
5
6 use Test::More tests => 12;
7
8 BEGIN {
9 use_ok( 'WebPAC::Test' );
10 use_ok( 'WebPAC::Input' );
11 }
12
13 my $module = 'WebPAC::Input::ISI';
14 diag "testing with $module";
15
16 ok(my $input = new WebPAC::Input(
17 module => $module,
18 no_progress_bar => 1,
19 %LOG
20 ), "new");
21
22 ok(my $db = $input->open(
23 # path => "$abs_path/data/recs.txt"
24 path => "$abs_path/data/isi.txt"
25 ), "open");
26 ok(my $size = $input->size, "size");
27 cmp_ok( $size, '==', 3, 'size ok' );
28
29 foreach my $mfn ( 1 ... $size ) {
30 my $rec = $input->fetch;
31
32 ok( exists($rec->{TI}), 'TI' );
33
34 cmp_ok($input->pos, '==', $mfn, "pos $mfn");
35
36 diag "rec: ", dump($rec), "\n" if $debug;
37 }
38

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26