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 => 76;
11
use Test::More tests => 88;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
Lines 911-914 is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is give Link Here
911
$nonexistent_order = GetOrder( 424242424242 );
911
$nonexistent_order = GetOrder( 424242424242 );
912
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
912
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
913
913
914
# Tests for DelOrder
915
my $order1 = GetOrder($ordernumbers[0]);
916
my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber});
917
ok((not defined $error), "DelOrder does not fail");
918
$order1 = GetOrder($order1->{ordernumber});
919
ok((defined $order1->{datecancellationprinted}), "order is cancelled");
920
ok((not defined $order1->{cancellationreason}), "order has no cancellation reason");
921
ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists");
922
923
my $order2 = GetOrder($ordernumbers[1]);
924
my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1);
925
ok((not defined $error), "DelOrder does not fail");
926
$order2 = GetOrder($order2->{ordernumber});
927
ok((defined $order2->{datecancellationprinted}), "order is cancelled");
928
ok((not defined $order2->{cancellationreason}), "order has no cancellation reason");
929
ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore");
930
931
my $order4 = GetOrder($ordernumbers[3]);
932
my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar");
933
ok((not defined $error), "DelOrder does not fail");
934
$order4 = GetOrder($order4->{ordernumber});
935
ok((defined $order4->{datecancellationprinted}), "order is cancelled");
936
ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\"");
937
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
938
# End of tests for DelOrder
939
914
$dbh->rollback;
940
$dbh->rollback;
915
- 

Return to bug 7162