Add unit tests for LP 800269 - holdings for captions only
[working/Evergreen.git] / Open-ILS / src / perlmods / t / 14-OpenILS-Utils.t
1 #!perl -T
2
3 use Test::More tests => 19;
4
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' );
22
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','','',
27         '8' => '1',
28         'a' => 'v.',
29         'b' => '[no.]',
30     )
31 );
32 my $co_mfhd = MFHD->new($co_marc);
33
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");
36
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");