t/db_dependent/Acquisition.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8 use Data::Dumper;
   9
  10 use C4::Bookseller;
  11
  12 use Test::More tests => 37;
  13
  14 BEGIN {
  15     use_ok('C4::Acquisition');
  16 }
  17
  18 my $booksellerid = 1;
  19 my $booksellerinfo = GetBookSellerFromId( $booksellerid );
  20 # diag( Data::Dumper->Dump( [ $booksellerinfo ], [ 'booksellerinfo' ] ) );
  21 SKIP: {
  22     skip 'No booksellers in database, cannot test baskets', 2 unless $booksellerinfo;
  23     my ($basket, $basketno);
  24     ok($basketno = NewBasket(1,1),                      "NewBasket(  1 , 1  ) returns $basketno");
  25     ok($basket   = GetBasket($basketno),        "GetBasket($basketno) returns $basket");
  26 }
  27
  28
  29 my $supplierid = 1;
  30 my $grouped    = 0;
  31 my $orders = GetPendingOrders( $supplierid, $grouped );
  32 isa_ok( $orders, 'ARRAY' );
  33 SKIP: {
  34     skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
  35     # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
  36     my @expectedfields = qw( basketno
  37                              biblioitemnumber
  38                              biblionumber
  39                              booksellerinvoicenumber
  40                              budgetdate
  41                              cancelledby
  42                              closedate
  43                              creationdate
  44                              currency
  45                              datecancellationprinted
  46                              datereceived
  47                              ecost
  48                              entrydate
  49                              firstname
  50                              freight
  51                              gst
  52                              listprice
  53                              notes
  54                              ordernumber
  55                              purchaseordernumber
  56                              quantity
  57                              quantityreceived
  58                              rrp
  59                              serialid
  60                              sort1
  61                              sort2
  62                              subscription
  63                              supplierreference
  64                              surname
  65                              timestamp
  66                              title
  67                              totalamount
  68                              unitprice );
  69     my $firstorder = $orders->[0];
  70     for my $field ( @expectedfields ) {
  71         ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
  72     }
  73 }