3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 340; |
use Test::More tests => 344; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok( 'WebPAC::Test' ); |
use_ok( 'WebPAC::Test' ); |
870 |
'200' => [ { |
'200' => [ { |
871 |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
872 |
subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], |
subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], |
873 |
|
i1 => '0', i2 => '1', |
874 |
}, { |
}, { |
875 |
a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3', |
a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3', |
876 |
subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ], |
subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ], |
893 |
ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c"); |
ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c"); |
894 |
} |
} |
895 |
|
|
896 |
|
test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] ); |
897 |
|
test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] ); |
898 |
|
|
899 |
} |
} |
900 |
|
|