Merge remote-tracking branch 'origin/new/bug_5347'
authorPaul Poulain <paul.poulain@biblibre.com>
Wed, 18 Apr 2012 15:02:25 +0000 (17:02 +0200)
committerPaul Poulain <paul.poulain@biblibre.com>
Wed, 18 Apr 2012 15:02:25 +0000 (17:02 +0200)
t/db_dependent/Acquisition.t

index ab0b6d0..6e845f8 100755 (executable)
@@ -33,10 +33,13 @@ 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 Late Orders, cannot test AddClaim', 1 unless @lateorders;
+   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 );
@@ -56,7 +59,7 @@ SKIP: {
                              entrydate
                              firstname
                              freight
-                             gst
+                             gstrate
                              listprice
                              notes
                              ordernumber