View | Details | Raw Unified | Return to bug 7162
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition.t (-2 / +27 lines)
Lines 8-14 use POSIX qw(strftime); Link Here
8
8
9
use C4::Bookseller qw( GetBookSellerFromId );
9
use C4::Bookseller qw( GetBookSellerFromId );
10
10
11
use Test::More tests => 75;
11
use Test::More tests => 87;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
Lines 884-887 is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is give Link Here
884
$nonexistent_order = GetOrder( 424242424242 );
884
$nonexistent_order = GetOrder( 424242424242 );
885
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
885
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
886
886
887
# Tests for DelOrder
888
my $order1 = GetOrder($ordernumbers[0]);
889
my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber});
890
ok((not defined $error), "DelOrder does not fail");
891
$order1 = GetOrder($order1->{ordernumber});
892
ok((defined $order1->{datecancellationprinted}), "order is cancelled");
893
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason");
894
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists");
895
896
my $order2 = GetOrder($ordernumbers[1]);
897
my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1);
898
ok((not defined $error), "DelOrder does not fail");
899
$order2 = GetOrder($order2->{ordernumber});
900
ok((defined $order2->{datecancellationprinted}), "order is cancelled");
901
ok((not defined $order2->{cancellationreason}), "order has no cancellation reason");
902
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore");
903
904
my $order4 = GetOrder($ordernumbers[3]);
905
my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar");
906
ok((not defined $error), "DelOrder does not fail");
907
$order4 = GetOrder($order4->{ordernumber});
908
ok((defined $order4->{datecancellationprinted}), "order is cancelled");
909
ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\"");
910
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
911
# End of tests for DelOrder
912
887
$dbh->rollback;
913
$dbh->rollback;
888
- 

Return to bug 7162