Open-ILS/src/perlmods/live_t/28-marc_cn.t

   1 #!perl
   2
   3 use Test::More tests => 1;
   4
   5 diag("Test retrieving call numbers from bibliographic records.");
   6
   7 use strict; use warnings;
   8
   9 use OpenILS::Utils::TestUtils;
  10 my $script = OpenILS::Utils::TestUtils->new();
  11 $script->bootstrap;
  12
  13 our $apputils   = "OpenILS::Application::AppUtils";
  14
  15 my $resp = $apputils->simplereq(
  16     'open-ils.cat',
  17     'open-ils.cat.biblio.record.marc_cn.retrieve',
  18     46,
  19     1
  20 );
  21
  22 is_deeply($resp, [{ '050' => 'ML60 .C22' }], 'LP#1576727: extracted LC call number includes space');