3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 344; |
use Test::More tests => 348; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok( 'WebPAC::Test' ); |
use_ok( 'WebPAC::Test' ); |
896 |
test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] ); |
test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] ); |
897 |
test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] ); |
test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] ); |
898 |
|
|
899 |
|
my $hash = { a => '[a]', 'b' => '[b]', subfields => [ 'a', 0, 'b', 0 ] }; |
900 |
|
is_deeply([ _pack_subfields_hash( $hash ) ], [ '[a]', '[b]' ], '_pack_subfields_hash' ); |
901 |
|
ok( $hash->{subfields}, 'subfields exist' ); |
902 |
|
cmp_ok( _pack_subfields_hash( $hash, 1 ), 'eq', '^a[a]^b[b]', '_pack_subfields_hash' ); |
903 |
|
ok( $hash->{subfields}, 'subfields exist' ); |
904 |
|
|
905 |
} |
} |
906 |
|
|