|
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 |
- |
|
|