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