Parent Directory | Revision Log | Patch
revision 630 by dpavlin, Wed Aug 23 14:29:43 2006 UTC | revision 631 by dpavlin, Wed Sep 6 14:25:16 2006 UTC | |
---|---|---|
# | Line 2 | Line 2 |
2 | ||
3 | use strict; | use strict; |
4 | ||
5 | use Test::More tests => 153; | use Test::More tests => 155; |
6 | use Test::Exception; | use Test::Exception; |
7 | use Cwd qw/abs_path/; | use Cwd qw/abs_path/; |
8 | use blib; | use blib; |
# | Line 664 sub test_s { | Line 664 sub test_s { |
664 | [ '900', ' ', ' ', 'a', 'a3', 'a', 'a4', 'b', 'b3', 'c', 'c3', 'a', 'a5', ], | [ '900', ' ', ' ', 'a', 'a3', 'a', 'a4', 'b', 'b3', 'c', 'c3', 'a', 'a5', ], |
665 | ], | ], |
666 | ); | ); |
667 | ||
668 | test_rule( | |
669 | 'rec1 skips subfields', | |
670 | { | |
671 | '200' => [ { | |
672 | a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], | |
673 | subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], | |
674 | }, { | |
675 | a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3', | |
676 | subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ], | |
677 | } ], | |
678 | }, | |
679 | qq{ | |
680 | rec1(200); | |
681 | }, | |
682 | ["a1", "b1", "a2", "b2", "c1", "c2"], | |
683 | ); | |
684 | } | } |
685 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |