/[webpac2]/trunk/t/3-normalize.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/3-normalize.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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" );
Legend:
Removed from v.1206  
changed lines
  Added in v.1214
  ViewVC Help
Powered by ViewVC 1.1.26