t/db_dependent/SIP/Patron.t

   1 #!/usr/bin/perl
   2
   3 # Some tests for SIP::ILS::Patron
   4 # This needs to be extended! Your help is appreciated..
   5
   6 use Modern::Perl;
   7 use Test::More tests => 2;
   8
   9 use Koha::Database;
  10 use t::lib::TestBuilder;
  11 use C4::SIP::ILS::Patron;
  12
  13 my $schema = Koha::Database->new->schema;
  14 $schema->storage->txn_begin;
  15
  16 my $builder = t::lib::TestBuilder->new();
  17 my $patron1 = $builder->build({ source => 'Borrower' });
  18 my $card = $patron1->{cardnumber};
  19
  20 # Check existing card number
  21 my $sip_patron = C4::SIP::ILS::Patron->new( $card );
  22 is( defined $sip_patron, 1, "Patron is valid" );
  23
  24 # Check invalid cardnumber by deleting patron
  25 $schema->resultset('Borrower')->search({ cardnumber => $card })->delete;
  26 my $sip_patron2 = C4::SIP::ILS::Patron->new( $card );
  27 is( $sip_patron2, undef, "Patron is not valid (anymore)" );
  28
  29 $schema->storage->txn_rollback;