/[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 565 by dpavlin, Sun Jul 2 20:14:21 2006 UTC revision 566 by dpavlin, Sun Jul 2 21:17:54 2006 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 103;  use Test::More tests => 107;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# Line 504  sub test_s { Line 504  sub test_s {
504                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 2) },                  qq{ split_rec_on('200','a', qr/\\s*;\\s*/, 2) },
505                  'bar',                  'bar',
506          );          );
507            test_rule(
508                    'split_rec_on no part',
509                    { '200' => [{ a => 'foo ; bar', b => 42, c => 'baz' }] },
510                    q! split_rec_on('200','a', qr/\\s*;\\s*/) !,
511                    [ 'foo', 'bar' ],
512            );
513            test_rule(
514                    'split_rec_on no record',
515                    {},
516                    qq{ split_rec_on('200','a', qr/\\s*;\\s*/) },
517                    '',
518            );
519    
520          test_rec_rules(          test_rec_rules(
521                  'marc_compose+split_rec_on',                  'marc_compose+split_rec_on',
Legend:
Removed from v.565  
changed lines
  Added in v.566
  ViewVC Help
Powered by ViewVC 1.1.26