Open-ILS/src/perlmods/t/14-OpenILS-Utils.t

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