t/db_dependent/SIP/Transaction.t

   1 #!/usr/bin/perl
   2
   3 # Tests for SIP::ILS::Transaction
   4 # Current state is very rudimentary. Please help to extend it!
   5
   6 use Modern::Perl;
   7 use Test::More tests => 3;
   8
   9 use Koha::Database;
  10 use t::lib::TestBuilder;
  11 use C4::SIP::ILS::Patron;
  12 use C4::SIP::ILS::Transaction::RenewAll;
  13
  14 my $schema = Koha::Database->new->schema;
  15 $schema->storage->txn_begin;
  16
  17 my $builder = t::lib::TestBuilder->new();
  18 my $borr1 = $builder->build({ source => 'Borrower' });
  19 my $card = $borr1->{cardnumber};
  20 my $sip_patron = C4::SIP::ILS::Patron->new( $card );
  21
  22 # Create transaction RenewAll, assign patron, and run (no items)
  23 my $transaction = C4::SIP::ILS::Transaction::RenewAll->new();
  24 is( ref $transaction, "C4::SIP::ILS::Transaction::RenewAll", "New transaction created" );
  25 is( $transaction->patron( $sip_patron ), $sip_patron, "Patron assigned to transaction" );
  26 isnt( $transaction->do_renew_all, undef, "RenewAll on zero items" );
  27
  28 $schema->storage->txn_rollback;