3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 262; |
use Test::More tests => 325; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok( 'WebPAC::Test' ); |
use_ok( 'WebPAC::Test' ); |
49 |
'v' => 'v-8-1', |
'v' => 'v-8-1', |
50 |
},{ |
},{ |
51 |
'v' => 'v-9-1', |
'v' => 'v-9-1', |
52 |
|
},{ |
53 |
|
'v' => '0', |
54 |
}], |
}], |
55 |
}; |
}; |
56 |
|
|
104 |
[440, "0", "1", "a", "a-7-1"], |
[440, "0", "1", "a", "a-7-1"], |
105 |
[440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"], |
[440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"], |
106 |
[440, "0", "1", "v", "v-9-1"], |
[440, "0", "1", "v", "v-9-1"], |
107 |
|
[440, 0, 1, "v", 0], |
108 |
]; |
]; |
109 |
|
|
110 |
is_deeply( test_marc_template($rec), $marc_out , 'is_deeply'); |
is_deeply( test_marc_template($rec), $marc_out , 'is_deeply'); |