3 use Test::More tests => 19;
5 use_ok( 'OpenILS::Utils::Cronscript' );
6 use_ok( 'OpenILS::Utils::CStoreEditor' );
7 use_ok( 'OpenILS::Utils::Editor' );
8 use_ok( 'OpenILS::Utils::Fieldmapper' );
9 use_ok( 'OpenILS::Utils::ISBN' );
10 use_ok( 'OpenILS::Utils::Lockfile' );
11 use_ok( 'OpenILS::Utils::MFHDParser' );
12 use_ok( 'OpenILS::Utils::MFHD' );
13 use_ok( 'OpenILS::Utils::ModsParser' );
14 use_ok( 'OpenILS::Utils::Normalize' );
15 use_ok( 'OpenILS::Utils::OfflineStore' );
16 use_ok( 'OpenILS::Utils::Penalty' );
17 use_ok( 'OpenILS::Utils::PermitHold' );
18 use_ok( 'OpenILS::Utils::RemoteAccount' );
19 use_ok( 'OpenILS::Utils::ScriptRunner' );
20 use_ok( 'OpenILS::Utils::SpiderMonkey' );
21 use_ok( 'OpenILS::Utils::ZClient' );
23 # LP 800269 - Test MFHD holdings for records that only contain a caption field
24 my $co_marc = MARC::Record->new();
25 $co_marc->append_fields(
26 MARC::Field->new('853','','',
32 my $co_mfhd = MFHD->new($co_marc);
34 my @comp_holdings = $co_mfhd->get_compressed_holdings($co_mfhd->field('853'));
35 is(@comp_holdings, 0, "Compressed holdings for an MFHD record that only has a caption");
37 my @decomp_holdings = $co_mfhd->get_decompressed_holdings($co_mfhd->field('853'));
38 is(@decomp_holdings, 0, "Decompressed holdings for an MFHD record that only has a caption");