View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/SIP_ILS.t (-29 lines)
Lines 1-29 Link Here
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 FindBin;
13
        use lib "$FindBin::Bin/../C4/SIP";
14
        use_ok('C4::SIP::ILS');
15
};
16
17
my $transaction = ILS::Transaction::RenewAll->new();
18
19
$transaction->patron(my $patron = ILS::Patron->new(23529000120056));
20
21
ok(defined $patron, "patron code: 23529000120056 is valid");
22
23
my $transaction2 = ILS::Transaction::RenewAll->new();
24
$transaction2->patron(my $patron2 = ILS::Patron->new("ABCDE12345"));
25
26
#This test assumes that the patron code ABCDE12345 is invalid
27
ok(!defined $patron2, "patron code: ABCDE12345 is invalid");
28
29
ok($transaction->do_renew_all(), "items renewed correctly");
(-)a/t/db_dependent/SIP_ILS.t (-1 / +29 lines)
Line 0 Link Here
0
- 
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 FindBin;
13
        use lib "$FindBin::Bin/../C4/SIP";
14
        use_ok('C4::SIP::ILS');
15
};
16
17
my $transaction = ILS::Transaction::RenewAll->new();
18
19
$transaction->patron(my $patron = ILS::Patron->new(23529000120056));
20
21
ok(defined $patron, "patron code: 23529000120056 is valid");
22
23
my $transaction2 = ILS::Transaction::RenewAll->new();
24
$transaction2->patron(my $patron2 = ILS::Patron->new("ABCDE12345"));
25
26
#This test assumes that the patron code ABCDE12345 is invalid
27
ok(!defined $patron2, "patron code: ABCDE12345 is invalid");
28
29
ok($transaction->do_renew_all(), "items renewed correctly");

Return to bug 5327