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
87
88
89
90
|
#! /usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Try::Tiny;
use Log::Any '$log';
use Log::Any::Adapter 'TAP';
use Data::TableReader::Decoder::Mock;
my $log_fn= sub { $log->can($_[0])->($log, $_[1]) };
sub table1 { [ [ 'a', 'b', 'c' ], [ 1, 2, 3 ], [ 4, 5, 6 ] ] };
sub table2 { [ [ 'x', 'y', 'z' ], [ 9, 8, 7 ], [ 6, 5, 4 ] ] };
subtest one_table => sub {
my $expected= table1;
my $d= new_ok( 'Data::TableReader::Decoder::Mock',
[ table => table1, _log => $log_fn, file_name => undef, file_handle => undef ],
'new decoder' );
ok( my $iter= $d->iterator, 'got iterator' );
is( $iter->row, 0, 'row=0' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is_deeply( $iter->(), $expected->[0], 'first row' );
is( $iter->row, 1, 'row=1' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is_deeply( $iter->(), $expected->[1], 'second row' );
is( $iter->row, 2, 'row=2' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is_deeply( $iter->(), $expected->[2], 'third row' );
is( $iter->row, 3, 'row=3' );
is_deeply( $iter->(), undef, 'no fourth row' );
is( $iter->row, 3, 'row=3' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
ok( $iter->seek(0), 'rewind' );
is( $iter->row, 0, 'row=0' );
is_deeply( $iter->(), $expected->[0], 'first row again' );
is( $iter->row, 1, 'row=1' );
is_deeply( $iter->([2,1]), [ '3', '2' ], 'slice from second row' );
ok( !$iter->next_dataset, 'no next dataset' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
};
subtest empty_table => sub {
my $datasets= [ [], [] ];
my $d= new_ok( 'Data::TableReader::Decoder::Mock',
[ datasets => $datasets, _log => $log_fn, file_name => undef, file_handle => undef ],
'new decoder' );
ok( my $iter= $d->iterator, 'iterator' );
is( $iter->row, 0, 'row=0' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is( $iter->(), undef, 'eof' );
is( $iter->row, 0, 'row=0' );
ok( $iter->next_dataset, 'next_dataset' );
is( $iter->row, 0, 'row=0' );
is( $iter->dataset_idx, 1, 'dataset_idx=1' );
is( $iter->(), undef, 'eof' );
is( $iter->row, 0, 'row=0' );
ok( !$iter->next_dataset, 'no next_dataset' );
is_deeply( $datasets, [ [], [] ], 'backing data unchanged' );
};
subtest no_datasets => sub {
my $datasets= [];
my $d= new_ok( 'Data::TableReader::Decoder::Mock',
[ datasets => $datasets, _log => $log_fn, file_name => undef, file_handle => undef ],
'new decoder' );
ok( my $iter= $d->iterator, 'iterator' );
is( $iter->row, 0, 'row=0' );
is( $iter->dataset_idx, 0, 'dataset_idx=0' );
is( $iter->(), undef, 'eof' );
is( $iter->row, 0, 'row=0' );
ok( !$iter->next_dataset, 'no next_dataset' );
is_deeply( $datasets, [], 'backing data unchanged' );
};
done_testing;
|
