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