X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FAcquisition.t;h=ab0b6d029449f904af16ffa6c269740788169716;hb=bd28b8d6c3ab15ae278d7d9eddc73e3af786e87f;hp=241f4429e2597567dda88f4540195c7c8be30360;hpb=a5325c4fccabe0ca79eeb432116d23186c00140c;p=koha_fer

diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 241f4429e2..ab0b6d0294 100755
--- a/t/db_dependent/Acquisition.t
+++ b/t/db_dependent/Acquisition.t
@@ -6,10 +6,11 @@
 use strict;
 use warnings;
 use Data::Dumper;
+use POSIX qw(strftime);
 
-use C4::Bookseller;
+use C4::Bookseller qw( GetBookSellerFromId );
 
-use Test::More tests => 37;
+use Test::More tests => 38;
 
 BEGIN {
     use_ok('C4::Acquisition');
@@ -30,6 +31,13 @@ my $supplierid = 1;
 my $grouped    = 0;
 my $orders = GetPendingOrders( $supplierid, $grouped );
 isa_ok( $orders, 'ARRAY' );
+
+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" );
+
 SKIP: {
     skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
     # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );