t/Acquisition.t

   1 BEGIN { $| = 1; print "1..3\n"; }
   2 END {print "not ok 1\n" unless $loaded;}
   3 use C4::Acquisition;
   4 $loaded = 1;
   5 print "ok 1\n";
   6
   7 $basketno=NewBasket(1,1);
   8 if ($basketno){
   9   print "ok 2\n";
  10 }
  11 else {
  12   print "not ok 2\n";
  13 }
  14
  15 if ($basket=GetBasket($basketno)){
  16   print "ok 3\n";
  17 }
  18 else {
  19   print "not ok 3\n";
  20 }