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");