/[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 725 by dpavlin, Fri Sep 29 18:55:41 2006 UTC revision 787 by dpavlin, Sun Dec 10 12:56:05 2006 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 309;  use Test::More tests => 311;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# 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(
# Line 725  sub test_s { Line 725  sub test_s {
725                          [ '901', ' ', ' ', 'b', 'bar', 'c', 'baz' ],                          [ '901', ' ', ' ', 'b', 'bar', 'c', 'baz' ],
726                  ],                  ],
727          );          );
728    
729            test_s(qq{ marc_remove('*'); });
730            ok(! WebPAC::Normalize::_get_marc_fields(), 'marc_remove(*)');
731    
732          test_rec_rules(          test_rec_rules(
733                  'marc_duplicate',                  'marc_duplicate',
734                  { '200' => [{ a => 42, b => 'bar', c => 'baz', d => 'bing', e => 'bong' }] },                  { '200' => [{ a => 42, b => 'bar', c => 'baz', d => 'bing', e => 'bong' }] },
Legend:
Removed from v.725  
changed lines
  Added in v.787
  ViewVC Help
Powered by ViewVC 1.1.26