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

(-)a/Koha/Issue.pm (-1 / +1 lines)
Lines 1-4 Link Here
1
package Koha::Issue;
1
package Koha::Checkout;
2
2
3
# This file is part of Koha.
3
# This file is part of Koha.
4
#
4
#
(-)a/Koha/Issues.pm (-3 / +3 lines)
Lines 1-4 Link Here
1
package Koha::Issues;
1
package Koha::Checkouts;
2
2
3
# This file is part of Koha.
3
# This file is part of Koha.
4
#
4
#
Lines 18-24 package Koha::Issues; Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Koha::Database;
20
use Koha::Database;
21
use Koha::Issue;
21
use Koha::Checkout;
22
22
23
use base qw(Koha::Objects);
23
use base qw(Koha::Objects);
24
24
Lines 27-33 sub _type { Link Here
27
}
27
}
28
28
29
sub object_class {
29
sub object_class {
30
    return 'Koha::Issue';
30
    return 'Koha::Checkout';
31
}
31
}
32
32
33
1;
33
1;
(-)a/t/db_dependent/Koha/Issues.t (-9 / +8 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use Test::More tests => 4;
22
use Test::More tests => 4;
23
23
24
use Koha::Issue;
24
use Koha::Checkout;
25
use Koha::Issues;
25
use Koha::Checkouts;
26
use Koha::Database;
26
use Koha::Database;
27
27
28
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
Lines 34-59 my $builder = t::lib::TestBuilder->new; Link Here
34
my $patron       = $builder->build( { source => 'Borrower' } );
34
my $patron       = $builder->build( { source => 'Borrower' } );
35
my $item_1       = $builder->build( { source => 'Item' } );
35
my $item_1       = $builder->build( { source => 'Item' } );
36
my $item_2       = $builder->build( { source => 'Item' } );
36
my $item_2       = $builder->build( { source => 'Item' } );
37
my $nb_of_issues = Koha::Issues->search->count;
37
my $nb_of_issues = Koha::Checkouts->search->count;
38
my $new_issue_1  = Koha::Issue->new(
38
my $new_issue_1  = Koha::Checkout->new(
39
    {   borrowernumber => $patron->{borrowernumber},
39
    {   borrowernumber => $patron->{borrowernumber},
40
        itemnumber     => $item_1->{itemnumber},
40
        itemnumber     => $item_1->{itemnumber},
41
    }
41
    }
42
)->store;
42
)->store;
43
my $new_issue_2 = Koha::Issue->new(
43
my $new_issue_2 = Koha::Checkout->new(
44
    {   borrowernumber => $patron->{borrowernumber},
44
    {   borrowernumber => $patron->{borrowernumber},
45
        itemnumber     => $item_2->{itemnumber},
45
        itemnumber     => $item_2->{itemnumber},
46
    }
46
    }
47
)->store;
47
)->store;
48
48
49
like( $new_issue_1->issue_id, qr|^\d+$|, 'Adding a new issue should have set the issue_id' );
49
like( $new_issue_1->issue_id, qr|^\d+$|, 'Adding a new issue should have set the issue_id' );
50
is( Koha::Issues->search->count, $nb_of_issues + 2, 'The 2 issues should have been added' );
50
is( Koha::Checkouts->search->count, $nb_of_issues + 2, 'The 2 issues should have been added' );
51
51
52
my $retrieved_issue_1 = Koha::Issues->find( $new_issue_1->issue_id );
52
my $retrieved_issue_1 = Koha::Checkouts->find( $new_issue_1->issue_id );
53
is( $retrieved_issue_1->itemnumber, $new_issue_1->itemnumber, 'Find a issue by id should return the correct issue' );
53
is( $retrieved_issue_1->itemnumber, $new_issue_1->itemnumber, 'Find a issue by id should return the correct issue' );
54
54
55
$retrieved_issue_1->delete;
55
$retrieved_issue_1->delete;
56
is( Koha::Issues->search->count, $nb_of_issues + 1, 'Delete should delete the issue' );
56
is( Koha::Checkouts->search->count, $nb_of_issues + 1, 'Delete should delete the issue' );
57
57
58
$schema->storage->txn_rollback;
58
$schema->storage->txn_rollback;
59
59
60
- 

Return to bug 16870