/[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 570 by dpavlin, Sun Jul 2 21:17:54 2006 UTC revision 571 by dpavlin, Mon Jul 3 14:30:22 2006 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 107;  use Test::More tests => 112;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# Line 150  sub test_s { Line 150  sub test_s {
150          $eval_t = substr($eval_t,0,$max_eval_output) . '...' if (length($eval_t) > $max_eval_output);          $eval_t = substr($eval_t,0,$max_eval_output) . '...' if (length($eval_t) > $max_eval_output);
151          $eval_t =~ s/\\/\\\\/gs;          $eval_t =~ s/\\/\\\\/gs;
152    
153          my $v = eval "$t";          my @__ret;
154          ok(! $@, $@ ? dump_error($@, $t) : "eval: $eval_t");          eval "\@__ret = $t";
155          $v;          ok(! $@, $@ ? dump_error($@, $t) : "eval: $eval_t = " . dump(@__ret));
156            return \@__ret;
157  }  }
158    
159  {  {
# Line 496  sub test_s { Line 497  sub test_s {
497                  'split_rec_on',                  'split_rec_on',
498                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },
499                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 1) },                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 1) },
500                  'foo',                  [ 'foo' ],
501          );          );
502          test_rule(          test_rule(
503                  'split_rec_on',                  'split_rec_on',
504                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },
505                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 2) },                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 2) },
506                  'bar',                  [ 'bar' ],
507          );          );
508          test_rule(          test_rule(
509                  'split_rec_on no part',                  'split_rec_on no part',
510                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },                  { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },
511                  q! split_rec_on('200','a', qr/\\s*;\\s*/) !,                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/) },
512                  [ 'foo', 'bar' ],                  [ 'foo', 'bar' ],
513          );          );
514          test_rule(          test_rule(
515                  'split_rec_on no record',                  'split_rec_on no record',
516                  {},                  {},
517                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/) },                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/) },
518                  '',                  [ '' ],
519          );          );
520    
521          test_rec_rules(          test_rec_rules(
# Line 543  sub test_s { Line 544  sub test_s {
544          ok(marc_leader(), 'marc_leader get');          ok(marc_leader(), 'marc_leader get');
545          diag "leader: ", dump(marc_leader()) if ($debug);          diag "leader: ", dump(marc_leader()) if ($debug);
546          is_deeply(marc_leader(), { '06' => 42, 11 => 5 }, "marc_leader full");          is_deeply(marc_leader(), { '06' => 42, 11 => 5 }, "marc_leader full");
547    
548            _debug(2);
549            test_rule(
550                    'rec1(000)',
551                    { '000' => [ 42 ]},
552                    qq{ rec('000') },
553                    [ 42 ],
554            );
555    
556            test_rec_rules(
557                    'marc_compose+split_rec_on',
558                    { '000' => [ 42 ]},
559                    qq{
560                            marc('001', rec('000') );
561                    },
562                    [
563                            [ '001', ' ', ' ', 42, ]
564                    ],
565            );
566  }  }
567    
Legend:
Removed from v.570  
changed lines
  Added in v.571
  ViewVC Help
Powered by ViewVC 1.1.26