Lines 19-25
Link Here
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
|
20 |
|
21 |
use utf8; |
21 |
use utf8; |
22 |
use Test::More tests => 20; |
22 |
use Test::More tests => 24; |
23 |
use Test::WWW::Mechanize; |
23 |
use Test::WWW::Mechanize; |
24 |
use XML::Simple; |
24 |
use XML::Simple; |
25 |
use JSON; |
25 |
use JSON; |
Lines 178-183
$agent->get_ok(
Link Here
|
178 |
); |
178 |
); |
179 |
$jsonresponse = decode_json $agent->content; |
179 |
$jsonresponse = decode_json $agent->content; |
180 |
like( $jsonresponse->{ aaData }[0]->{ citation }, qr/$bookdescription/, 'found book' ); |
180 |
like( $jsonresponse->{ aaData }[0]->{ citation }, qr/$bookdescription/, 'found book' ); |
|
|
181 |
is( $jsonresponse->{ aaData }[0]->{ status }, 'staged', 'record marked as staged' ); |
182 |
is( $jsonresponse->{ aaData }[0]->{ overlay_status }, 'no_match', 'record has no matches' ); |
183 |
|
181 |
my $biblionumber = $jsonresponse->{ aaData }[0]->{ import_record_id }; |
184 |
my $biblionumber = $jsonresponse->{ aaData }[0]->{ import_record_id }; |
182 |
# Back to the manage staged records page |
185 |
# Back to the manage staged records page |
183 |
$agent->get($staged_records_uri); |
186 |
$agent->get($staged_records_uri); |
Lines 185-190
$agent->form_number(6);
Link Here
|
185 |
$agent->field( 'framework', '' ); |
188 |
$agent->field( 'framework', '' ); |
186 |
$agent->click_ok( 'mainformsubmit', "imported records into catalog" ); |
189 |
$agent->click_ok( 'mainformsubmit', "imported records into catalog" ); |
187 |
|
190 |
|
|
|
191 |
$agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id"); |
192 |
$jsonresponse = decode_json $agent->content; |
193 |
is( $jsonresponse->{ aaData }[0]->{ status }, 'imported', 'record marked as imported' ); |
194 |
|
195 |
$agent->get($staged_records_uri); |
188 |
$agent->form_number(5); |
196 |
$agent->form_number(5); |
189 |
$agent->click_ok( 'mainformsubmit', "revert import" ); |
197 |
$agent->click_ok( 'mainformsubmit', "revert import" ); |
190 |
$agent->get_ok( |
198 |
$agent->get_ok( |
Lines 193-196
$agent->get_ok(
Link Here
|
193 |
$agent->content_contains( 'The record you requested does not exist', |
201 |
$agent->content_contains( 'The record you requested does not exist', |
194 |
'bib is gone' ); |
202 |
'bib is gone' ); |
195 |
|
203 |
|
|
|
204 |
$agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id"); |
205 |
$jsonresponse = decode_json $agent->content; |
206 |
is( $jsonresponse->{ aaData }[0]->{ status }, 'reverted', 'record marked as reverted' ); |
207 |
|
196 |
1; |
208 |
1; |
197 |
- |
|
|