/[SWISH-Split]/trunk/t/SWISH-Split.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/SWISH-Split.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Sun Aug 8 19:22:56 2004 UTC revision 5 by dpavlin, Wed Aug 11 14:28:40 2004 UTC
# Line 125  diag "slice handling o.k."; Line 125  diag "slice handling o.k.";
125  ok($i->add('testpath',{ foo => 'bar' }),"add foo");  ok($i->add('testpath',{ foo => 'bar' }),"add foo");
126    
127  foreach (1..$param{'slices'} * 3) {  foreach (1..$param{'slices'} * 3) {
128          ok($i->add('testpath'.$_,{ 'foo'.$_ => 'bar'.$_ }), "add $_");          ok($i->add('testpath'.$_,{ 'foo' => 'bar'.$_ }), "add $_");
129  }  }
130    
131  cmp_ok($i->finish, '==', 3, "finish");  cmp_ok($i->done, '==', 3, "finish");
132    
133    
134  #diag "$out";  #diag "$out";
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26