X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FAcquisition.t;h=90d5a883ec2d69be1a85df014d9b9507f6531a07;hb=4820462185a01cf33eb3329686fc1fc2172d8f25;hp=1fd8716fea76d221f0c6cf2c2f2bd8110df4db5f;hpb=156cbf4eb6daadbc1e96be0c600ab1279dd9c25b;p=koha-ffzg.git

diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 1fd8716fea..90d5a883ec 100755
--- a/t/db_dependent/Acquisition.t
+++ b/t/db_dependent/Acquisition.t
@@ -1,18 +1,132 @@
 #!/usr/bin/perl
 #
-# This Koha test module is a stub!  
+# This Koha test module is a stub!
 # Add more tests here!!!
 
-use strict;
-use warnings;
+use Modern::Perl;
+use POSIX qw(strftime);
 
-use Test::More tests => 3;
+use C4::Bookseller qw( GetBookSellerFromId );
+
+use Test::More tests => 41;
 
 BEGIN {
-        use_ok('C4::Acquisition');
+    use_ok('C4::Acquisition');
+    use_ok('C4::Bookseller');
+    use_ok('C4::Biblio');
+    use_ok('C4::Budgets');
+    use_ok('C4::Bookseller');
 }
 
+my $dbh = C4::Context->dbh;
+$dbh->{AutoCommit} = 0;
+$dbh->{RaiseError} = 1;
+
+my $booksellerid = C4::Bookseller::AddBookseller(
+    {
+        name => "my vendor",
+        address1 => "bookseller's address",
+        phone => "0123456",
+        active => 1,
+        deliverytime => 5,
+    }
+);
+
+my $booksellerinfo = C4::Bookseller::GetBookSellerFromId( $booksellerid );
+
+is($booksellerinfo->{deliverytime}, 5, 'set deliverytime when creating vendor (Bug 10556)');
+
 my ($basket, $basketno);
-ok($basketno = NewBasket(1,1),			"NewBasket(  1 , 1  ) returns $basketno");
-ok($basket   = GetBasket($basketno),	"GetBasket($basketno) returns $basket");
+ok($basketno = NewBasket($booksellerid, 1), "NewBasket(  $booksellerid , 1  ) returns $basketno");
+ok($basket   = GetBasket($basketno), "GetBasket($basketno) returns $basket");
+
+my $budgetid = C4::Budgets::AddBudget(
+    {
+        budget_code => "budget_code_test_getordersbybib",
+        budget_name => "budget_name_test_getordersbybib",
+    }
+);
+my $budget = C4::Budgets::GetBudget( $budgetid );
+
+my ($ordernumber1, $ordernumber2, $ordernumber3);
+my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
+my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
+( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
+    {
+        basketno => $basketno,
+        quantity => 24,
+        biblionumber => $biblionumber1,
+        budget_id => $budget->{budget_id},
+    }
+);
+
+( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
+    {
+        basketno => $basketno,
+        quantity => 42,
+        biblionumber => $biblionumber2,
+        budget_id => $budget->{budget_id},
+    }
+);
+
+( undef, $ordernumber3 ) = C4::Acquisition::NewOrder(
+    {
+        basketno => $basketno,
+        quantity => 4,
+        biblionumber => $biblionumber2,
+        budget_id => $budget->{budget_id},
+        ecost => 42,
+        rrp => 42,
+    }
+);
+
+my $orders = SearchOrders({
+    booksellerid => $booksellerid,
+    pending => 1
+});
+isa_ok( $orders, 'ARRAY' );
+
+C4::Acquisition::CloseBasket( $basketno );
+my @lateorders = GetLateOrders(0);
+my $order = $lateorders[0];
+AddClaim( $order->{ordernumber} );
+my $neworder = GetOrder( $order->{ordernumber} );
+is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
+
+my @expectedfields = qw( basketno
+                         biblionumber
+                         invoiceid
+                         budgetdate
+                         cancelledby
+                         closedate
+                         creationdate
+                         currency
+                         datecancellationprinted
+                         datereceived
+                         ecost
+                         entrydate
+                         firstname
+                         freight
+                         gstrate
+                         listprice
+                         notes
+                         ordernumber
+                         purchaseordernumber
+                         quantity
+                         quantityreceived
+                         rrp
+                         sort1
+                         sort2
+                         subscriptionid
+                         supplierreference
+                         surname
+                         timestamp
+                         title
+                         totalamount
+                         unitprice );
+my $firstorder = $orders->[0];
+for my $field ( @expectedfields ) {
+    ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
+}
 
+$dbh->rollback;