From 29a155f3fc65ae91a4c3bfded66dafae4ab7334a Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 13 Jun 2014 12:55:44 +0200 Subject: [PATCH] [PASSED QA] Bug 7162: Add unit tests for DelOrder Signed-off-by: Katrin Fischer --- t/db_dependent/Acquisition.t | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t index 837024a..8abb0e0 100755 --- a/t/db_dependent/Acquisition.t +++ b/t/db_dependent/Acquisition.t @@ -8,7 +8,7 @@ use POSIX qw(strftime); use C4::Bookseller qw( GetBookSellerFromId ); -use Test::More tests => 79; +use Test::More tests => 88; BEGIN { use_ok('C4::Acquisition'); @@ -925,4 +925,30 @@ is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is give $nonexistent_order = GetOrder( 424242424242 ); is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); +# Tests for DelOrder +my $order1 = GetOrder($ordernumbers[0]); +my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber}); +ok((not defined $error), "DelOrder does not fail"); +$order1 = GetOrder($order1->{ordernumber}); +ok((defined $order1->{datecancellationprinted}), "order is cancelled"); +ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); +ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists"); + +my $order2 = GetOrder($ordernumbers[1]); +my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); +ok((not defined $error), "DelOrder does not fail"); +$order2 = GetOrder($order2->{ordernumber}); +ok((defined $order2->{datecancellationprinted}), "order is cancelled"); +ok((not defined $order2->{cancellationreason}), "order has no cancellation reason"); +ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore"); + +my $order4 = GetOrder($ordernumbers[3]); +my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); +ok((not defined $error), "DelOrder does not fail"); +$order4 = GetOrder($order4->{ordernumber}); +ok((defined $order4->{datecancellationprinted}), "order is cancelled"); +ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\""); +ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore"); +# End of tests for DelOrder + $dbh->rollback; -- 1.9.1