view release on metacpan or  search on metacpan

t/35-record-iterator.t  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
                                [
                                        [qw( a b c )],
                                        [qw( 1 2 3 )],
                                ]
                        ],
                        fields => ['a','b','c'],
                        log => $log
                ], 'TableReader' );
        ok( $re->find_table, 'find_table' ) or die "Can't continue without table";
        ok( my $i= $re->iterator, 'create iterator' );
        Scalar::Util::weaken( my $wref= $i );
        undef $i;
        is( $wref, undef, 'first iterator garbage collected' );
        ok( my $i2= $re->iterator, 'second interator' );
        ok( my $i3= $re->iterator, 'third iterator' );
        is( $i2->row, 1, 'i2 row=1' );
        is( $i3->row, 1, 'i3 row=1' );
        is_deeply( $i2->all, [ { a => 1, b => 2, c => 3 } ], 'read rows from i2' );
        is( $i3->row, 1, 'i3 row=1' );
        is_deeply( $i3->all, [ { a => 1, b => 2, c => 3 } ], 'read rows from i3' );
};