|
Lines 17-53
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
|
|
20 |
use DateTime::Duration; |
| 21 |
use Test::More tests => 102; |
| 22 |
use Test::Warn; |
| 23 |
|
| 20 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
|
|
25 |
use t::lib::TestBuilder; |
| 26 |
|
| 21 |
use C4::Context; |
27 |
use C4::Context; |
| 22 |
use C4::Members; |
28 |
use C4::Members; |
| 23 |
use C4::Letters; |
29 |
use C4::Letters; |
| 24 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
30 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
| 25 |
|
31 |
use Koha::Database; |
| 26 |
use Koha::DateUtils qw( dt_from_string ); |
32 |
use Koha::DateUtils qw( dt_from_string ); |
| 27 |
use Koha::Library; |
33 |
use Koha::Library; |
| 28 |
use Koha::Libraries; |
34 |
use Koha::Libraries; |
| 29 |
|
35 |
|
| 30 |
use t::lib::TestBuilder; |
|
|
| 31 |
|
| 32 |
use DateTime::Duration; |
| 33 |
use Test::More tests => 102; |
| 34 |
use Test::Warn; |
| 35 |
|
| 36 |
BEGIN { |
36 |
BEGIN { |
| 37 |
use_ok('C4::Suggestions'); |
37 |
use_ok('C4::Suggestions'); |
| 38 |
} |
38 |
} |
| 39 |
|
39 |
|
|
|
40 |
my $schema = Koha::Database->new->schema; |
| 41 |
$schema->storage->txn_begin; |
| 40 |
my $dbh = C4::Context->dbh; |
42 |
my $dbh = C4::Context->dbh; |
| 41 |
my $sql; |
|
|
| 42 |
|
| 43 |
# Start transaction |
| 44 |
$dbh->{AutoCommit} = 0; |
| 45 |
$dbh->{RaiseError} = 1; |
| 46 |
|
| 47 |
my $builder = t::lib::TestBuilder->new; |
43 |
my $builder = t::lib::TestBuilder->new; |
|
|
44 |
|
| 48 |
# Reset item types to only the default ones |
45 |
# Reset item types to only the default ones |
| 49 |
$dbh->do(q|DELETE FROM itemtypes;|); |
46 |
$dbh->do(q|DELETE FROM itemtypes;|); |
| 50 |
$sql = " |
47 |
my $sql = qq| |
| 51 |
INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan, imageurl, summary) VALUES |
48 |
INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan, imageurl, summary) VALUES |
| 52 |
('BK', 'Books',5,0,'bridge/book.gif',''), |
49 |
('BK', 'Books',5,0,'bridge/book.gif',''), |
| 53 |
('MX', 'Mixed Materials',5,0,'bridge/kit.gif',''), |
50 |
('MX', 'Mixed Materials',5,0,'bridge/kit.gif',''), |
|
Lines 56-62
INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan, imageurl
Link Here
|
| 56 |
('VM', 'Visual Materials',5,1,'bridge/dvd.gif',''), |
53 |
('VM', 'Visual Materials',5,1,'bridge/dvd.gif',''), |
| 57 |
('MU', 'Music',5,0,'bridge/sound.gif',''), |
54 |
('MU', 'Music',5,0,'bridge/sound.gif',''), |
| 58 |
('CR', 'Continuing Resources',5,0,'bridge/periodical.gif',''), |
55 |
('CR', 'Continuing Resources',5,0,'bridge/periodical.gif',''), |
| 59 |
('REF', 'Reference',0,1,'bridge/reference.gif','');"; |
56 |
('REF', 'Reference',0,1,'bridge/reference.gif','');|; |
| 60 |
$dbh->do($sql); |
57 |
$dbh->do($sql); |
| 61 |
$dbh->do(q|DELETE FROM suggestions|); |
58 |
$dbh->do(q|DELETE FROM suggestions|); |
| 62 |
$dbh->do(q|DELETE FROM issues|); |
59 |
$dbh->do(q|DELETE FROM issues|); |
|
Lines 384-386
subtest 'GetUnprocessedSuggestions' => sub {
Link Here
|
| 384 |
$unprocessed_suggestions = C4::Suggestions::GetUnprocessedSuggestions(5); |
381 |
$unprocessed_suggestions = C4::Suggestions::GetUnprocessedSuggestions(5); |
| 385 |
is( scalar(@$unprocessed_suggestions), 0, 'GetUnprocessedSuggestions should not return the suggestion, it has not been suggested 5 days ago' ); |
382 |
is( scalar(@$unprocessed_suggestions), 0, 'GetUnprocessedSuggestions should not return the suggestion, it has not been suggested 5 days ago' ); |
| 386 |
}; |
383 |
}; |
| 387 |
- |
384 |
|
|
|
385 |
$schema->storage->txn_rollback; |