/[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 791 by dpavlin, Tue Jan 30 18:21:17 2007 UTC revision 811 by dpavlin, Sun Apr 1 21:47:40 2007 UTC
# Line 207  sub test_s { Line 207  sub test_s {
207    
208          ok(_set_load_row(sub {          ok(_set_load_row(sub {
209                  my ($database,$input,$mfn) = @_;                  my ($database,$input,$mfn) = @_;
210                  diag "load_row( $database, $input, $mfn )";                  diag "load_row( $database, $input, $mfn )" if ($debug);
211                  cmp_ok( $#_, '==', 2, 'have 3 arguments');                  cmp_ok( $#_, '==', 2, 'have 3 arguments');
212                  ok($database, '_load_row database');                  ok($database, '_load_row database');
213                  ok($input, '_load_row input');                  ok($input, '_load_row input');
# Line 236  sub test_s { Line 236  sub test_s {
236                  );                  );
237    
238                  ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');                  ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');
239                  diag "_get_lookup = ", dump($l);                  diag "_get_lookup = ", dump($l) if ($debug);
240    
241                  my @lookup;                  my @lookup;
242    
243                  ok(@lookup = lookup(                  ok(@lookup = lookup(
244                                  sub {                                  sub {
245                                          diag "in show";                                          diag "in show" if ($debug);
246                                          rec('900','x');                                          rec('900','x');
247                                  },                                  },
248                                  'db','input','key',                                  'db','input','key',
# Line 261  sub test_s { Line 261  sub test_s {
261          }          }
262    
263          ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');          ok(my $l = WebPAC::Normalize::_get_lookup(), '_get_lookup');
264          diag "_get_lookup = ", dump($l);          diag "_get_lookup = ", dump($l) if ($debug);
265    
266          is_deeply( $l, {          is_deeply( $l, {
267                  db => {                  db => {
# Line 281  sub test_s { Line 281  sub test_s {
281    
282  #######  #######
283    
284          diag "lookup_hash1 = ", dump($lookup_hash1);          diag "lookup_hash1 = ", dump($lookup_hash1) if ($debug);
285          ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1');          ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1');
286    
287          throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';          throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';
Legend:
Removed from v.791  
changed lines
  Added in v.811
  ViewVC Help
Powered by ViewVC 1.1.26