3 use Test::More tests => 32;
7 use_ok( 'OpenILS::Utils::Configure' );
8 use_ok( 'OpenILS::Utils::Cronscript' );
9 use_ok( 'OpenILS::Utils::CStoreEditor' );
10 use_ok( 'OpenILS::Utils::Editor' );
11 use_ok( 'OpenILS::Utils::Fieldmapper' );
12 use_ok( 'OpenILS::Utils::ISBN' );
13 use_ok( 'OpenILS::Utils::Lockfile' );
14 use_ok( 'OpenILS::Utils::MFHDParser' );
15 use_ok( 'OpenILS::Utils::MFHD' );
16 use_ok( 'OpenILS::Utils::ModsParser' );
17 use_ok( 'OpenILS::Utils::Normalize' );
18 use_ok( 'OpenILS::Utils::OfflineStore' );
19 use_ok( 'OpenILS::Utils::Penalty' );
20 use_ok( 'OpenILS::Utils::PermitHold' );
21 use_ok( 'OpenILS::Utils::RemoteAccount' );
22 use_ok( 'OpenILS::Utils::ScriptRunner' );
23 use_ok( 'OpenILS::Utils::SpiderMonkey' );
24 use_ok( 'OpenILS::Utils::ZClient' );
25 use_ok( 'OpenILS::Utils::EDIReader' );
27 # LP 800269 - Test MFHD holdings for records that only contain a caption field
28 my $co_marc = MARC::Record->new();
29 $co_marc->append_fields(
30 MARC::Field->new('853','','',
36 my $co_mfhd = MFHD->new($co_marc);
40 @comp_holdings = $co_mfhd->get_compressed_holdings($co_mfhd->field('853'));
41 } [ qr/Cannot compress without pattern data, returning original holdings/ ],
42 "warning when attempting to compress holdings without a pattern";
44 is(@comp_holdings, 0, "Compressed holdings for an MFHD record that only has a caption");
46 my @decomp_holdings = $co_mfhd->get_decompressed_holdings($co_mfhd->field('853'));
47 is(@decomp_holdings, 0, "Decompressed holdings for an MFHD record that only has a caption");
49 my $apostring = OpenILS::Utils::Normalize::naco_normalize("it's time");
50 is($apostring, "its time", "naco_normalize: strip apostrophes");
52 my $apos = OpenILS::Utils::Normalize::search_normalize("it's time");
53 is($apos, "it s time", "search_normalize: replace apostrophes with space");
55 my $raw_marcxml = <<RAWMARC;
56 <?xml version="1.0" encoding="utf-8"?>
58 <leader>01614nmm a22003975u 4500</leader>
59 <controlfield tag="001">978-0-387-35767-6</controlfield>
60 <controlfield tag="003">Springer</controlfield>
61 <controlfield tag="005">20071022150035.8</controlfield>
62 <controlfield tag="007">cr nn 008mamaa</controlfield>
63 <controlfield tag="008">071022s2008 xx j eng d</controlfield>
64 <datafield tag="020" ind1=" " ind2=" ">
65 <subfield code="a">9780387685748</subfield>
67 <datafield tag="100" ind1="1" ind2=" ">
68 <subfield code="a">Neteler, Markus.</subfield>
70 <datafield tag="245" ind1="1" ind2="0">
71 <subfield code="a">Open Source GIS</subfield>
72 <subfield code="h">[electronic resource] :</subfield>
73 <subfield code="b">A GRASS GIS Approach /</subfield>
74 <subfield code="c">edited by Markus Neteler, Helena Mitasova.</subfield>
76 <datafield tag="250" ind1=" " ind2=" ">
77 <subfield code="a">Third Edition.</subfield>
79 <datafield tag="260" ind1=" " ind2=" ">
80 <subfield code="a">Boston, MA :</subfield>
81 <subfield code="b">Springer Science+Business Media, LLC,</subfield>
82 <subfield code="c">2008.</subfield>
86 my $exp_xml = '<record><leader>01614nmm a22003975u 4500</leader><controlfield tag="001">978-0-387-35767-6</controlfield><controlfield tag="003">Springer</controlfield><controlfield tag="005">20071022150035.8</controlfield><controlfield tag="007">cr nn 008mamaa</controlfield><controlfield tag="008">071022s2008 xx j eng d</controlfield><datafield tag="020" ind1=" " ind2=" "><subfield code="a">9780387685748</subfield></datafield><datafield tag="100" ind1="1" ind2=" "><subfield code="a">Neteler, Markus.</subfield></datafield><datafield tag="245" ind1="1" ind2="0"><subfield code="a">Open Source GIS</subfield><subfield code="h">[electronic resource] :</subfield><subfield code="b">A GRASS GIS Approach /</subfield><subfield code="c">edited by Markus Neteler, Helena Mitasova.</subfield></datafield><datafield tag="250" ind1=" " ind2=" "><subfield code="a">Third Edition.</subfield></datafield><datafield tag="260" ind1=" " ind2=" "><subfield code="a">Boston, MA :</subfield><subfield code="b">Springer Science+Business Media, LLC,</subfield><subfield code="c">2008.</subfield></datafield></record>';
87 my $clean_xml = OpenILS::Utils::Normalize::clean_marc($raw_marcxml);
88 is($clean_xml, $exp_xml, "clean_marc: header and space normalization");
90 is(OpenILS::Application::AppUtils->entityize('èöçÇÈÀ'), 'èöçÇÈÀ', 'entityize: diacritics NFC');
91 is(OpenILS::Application::AppUtils->entityize('èöçÇÈÀ', 'D'), 'èöçÇÈÀ', 'entityize: diacritics NFD');
92 is(OpenILS::Utils::Normalize::clean_marc('èöçÇÈÀ'), 'èöçÇÈÀ', 'clean_marc: diacritics');
94 my $edi_invoice = "UNA:+.? 'UNB+UNOC:3+1556150:31B+123EVER:31B+120926:1621+4'UNH+11+INVOIC:D:96A:UN'BGM+380+5TST084026+9'DTM+137:20120924:102'RFF+ON:24'NAD+BY+123EVER 0001::91'NAD+SU+1691503::31B'CUX+2:USD:4'LIN+1++9780446360272'QTY+47:5'MOA+146:4.5:USD:10'MOA+203:14.65'PRI+AAF:2.93:DI:NTP'RFF+LI:24/102'LIN+2++9780446357197'QTY+47:8'MOA+146:6.5:USD:10'MOA+203:33.84'PRI+AAF:4.23:DI:NTP'RFF+LI:24/100'UNS+S'MOA+86:66.18'ALC+C++++DL'MOA+8:2'ALC+C++++CA'MOA+131:12.3'ALC+C++++TX'MOA+8:3.39'UNT+28+11'UNH+12+INVOIC:D:96A:UN'BGM+380+5TST084027+9'DTM+137:20120924:102'RFF+ON:26'NAD+BY+123EVER 0001::91'NAD+SU+1691503::31B'CUX+2:USD:4'LIN+1++9780446360272'QTY+47:1'MOA+146:4.5:USD:10'MOA+203:4.05'PRI+AAF:4.05:DI:NTP'RFF+LI:26/106'LIN+2++9780446350105'QTY+47:3'MOA+146:6.99:USD:10'MOA+203:14.67'PRI+AAF:4.89:DI:NTP'RFF+LI:26/105'UNS+S'MOA+86:25.03'ALC+C++++DL'MOA+8:2'ALC+C++++CA'MOA+131:3'ALC+C++++TX'MOA+8:1.31'UNT+28+12'UNZ+4+4'";
96 my $edi_msgs = OpenILS::Utils::EDIReader->new->read($edi_invoice);
98 is($edi_msgs->[0]->{message_type}, 'INVOIC', 'edi reader: message type');
99 is($edi_msgs->[0]->{purchase_order}, '24', 'edi reader: PO number');
100 is($edi_msgs->[1]->{invoice_ident}, '5TST084027', 'edi reader: invoice ident');
101 is(scalar(@{$edi_msgs->[1]->{lineitems}}), '2', 'edi reader: lineitem count');