|
Line 0
Link Here
|
|
|
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; |