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 |
- |
|
|