1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#! /usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Try::Tiny;
use File::Spec::Functions 'catfile';
use Data::TableReader::Decoder::XLSX;
use Data::TableReader::Decoder::XLS;
use Data::TableReader;
SKIP: {
skip "Need an XLS parser", 1
unless try { Data::TableReader::Decoder::XLS->default_xls_module };
subtest XLS => sub {
my $xls= new_ok( 'Data::TableReader::Decoder::XLS',
[ file_name => '', file_handle => open_data('AddressAuxData.xls'), _log => sub {} ],
'XLS decoder' );
run_test($xls);
run_test_w_sheet($xls);
};
}
SKIP: {
skip "Need an XLSX parser", 1
unless try { Data::TableReader::Decoder::XLSX->default_xlsx_module };
subtest XLSX => sub {
my $xlsx= new_ok( 'Data::TableReader::Decoder::XLSX',
[ file_name => '', file_handle => open_data('AddressAuxData.xlsx'), _log => sub {} ],
'XLSX decoder' );
run_test($xlsx);
run_test_w_sheet($xlsx);
};
}
done_testing;
# Both worksheets have the same data, so just repeat the tests
sub run_test {
my ($decoder, $skip_second)= @_;
ok( my $iter= $decoder->iterator, 'got iterator' );
ok( my $iter2= $decoder->iterator, 'second parallel iterator' );
is_deeply( $iter->(), [ 'Name', 'Address', 'City', 'State', 'Zip' ], 'row 1' );
is( $iter->row, 1, 'iter1 row=1' );
is( $iter2->row, 0, 'iter2 row=0' );
is_deeply( $iter2->(), [ 'Name', 'Address', 'City', 'State', 'Zip' ], 'row 1 from iterator 2' );
is_deeply( $iter->(), [ 'Someone', '123 Long St', 'Somewhere', 'OH', 45678 ], 'row 2' );
ok( my $pos= $iter->tell, 'tell position' );
is_deeply( $iter->(), [ ('') x 5 ], 'row 3 blank' );
is_deeply( $iter->(), [ 'Another', '01 Main St', 'Elsewhere', 'OH', 45678 ], 'row 4' );
is( $iter->row, 4, 'iter1 row=4' );
is_deeply( $iter->(), undef, 'no row 5' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
return if $skip_second;
ok( $iter->next_dataset, 'next dataset (worksheet)' );
is( $iter->dataset_idx, 1, 'dataset_idx=1' );
is_deeply( $iter->(), [ 'Zip Codes', '', '', '', 'Cities', '', '', '', 'State Postal Codes', '', '' ], 'sheet 2, first row' );
ok( $iter->seek($pos), 'seek back to previous sheet' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is_deeply( $iter->(), [ ('') x 5 ], 'row 3 blank' );
is_deeply( $iter->(), [ 'Another', '01 Main St', 'Elsewhere', 'OH', 45678 ], 'row 4' );
is_deeply( $iter->(), undef, 'no row 5' );
ok( $iter->next_dataset, 'next dataset (worksheet)' );
is( $iter->dataset_idx, 1, 'dataset_idx=1' );
ok( !$iter->next_dataset, 'no more worksheets' );
is( $iter->dataset_idx, 1, 'dataset_idx=1' );
}
sub run_test_w_sheet {
my ($decoder) = @_;
run_test(Data::TableReader->new(input => $decoder->_sheets->[0], fields => [])->decoder, "skip_second");
return;
}
sub open_data {
my $name= shift;
my $t_dir= __FILE__;
$t_dir =~ s,[^\/\\]+$,,;
$name= catfile($t_dir, 'data', $name);
open(my $fh, "<:raw", $name) or die "open($name): $!";
return $fh;
}
|
