View | Details | Raw Unified | Return to bug 13287
Collapse All | Expand All

(-)a/t/db_dependent/Suggestions.t (-16 / +14 lines)
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;

Return to bug 13287