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

(-)a/t/db_dependent/rollingloans.t (-4 / +22 lines)
Lines 1-3 Link Here
1
#!/usr/bin/perl
1
2
2
use Modern::Perl;
3
use Modern::Perl;
3
use C4::Context;
4
use C4::Context;
Lines 7-12 use C4::Items; Link Here
7
use Koha::DateUtils;
8
use Koha::DateUtils;
8
use Koha::Patrons;
9
use Koha::Patrons;
9
use t::lib::TestBuilder;
10
use t::lib::TestBuilder;
11
use t::lib::Mocks qw(mock_preference);
10
12
11
use Test::More tests => 8;
13
use Test::More tests => 8;
12
14
Lines 17-23 C4::Context->_new_userenv(1234567); Link Here
17
C4::Context->set_userenv(91, 'CLIstaff', '23529001223661', 'CPL',
19
C4::Context->set_userenv(91, 'CLIstaff', '23529001223661', 'CPL',
18
                         'CPL', 'CPL', '', 'cc@cscnet.co.uk');
20
                         'CPL', 'CPL', '', 'cc@cscnet.co.uk');
19
21
20
22
t::lib::Mocks::mock_preference('BlockReturnOfWithdrawnItems',0);
21
my $test_patron = '23529001223651';
23
my $test_patron = '23529001223651';
22
my $test_item_fic = '502326000402';
24
my $test_item_fic = '502326000402';
23
my $test_item_24 = '502326000404';
25
my $test_item_24 = '502326000404';
Lines 25-31 my $test_item_48 = '502326000403'; Link Here
25
27
26
my $builder = t::lib::TestBuilder->new;
28
my $builder = t::lib::TestBuilder->new;
27
my $borrower1 = $builder->build_object({ class => 'Koha::Patrons', value => { cardnumber => $test_patron } });
29
my $borrower1 = $builder->build_object({ class => 'Koha::Patrons', value => { cardnumber => $test_patron } });
28
my $item1 = GetItem (undef,$test_item_fic);
30
my $item1 = $builder->build_object({
31
    class => 'Koha::Items',
32
    value => {
33
        barcode => $test_item_fic,
34
    }
35
});
36
my $item2 = $builder->build_object({
37
    class => 'Koha::Items',
38
    value => {
39
        barcode => $test_item_24,
40
    }
41
});
42
my $item3 = $builder->build_object({
43
    class => 'Koha::Items',
44
    value => {
45
        barcode => $test_item_48,
46
    }
47
});
29
48
30
SKIP: {
49
SKIP: {
31
    skip 'Missing test borrower or item, skipping tests', 8
50
    skip 'Missing test borrower or item, skipping tests', 8
Lines 49-55 sub try_issue { Link Here
49
    my $patron = Koha::Patrons->find( { cardnumber => $cardnumber } );
68
    my $patron = Koha::Patrons->find( { cardnumber => $cardnumber } );
50
    my ($issuingimpossible,$needsconfirmation) = CanBookBeIssued( $patron, $item );
69
    my ($issuingimpossible,$needsconfirmation) = CanBookBeIssued( $patron, $item );
51
    my $issue = AddIssue($patron->unblessed, $item, undef, 0, $issuedate);
70
    my $issue = AddIssue($patron->unblessed, $item, undef, 0, $issuedate);
52
    return dt_from_string( $issue->due_date() );
71
    return dt_from_string( $issue->date_due );
53
}
72
}
54
73
55
sub try_return {
74
sub try_return {
56
- 

Return to bug 18797