3 # Copyright 2012 C & P Bibliography Services
4 # Copyright 2017 Koha Development Team
6 # This is free software; you can redistribute it and/or modify it under the
7 # terms of the GNU General Public License as published by the Free Software
8 # Foundation; either version 2 of the License, or (at your option) any later
11 # This is distributed in the hope that it will be useful, but WITHOUT ANY
12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License along with
16 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
17 # Suite 330, Boston, MA 02111-1307 USA
23 use Test
::More tests
=> 26;
24 use Test
::WWW
::Mechanize
;
31 my $testdir = File
::Spec
->rel2abs( dirname
(__FILE__
) );
33 my $koha_conf = $ENV{KOHA_CONF
};
34 my $xml = XMLin
($koha_conf);
37 my $marcflavour = C4
::Context
->preference('marcflavour') || 'MARC21';
39 # For the purpose of this test, we can reasonably take MARC21 and NORMARC to be the same
41 $marcflavour eq 'UNIMARC'
42 ?
"$testdir/data/unimarcrecord.mrc"
43 : "$testdir/data/marc21record.mrc";
45 my $user = $ENV{KOHA_USER
} || $xml->{config
}->{user
};
46 my $password = $ENV{KOHA_PASS
} || $xml->{config
}->{pass
};
47 my $intranet = $ENV{KOHA_INTRANET_URL
};
49 BAIL_OUT
("You must set the environment variable KOHA_INTRANET_URL to ".
50 "point this test to your staff client. If you do not have ".
51 "KOHA_CONF set, you must also set KOHA_USER and KOHA_PASS for ".
52 "your username and password") unless $intranet;
56 my $agent = Test
::WWW
::Mechanize
->new( autocheck
=> 1 );
59 $agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'connect to intranet' );
60 $agent->form_name('loginform');
61 $agent->field( 'password', $password );
62 $agent->field( 'userid', $user );
63 $agent->field( 'branch', '' );
64 $agent->click_ok( '', 'login to staff client' );
66 $agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'load main page' );
68 $agent->follow_link_ok( { url_regex
=> qr/tools-home/i }, 'open tools module' );
69 $agent->follow_link_ok( { text
=> 'Stage MARC records for import' },
73 "$intranet/cgi-bin/koha/tools/upload-file.pl?temp=1",
74 [ 'fileToUpload' => [$file], ],
75 'Content_Type' => 'form-data',
77 ok
( $agent->success, 'uploaded file' );
79 $jsonresponse = decode_json
$agent->content();
80 is
( $jsonresponse->{'status'}, 'done', 'upload succeeded' );
81 my $fileid = $jsonresponse->{'fileid'};
83 $agent->get_ok( "$intranet/cgi-bin/koha/tools/stage-marc-import.pl",
84 'reopen stage MARC page' );
85 $agent->submit_form_ok(
89 'uploadedfileid' => $fileid,
90 'nomatch_action' => 'create_new',
91 'overlay_action' => 'replace',
92 'item_action' => 'always_add',
95 'encoding' => 'UTF-8',
97 'runinbackground' => '1',
98 'record_type' => 'biblio'
104 $jsonresponse = decode_json
$agent->content();
105 my $jobID = $jsonresponse->{'jobID'};
106 ok
( $jobID, 'have job ID' );
110 # if we haven't completed the batch in two minutes, it's not happening
111 for my $counter ( 1 .. 24 ) {
113 "$intranet/cgi-bin/koha/tools/background-job-progress.pl?jobID=$jobID"
114 ); # get job progress
115 $jsonresponse = decode_json
$agent->content();
116 if ( $jsonresponse->{'job_status'} eq 'completed' ) {
122 $jsonresponse->{'job_size'}
124 100 * $jsonresponse->{'progress'} / $jsonresponse->{'job_size'}
132 is
( $jsonresponse->{'job_status'}, 'completed', 'job was completed' );
135 "$intranet/cgi-bin/koha/tools/stage-marc-import.pl",
136 'reopen stage MARC page at end of upload'
138 $agent->submit_form_ok(
142 'uploadedfileid' => $fileid,
143 'nomatch_action' => 'create_new',
144 'overlay_action' => 'replace',
145 'item_action' => 'always_add',
148 'encoding' => 'UTF-8',
149 'parse_items' => '1',
150 'runinbackground' => '1',
151 'completedJobID' => $jobID,
152 'record_type' => 'biblio'
158 $agent->follow_link_ok( { text
=> 'Manage staged records' }, 'view batch' );
161 if ( $marcflavour eq 'UNIMARC' ) {
162 $bookdescription = 'Jeffrey Esakov et Tom Weiss';
165 $bookdescription = 'Data structures';
168 # Save the staged records URI for later use
169 my $staged_records_uri = $agent->uri;
171 my $import_batch_id = ( split( '=', $staged_records_uri->as_string ) )[-1];
172 # Get datatable for the batch id
174 "$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id",
175 'get the datatable for the new batch id'
177 $jsonresponse = decode_json
$agent->content;
178 like
( $jsonresponse->{ aaData
}[0]->{ citation
}, qr/$bookdescription/, 'found book' );
179 is
( $jsonresponse->{ aaData
}[0]->{ status
}, 'staged', 'record marked as staged' );
180 is
( $jsonresponse->{ aaData
}[0]->{ overlay_status
}, 'no_match', 'record has no matches' );
182 # Back to the manage staged records page
183 $agent->get($staged_records_uri);
184 $agent->form_number(6);
185 $agent->field( 'framework', '' );
186 $agent->click_ok( 'mainformsubmit', "imported records into catalog" );
188 $agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id");
189 $jsonresponse = decode_json
$agent->content;
190 is
( $jsonresponse->{ aaData
}[0]->{ status
}, 'imported', 'record marked as imported' );
192 my $biblionumber = $jsonresponse->{aaData
}[0]->{matched
};
195 "$intranet/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber",
196 'getting imported bib' );
197 $agent->content_contains( 'Details for ' . $bookdescription,
200 $agent->get($staged_records_uri);
201 $agent->form_number(5);
202 $agent->click_ok( 'mainformsubmit', "revert import" );
204 "$intranet/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber",
205 'getting reverted bib' );
206 $agent->content_contains( 'The record you requested does not exist',
209 $agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id");
210 $jsonresponse = decode_json
$agent->content;
211 is
( $jsonresponse->{ aaData
}[0]->{ status
}, 'reverted', 'record marked as reverted' );