Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 2; |
20 |
use Test::More tests => 3; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 58-67
Koha::CirculationRules->set_rule(
Link Here
|
58 |
|
58 |
|
59 |
$branch = $builder->build( { source => 'Branch' } )->{branchcode}; |
59 |
$branch = $builder->build( { source => 'Branch' } )->{branchcode}; |
60 |
|
60 |
|
61 |
subtest 'Test Koha::Checkout::claim_returned' => sub { |
61 |
subtest 'Test Koha::Checkout::claim_returned, do not mark as returned' => sub { |
62 |
plan tests => 6; |
62 |
plan tests => 7; |
63 |
|
63 |
|
64 |
t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 ); |
64 |
t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 ); |
|
|
65 |
t::lib::Mocks::mock_preference( 'MarkLostItemsAsReturned', q{} ); |
65 |
my $item = $builder->build_sample_item; |
66 |
my $item = $builder->build_sample_item; |
66 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
67 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
67 |
my $checkout = AddIssue( $patron->unblessed, $item->barcode ); |
68 |
my $checkout = AddIssue( $patron->unblessed, $item->barcode ); |
Lines 79-84
subtest 'Test Koha::Checkout::claim_returned' => sub {
Link Here
|
79 |
is( $claim->notes, "Test note", "Claim notes match" ); |
80 |
is( $claim->notes, "Test note", "Claim notes match" ); |
80 |
is( $claim->created_by, $patron->id, "Claim created_by matches" ); |
81 |
is( $claim->created_by, $patron->id, "Claim created_by matches" ); |
81 |
ok( $claim->created_on, "Claim created_on is set" ); |
82 |
ok( $claim->created_on, "Claim created_on is set" ); |
|
|
83 |
|
84 |
my $checkout2 = Koha::Checkouts->find( $checkout->id ); |
85 |
is( $checkout2->id, $checkout->id, "Item is still checked out to patron") |
82 |
}; |
86 |
}; |
83 |
|
87 |
|
84 |
subtest 'Test Koha::Patronn::return_claims' => sub { |
88 |
subtest 'Test Koha::Patronn::return_claims' => sub { |
Lines 110-113
subtest 'Test Koha::Patronn::return_claims' => sub {
Link Here
|
110 |
ok( $claim->created_on, "Claim created_on is set" ); |
114 |
ok( $claim->created_on, "Claim created_on is set" ); |
111 |
}; |
115 |
}; |
112 |
|
116 |
|
|
|
117 |
subtest 'Test Koha::Checkout::claim_returned, mark as returned' => sub { |
118 |
plan tests => 8; |
119 |
|
120 |
t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 ); |
121 |
t::lib::Mocks::mock_preference( 'MarkLostItemsAsReturned', q{claim_returned} ); |
122 |
my $biblio = $builder->build_object( { class => 'Koha::Biblios' } ); |
123 |
my $item = $builder->build_object( |
124 |
{ |
125 |
class => 'Koha::Items', |
126 |
value => { |
127 |
biblionumber => $biblio->biblionumber, |
128 |
notforloan => 0, |
129 |
itemlost => 0, |
130 |
withdrawn => 0, |
131 |
} |
132 |
} |
133 |
); |
134 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
135 |
my $checkout = AddIssue( $patron->unblessed, $item->barcode ); |
136 |
|
137 |
my $claim = $checkout->claim_returned( |
138 |
{ |
139 |
created_by => $patron->id, |
140 |
notes => "Test note", |
141 |
} |
142 |
); |
143 |
|
144 |
is( $claim->issue_id, $checkout->id, "Claim issue id matches" ); |
145 |
is( $claim->itemnumber, $item->id, "Claim itemnumber matches" ); |
146 |
is( $claim->borrowernumber, $patron->id, "Claim borrowernumber matches" ); |
147 |
is( $claim->notes, "Test note", "Claim notes match" ); |
148 |
is( $claim->created_by, $patron->id, "Claim created_by matches" ); |
149 |
ok( $claim->created_on, "Claim created_on is set" ); |
150 |
|
151 |
my $checkout2 = Koha::Checkouts->find( $checkout->id ); |
152 |
is( $checkout2, undef, "Checkout is not longer in the issues table"); |
153 |
$checkout2 = Koha::Old::Checkouts->find( $checkout->id ); |
154 |
is( $checkout2->id, $checkout->id, "Checkout was foudn in the old_issues table"); |
155 |
}; |
156 |
|
113 |
$schema->storage->txn_rollback; |
157 |
$schema->storage->txn_rollback; |
114 |
- |
|
|