t/db_dependent/SIP_ILS.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
   9 use Test::More tests => 4;
  10
  11 BEGIN {
  12         use_ok('C4::SIP::ILS');
  13 };
  14
  15 my $transaction = C4::SIP::ILS::Transaction::RenewAll->new();
  16
  17 $transaction->patron(my $patron = C4::SIP::ILS::Patron->new(23529000120056));
  18
  19 ok(defined $patron, "patron code: 23529000120056 is valid");
  20
  21 my $transaction2 = C4::SIP::ILS::Transaction::RenewAll->new();
  22 $transaction2->patron(my $patron2 = C4::SIP::ILS::Patron->new("ABCDE12345"));
  23
  24 #This test assumes that the patron code ABCDE12345 is invalid
  25 ok(!defined $patron2, "patron code: ABCDE12345 is invalid");
  26
  27 ok($transaction->do_renew_all(), "items renewed correctly");