use C4::Debug;
require C4::Context;
-use Test::More tests => 174;
+use Test::More tests => 194;
use Test::MockModule;
use MARC::Record;
use File::Spec;
use File::Path;
use DBI;
+# work around spurious wide character warnings
+binmode Test::More->builder->output, ":utf8";
+binmode Test::More->builder->failure_output, ":utf8";
+
our $child;
our $datadir;
my $sourcedir = dirname(__FILE__) . "/data";
unlink("$datadir/zebra.log");
- my $zebra_bib_cfg = ($indexing_mode eq 'dom') ? 'zebra-biblios-dom.cfg' : 'zebra-biblios.cfg';
- system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios init");
- system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios update $sourcedir/${marc_type}/zebraexport/biblio");
- system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios commit");
+ if (-f "$sourcedir/${marc_type}/zebraexport/biblio/exported_records") {
+ my $zebra_bib_cfg = ($indexing_mode eq 'dom') ? 'zebra-biblios-dom.cfg' : 'zebra-biblios.cfg';
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios init");
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios update $sourcedir/${marc_type}/zebraexport/biblio");
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg -v none,fatal,warn -g iso2709 -d biblios commit");
+ }
+ if (-f "$sourcedir/${marc_type}/zebraexport/authority/exported_records") {
+ my $zebra_auth_cfg = ($indexing_mode eq 'dom') ? 'zebra-authorities-dom.cfg' : 'zebra-authorities.cfg';
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_auth_cfg -v none,fatal,warn -g iso2709 -d authorities init");
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_auth_cfg -v none,fatal,warn -g iso2709 -d authorities update $sourcedir/${marc_type}/zebraexport/authority");
+ system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_auth_cfg -v none,fatal,warn -g iso2709 -d authorities commit");
+ }
$child = fork();
if ($child == 0) {
return '';
} elsif ($pref eq 'AlternateHoldingsField') {
return '490av';
+ } elsif ($pref eq 'authoritysep') {
+ return '--';
} else {
warn "The syspref $pref was requested but I don't know what to say; this indicates that the test requires updating"
unless $pref =~ m/(XSLT|item|branch|holding|image)/i;
like($query, qr/$match/, $message);
}
+ # authority records
+ use_ok('C4::AuthoritiesMarc');
+ $UseQueryParser = 0;
+
+ my ($auths, $count) = SearchAuthorities(
+ ['mainentry'], ['and'], [''], ['starts'],
+ ['shakespeare'], 0, 10, '', '', 1
+ );
+ is($count, 1, 'MARC21 authorities: one hit on mainentry starts with "shakespeare"');
+ ($auths, $count) = SearchAuthorities(
+ ['match'], ['and'], [''], ['contains'],
+ ['沙士北亞威廉姆'], 0, 10, '', '', 1
+ );
+ is($count, 1, 'MARC21 authorities: one hit on match contains "沙士北亞威廉姆"');
+
cleanup();
}
( $error, $marcresults, $total_hits ) = SimpleSearch("item=EXCLU DU PRET", 0, 10);
is($total_hits, 1, 'UNIMARC generic item index (bug 10037)');
+ # authority records
+ use_ok('C4::AuthoritiesMarc');
+ $UseQueryParser = 0;
+
+ my ($auths, $count) = SearchAuthorities(
+ ['mainentry'], ['and'], [''], ['contains'],
+ ['wil'], 0, 10, '', '', 1
+ );
+ is($count, 11, 'UNIMARC authorities: hits on mainentry contains "wil"');
+ ($auths, $count) = SearchAuthorities(
+ ['match'], ['and'], [''], ['contains'],
+ ['wil'], 0, 10, '', '', 1
+ );
+ is($count, 11, 'UNIMARC authorities: hits on match contains "wil"');
+ ($auths, $count) = SearchAuthorities(
+ ['mainentry'], ['and'], [''], ['contains'],
+ ['michel'], 0, 20, '', '', 1
+ );
+ is($count, 14, 'UNIMARC authorities: hits on mainentry contains "michel"');
+ ($auths, $count) = SearchAuthorities(
+ ['mainmainentry'], ['and'], [''], ['exact'],
+ ['valley'], 0, 20, '', '', 1
+ );
+ is($count, 1, 'UNIMARC authorities: hits on mainmainentry = "valley"');
+ ($auths, $count) = SearchAuthorities(
+ ['mainmainentry'], ['and'], [''], ['exact'],
+ ['vall'], 0, 20, '', '', 1
+ );
+ is($count, 0, 'UNIMARC authorities: no hits on mainmainentry = "vall"');
+ ($auths, $count) = SearchAuthorities(
+ ['Any'], ['and'], [''], ['starts'],
+ ['jean'], 0, 30, '', '', 1
+ );
+ is($count, 24, 'UNIMARC authorities: hits on any starts with "jean"');
+
cleanup();
}
+07862cz a2201717n 4500001000200000003000400002005001700006008004100023010003100064035002300095040014500118046003700263046002300300053001900323100003700342370008000379372001200459374001700471374002200488374001800510375000900528377000800537400003600545400003700581400003700618400003500655400003600690400003300726400002800759400004100787400003400828400003100862400003100893400002700924400003700951400003700988400003101025400004701056400003401103400003901137400003801176400002401214400002601238400003301264400003901297400003501336400003901371400002501410400003901435400003401474400004001508400004201548400003001590400004101620400004301661400003801704400002901742400002801771400002601799400004501825400004501870400004901915400004001964400003502004400003302039400004502072400004302117400004102160400002302201400004902224400003702273400004902310400005002359400004002409400001902449400002502468400004702493400003502540400003702575400004902612400003802661400004502699400004702744400003602791400001902827400003502846400001702881400002302898400003302921400004502954400004302999400002903042400003103071400004303102400004303145400002903188400004103217400003003258400003003288400003003318400002803348400004103376400002303417400002803440400003203468400003203500400004603532400003003578400002803608400002603636400003803662400003803700400003803738400003503776400002903811667005603840667004703896670005203943670009703995670008404092670009404176670004904270670007004319670003104389670005804420670013404478670006604612670005604678670005404734670006804788670007104856670009104927670005105018670002605069670010605095670012205201670005505323670013405378670006705512670007105579670004405650670004505694670031005739678008006049942001506129\1e6\1eDLC\1e20131010200219.0\1e831215n| azannaabn |b aaa \1e \1fan 78095332 \1fzsh 85120820 \1e \1fa(OCoLC)oca00230409\1e \1faDLC\1fbeng\1ferda\1fcDLC\1fdDLC\1fdMH\1fdOCoLC\1fdNjP\1fdIU\1fdWU\1fdDLC\1fdOCoLC\1fdWU\1fdDLC\1fdDLC-OK\1fdUk\1fdSG-SiILA\1fdCU-HE\1fdUk\1fdDLC\1fdInU\1fdOCoLC\1fdCSt\1fdOCoLC\1fdCSt\1fdUPB\1e \1ff[..1564-04-26]\1fg1616-04-23\1f2edtf\1e \1ff15640426\1fg16160423\1e 0\1faPR2750\1fbPR3112\1e1 \1faShakespeare, William,\1fd1564-1616\1e \1faStratford-upon-Avon, England\1fbStratford-upon-Avon, England\1feLondon, England\1e \1faTheatre\1e \1faPoet\1f2itoamc\1e \1faDramatist\1f2itoamc\1e \1faActor\1f2itoamc\1e \1famale\1e \1faeng\1e1 \1faShakspeare, William,\1fd1564-1616\1e1 \1faŠekʻspiri, Uiliam,\1fd1564-1616\1e1 \1faSaixpēr, Gouilliam,\1fd1564-1616\1e1 \1faShakspere, William,\1fd1564-1616\1e1 \1faShikisbīr, Wilyam,\1fd1564-1616\1e1 \1faSzekspir, Wiliam,\1fd1564-1616\1e1 \1faŠekspyras,\1fd1564-1616\1e1 \1faShekspir, Vilʹi︠a︡m,\1fd1564-1616\1e1 \1faŠekspir, Viljem,\1fd1564-1616\1e1 \1faTsikinya-chaka,\1fd1564-1616\1e1 \1faSha-shih-pi-ya,\1fd1564-1616\1e1 \1faShashibiya,\1fd1564-1616\1e1 \1faSheḳspir, Ṿilyam,\1fd1564-1616\1e1 \1faShaḳspir, Ṿilyam,\1fd1564-1616\1e1 \1faSyeiksŭpʻio,\1fd1564-1616\1e1 \1faShekspir, V.\1fq(Vilʹi︠a︡m),\1fd1564-1616\1e1 \1faSzekspir, William,\1fd1564-1616\1e1 \1faShakespeare, Guglielmo,\1fd1564-1616\1e1 \1faShake-speare, William,\1fd1564-1616\1e0 \1faSha-ō,\1fd1564-1616\1e1 \1faŞekspir,\1fd1564-1616\1e1 \1faShekspir, Uiliam,\1fd1564-1616\1e1 \1faShekspir, U.\1fq(Uiliam),\1fd1564-1616\1e1 \1faŠekspir, Vilijam,\1fd1564-1616\1e1 \1faṢēkspiyar, Viliyam,\1fd1564-1616\1e1 \1faShakspir,\1fd1564-1616\1e1 \1faShekspyr, Vyli︠e︡m,\1fd1564-1616\1e1 \1faŞekspir, Velyam,\1fd1564-1616\1e1 \1faṢēkspiyar, Villiyam,\1fd1564-1616\1e1 \1faShēkʻspʻiyr, Vlilliam,\1fd1564-1616\1e1 \1faṢēkspiyar,\1fd1564-1616\1e1 \1faṢēkspiyar Mahākavi,\1fd1564-1616\1e1 \1faṢēkspiyar Mahākaviya,\1fd1564-1616\1e1 \1faSheḳspier, Ṿilyam,\1fd1564-1616\1e1 \1faShēkʻspir,\1fd1564-1616\1e1 \1faShakespeare,\1fd1564-1616\1e0 \1faŚeksper,\1fd1564-1616\1e1 \1faШекспир, Вильям,\1fd1564-1616\1e1 \1faШекспир, Уильям,\1fd1564-1616\1e1 \1faשייקספיר, וויליאם,\1fd1564-1616\1e1 \1faשייקספיר, וו.,\1fd1564-1616\1e1 \1faשיקספיר, וויליאם\1e1 \1faשיקספיר, ויליאם\1e1 \1faשיקספיר, ויליאם,\1fd1564-1616\1e1 \1faשכספיר, ויליאם,\1fd1564-1616\1e1 \1faשכספיר, וילים,\1fd1564-1616\1e1 \1faשכספיר, ו׳\1e1 \1faשעפקספיר, וויליאם,\1fd1564-1616\1e1 \1faשעקספיער, וויליאם\1e1 \1faשעקספיער, וויליאם,\1fd1564-1616\1e1 \1faשעקספיער, ווילליאם\1fd1564-1616\1e1 \1faשעקספיער, וו.,\1fd1564-1616\1e1 \1faשעקספיר\1e1 \1faשעקספיר, וו\1e1 \1faשעקספיר, וויליאם,\1fd1564-1616\1e1 \1faשעקספיר, וויליאמ\1e1 \1faשעקספיר, ווילליאם\1e1 \1faשעקספיר, ווילליאם,\1fd1564-1616\1e1 \1faשעקספיר, וו.,\1fd1564-1616\1e1 \1faשעקספיר, װיליאם,\1fd1564-1616\1e1 \1faשעקספיר, װילליאם,\1fd1564-1616\1e1 \1faשעקספיר, װ.,\1fd1564-1616\1e1 \1faשעקספער\1e1 \1faשעקספער, וויליאמ\1e1 \1faשקספיר\1e1 \1faשקספיר, וו\1e1 \1faשקספיר, וויליאם\1e1 \1faשקספיר, וויליאם,\1fd1564-1616\1e1 \1faשקספיר, ווילים,\1fd1564-1616\1e1 \1faשקספיר, וילאם\1e1 \1faשקספיר, ויליאם\1e1 \1faשקספיר, ויליאם,\1fd1564-1616\1e1 \1faשקספיר, ויליים,\1fd1564-1616\1e1 \1faשקספיר, וילים\1e1 \1faשקספיר, וילים,\1fd1564-1616\1e1 \1faشاكسبير، وليم\1e1 \1faشاكسپير، وليم\1e1 \1faشكسبير، وليام\1e1 \1faشكسبير، وليم\1e1 \1faشكسبير، وليم،\1fd1564-1616\1e1 \1faشكسبير، و.\1e1 \1faشكسپير، وليم\1e1 \1faشكسپير، ويليام\1e1 \1faشيكسبير، وليام\1e1 \1faشيكسبير، وليام.،\1fd1564-1616\1e1 \1faشيكسبير، وليم\1e1 \1faشکسبير، وليم\1e1 \1faوليم شکسبير\1e1 \1fa沙士北亞威廉姆,\1fd1564-1616\1e1 \1fa沙士比亞威廉姆,\1fd1564-1616\1e1 \1fa莎士比亞威廉姆,\1fd1564-1616\1e1 \1fa莎士比亞威廉,\1fd1564-1616\1e1 \1fa莎士比亞,\1fd1564-1616\1e \1faMachine-derived non-Latin script reference project.\1e \1faNon-Latin script references not evaluated.\1e \1faPlessow, G. L. Um Shakespeares nordentum, 1937.\1e \1faSha-shih-pi-ya yen chiu wen chi, 1982 (subj.)\1fbt.p. (Sha-shih-pi-ya) cover p. 4 (Shashibiya)\1e \1faHis The plays and poems of William Shakspeare, 1966:\1fbt.p. (William Shakspeare)\1e \1faHamleṭ ṿe-Sheḳspir, c1983:\1fbp. 19 (Ṿilyam Sheḳspir; b. 4-26-1564; d. 4-25-1616)\1e \1faSyeiksŭpʻio, 1978:\1fbt.p. (Syeiksŭpʻio)\1e \1faIskusstvo klassicheskogo monologa [SR] 19--:\1fblabel (V. Shekspir)\1e \1faUiliam Šekʻspiri, 1996.\1e \1faHelsztyński, S. Wizerunek Williama Szekspira, 1947.\1e \1fanuc86-2792: Doccioli, M. Fonti italiane dei drammi di Guglielmo Shakespeare [MI] 1914\1fb(hdg.: on NIC rept.: Shakespeare, William)\1e \1faHis Shake-speares sonnets, 1984:\1fbt.p. (William Shake-speare)\1e \1faHis Toroirasu to Kureshida, 1927:\1fbp. 290 (Sha-ō)\1e \1faNihon kokugo d.j.\1fb(Sha-ō: Shakespeare William)\1e \1faHis Kral Lir, 1912:\1fbt.p. (Şekspir; W. Shakespeare [in rom.])\1e \1faUiliam Shekspir, 1982:\1fbt.p. (Uiliam Shekspir) cover (U. Shekspir)\1e \1faObradović, M. "Narodna demokratija" u Jugoslaviji, 1995:\1fbp. [5] (Vilijam Šekspir)\1e \1faHāmleṭ, 1962:\1fbt.p (Viliyam Ṣēkspiyar)\1e \1faNāy Shakspir, 1972.\1e \1faBL auth. file, 10 Nov. 2004\1fb(refs.: Shekspyr, Vyli︠e︡m, 1564-1616; Şekspir, Velyam, 1564-1616)\1e \1faSILAS database, Dec. 28, 2004\1fb(hdg.: Shakespeare, William, 1564-1616; usages: Villiyam Ṣēkspiyar; Ṣēkspiyar)\1e \1faRu̇miyoo Ju̇liy-e qoyar, 1988:\1fbt.p. (Śeksper)\1e \1faLC database, Dec. 28, 2004\1fb(hdg.: Shakespeare, William, 1564-1616; usages: Ṣēkspiyar Mahākavi; Ṣēkspiyar Mahākaviya)\1e \1faYulius Tsezar, 1918:\1fbt.p. (Ṿilyam Sheḳspier [part. voc.])\1e \1faHṛomēos ew Ciwleēdda, 1866:\1fbp. 9 (Vlilliam Shēkʻspʻiyr)\1e \1faArkʻay Lir, 2006:\1fbt.p. (Shēkʻspir)\1e \1faHark, hark the lark, 1934\1fb(Shakespeare)\1e \1faEncyclopedia Britannica, via WWW, Aug. 31, 2012\1fb(William Shakespeare; William Shakspere; byname Bard of Avon or Swan of Avon; baptized Apr. 26, 1564 in Stratford-upon-Avon, Warwickshire, Eng.; d. Apr. 23, 1616 in Stratford-upon-Avon; English poet, dramatist, and actor; worked in London from around 1592)\1e0 \1faWilliam Shakespeare (1564-1616) was an English poet, playwright, and actor.\1e \1faPERSO_NAME\1e\1d
\ No newline at end of file
projects / koha_ffzg / commitdiff