|
Lines 28-34
use t::lib::Mocks;
Link Here
|
| 28 |
use Koha::ILL::Request::Workflow::HistoryCheck; |
28 |
use Koha::ILL::Request::Workflow::HistoryCheck; |
| 29 |
use Koha::Database; |
29 |
use Koha::Database; |
| 30 |
|
30 |
|
| 31 |
my $schema = Koha::Database->new->schema; |
31 |
my $schema = Koha::Database->new->schema; |
|
|
32 |
my $builder = t::lib::TestBuilder->new; |
| 32 |
|
33 |
|
| 33 |
my $isbn = '321321321'; |
34 |
my $isbn = '321321321'; |
| 34 |
|
35 |
|
|
Lines 38-45
subtest 'show_history_check' => sub {
Link Here
|
| 38 |
|
39 |
|
| 39 |
$schema->storage->txn_begin; |
40 |
$schema->storage->txn_begin; |
| 40 |
|
41 |
|
| 41 |
my $builder = t::lib::TestBuilder->new; |
|
|
| 42 |
|
| 43 |
use_ok('Koha::ILL::Request::Workflow::HistoryCheck'); |
42 |
use_ok('Koha::ILL::Request::Workflow::HistoryCheck'); |
| 44 |
|
43 |
|
| 45 |
my $fake_cardnumber = '123456789'; |
44 |
my $fake_cardnumber = '123456789'; |
|
Lines 122-129
subtest 'after_request_created' => sub {
Link Here
|
| 122 |
|
121 |
|
| 123 |
$schema->storage->txn_begin; |
122 |
$schema->storage->txn_begin; |
| 124 |
|
123 |
|
| 125 |
my $builder = t::lib::TestBuilder->new; |
|
|
| 126 |
|
| 127 |
my $fake_cardnumber = '123456789'; |
124 |
my $fake_cardnumber = '123456789'; |
| 128 |
my $metadata = { |
125 |
my $metadata = { |
| 129 |
title => 'This is a title', |
126 |
title => 'This is a title', |
|
Lines 187-192
subtest 'after_request_created' => sub {
Link Here
|
| 187 |
'Contains staffnotes related submissions by self patron' |
184 |
'Contains staffnotes related submissions by self patron' |
| 188 |
); |
185 |
); |
| 189 |
|
186 |
|
|
|
187 |
$schema->storage->txn_rollback; |
| 190 |
}; |
188 |
}; |
| 191 |
|
189 |
|
| 192 |
1; |
190 |
1; |
| 193 |
- |
|
|