/[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 735 by dpavlin, Fri Sep 29 18:55:41 2006 UTC revision 736 by dpavlin, Thu Oct 5 12:57:51 2006 UTC
# Line 196  sub test_s { Line 196  sub test_s {
196    
197          # lookups          # lookups
198    
199          throws_ok { _set_load_ds() } qr/CODE/, 'empty _set_load_ds()';          throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';
200    
201          ok(_set_load_ds(sub {          ok(_set_load_row(sub {
202                  my ($database,$input,$mfn) = @_;                  my ($database,$input,$mfn) = @_;
203                  diag "load_ds( $database, $input, $mfn )";                  diag "load_row( $database, $input, $mfn )";
204                  cmp_ok( $#_, '==', 2, 'have 3 arguments');                  cmp_ok( $#_, '==', 2, 'have 3 arguments');
205                  ok($database, '_load_ds database');                  ok($database, '_load_row database');
206                  ok($input, '_load_ds input');                  ok($input, '_load_row input');
207                  ok($mfn, '_load_ds mfn');                  ok($mfn, '_load_row mfn');
208                  return {                  return {
209                          '900' => [{ x => '900x-' . $mfn , y => '900y-' . $mfn }],                          '900' => [{ x => '900x-' . $mfn , y => '900y-' . $mfn }],
210                  }                  }
211    
212          }), '_set_load_ds');          }), '_set_load_row');
213    
214          my @v = qw/foo bar baz aaa bbb ccc ddd/;          my @v = qw/foo bar baz aaa bbb ccc ddd/;
215    
# Line 233  sub test_s { Line 233  sub test_s {
233    
234                  my @lookup;                  my @lookup;
235    
236                  ok(my @lookup = lookup(                  ok(@lookup = lookup(
237                                  sub {                                  sub {
238                                          diag "in show";                                          diag "in show";
239                                          rec('900','x');                                          rec('900','x');
# Line 277  sub test_s { Line 277  sub test_s {
277          diag "lookup_hash1 = ", dump($lookup_hash1);          diag "lookup_hash1 = ", dump($lookup_hash1);
278          ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1');          ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1');
279    
280          throws_ok { _set_load_ds() } qr/CODE/, 'empty _set_load_ds()';          throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';
281    
282          ok(_set_load_ds(sub {          ok(_set_load_row(sub {
283                  my ($database,$input,$mfn) = @_;                  my ($database,$input,$mfn) = @_;
284                  diag "load_ds( $database, $input, $mfn )";                  diag "load_row( $database, $input, $mfn )";
285                  cmp_ok( $#_, '==', 2, 'have 3 arguments');                  cmp_ok( $#_, '==', 2, 'have 3 arguments');
286                  ok($database, 'database');                  ok($database, 'database');
287                  ok($input, 'input');                  ok($input, 'input');
288                  ok($mfn, 'mfn');                  ok($mfn, 'mfn');
289    
290          }), '_set_load_ds');          }), '_set_load_row');
291    
292    
293  #       cmp_ok(lookup(  #       cmp_ok(lookup(
Legend:
Removed from v.735  
changed lines
  Added in v.736
  ViewVC Help
Powered by ViewVC 1.1.26