From 2d92ee642a6592bb96f45c30aa23a537d0d9592f Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 2 May 2016 17:42:29 -0300 Subject: [PATCH] Bug 16423: (followup) Add more tests Content-Type: text/plain; charset=utf-8 On fixing this tests, we retrieved the JSON data for the datatable used on the 'Manage staged records' page. It would be cool to check the data it carries makes sense. To test: - Run t/db_dependent/www/batch.t => SUCCESS: Tests pass - Sign off :-D Signed-off-by: Bernardo Gonzalez Kriegel All test pass prove t/db_dependent/www/batch.t t/db_dependent/www/batch.t .. ok All tests successful. Signed-off-by: Marcel de Rooy --- t/db_dependent/www/batch.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/www/batch.t b/t/db_dependent/www/batch.t index bf04ea1..0390cf7 100644 --- a/t/db_dependent/www/batch.t +++ b/t/db_dependent/www/batch.t @@ -19,7 +19,7 @@ use Modern::Perl; use utf8; -use Test::More tests => 20; +use Test::More tests => 24; use Test::WWW::Mechanize; use XML::Simple; use JSON; @@ -178,6 +178,9 @@ $agent->get_ok( ); $jsonresponse = decode_json $agent->content; like( $jsonresponse->{ aaData }[0]->{ citation }, qr/$bookdescription/, 'found book' ); +is( $jsonresponse->{ aaData }[0]->{ status }, 'staged', 'record marked as staged' ); +is( $jsonresponse->{ aaData }[0]->{ overlay_status }, 'no_match', 'record has no matches' ); + my $biblionumber = $jsonresponse->{ aaData }[0]->{ import_record_id }; # Back to the manage staged records page $agent->get($staged_records_uri); @@ -185,6 +188,11 @@ $agent->form_number(6); $agent->field( 'framework', '' ); $agent->click_ok( 'mainformsubmit', "imported records into catalog" ); +$agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id"); +$jsonresponse = decode_json $agent->content; +is( $jsonresponse->{ aaData }[0]->{ status }, 'imported', 'record marked as imported' ); + +$agent->get($staged_records_uri); $agent->form_number(5); $agent->click_ok( 'mainformsubmit', "revert import" ); $agent->get_ok( @@ -193,4 +201,8 @@ $agent->get_ok( $agent->content_contains( 'The record you requested does not exist', 'bib is gone' ); +$agent->get("$intranet/cgi-bin/koha/tools/batch_records_ajax.pl?import_batch_id=$import_batch_id"); +$jsonresponse = decode_json $agent->content; +is( $jsonresponse->{ aaData }[0]->{ status }, 'reverted', 'record marked as reverted' ); + 1; -- 1.7.10.4