Merge remote-tracking branch 'origin/new/bug_6865'

[koha_fer] / t / db_dependent / Acquisition.t

diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 241f442..ab0b6d0 100755 (executable)
--- 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' ] ) );