45 |
|
|
46 |
diag dump( @expected ) if $debug; |
diag dump( @expected ) if $debug; |
47 |
|
|
48 |
ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, %LOG ), 'new input' ); |
ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, encoding => 'utf-16', %LOG ), 'new input' ); |
49 |
ok(my $db = $input->open( path => $path ), "input->open $path"); |
ok(my $db = $input->open( path => $path ), "input->open $path"); |
50 |
|
|
51 |
cmp_ok( $input->size, '==', $#expected, "same size" ); |
cmp_ok( $input->size, '==', $#expected, "same size" ); |
54 |
my $ds = shift @expected; |
my $ds = shift @expected; |
55 |
my $rec = $input->fetch; |
my $rec = $input->fetch; |
56 |
diag dump( $ds, $rec ) if $debug; |
diag dump( $ds, $rec ) if $debug; |
57 |
is_deeply( $ds, $rec, "$mfn same?" ); |
is_deeply( $rec, $ds, "$mfn same?" ); |
58 |
} |
} |