Parent Directory | Revision Log | Patch
revision 1206 by dpavlin, Fri May 29 20:55:54 2009 UTC | revision 1214 by dpavlin, Tue Jun 2 13:14:59 2009 UTC | |
---|---|---|
# | Line 908 sub test_s { | Line 908 sub test_s { |
908 | _clean_ds(); | _clean_ds(); |
909 | _set_ds( $rec ); | _set_ds( $rec ); |
910 | test_s(q{ | test_s(q{ |
911 | row( e => $_ ) foreach ( rec_array('arr') ); | row( 'table', e => $_ ) foreach ( rec_array('arr') ); |
912 | }); | }); |
913 | ok( my $rows = _get_ds->{_rows}, 'ds have _rows' ); | ok( my $rows = _get_ds->{_rows}->{table}, 'ds have _rows' ); |
914 | ||
915 | foreach my $i ( 1 .. 3 ) { | foreach my $i ( 1 .. 3 ) { |
916 | cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" ); | cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |