3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
19 use DateTime
::Format
::MySQL
;
20 use Test
::More tests
=> 12;
23 use Koha
::DateUtils
qw(dt_from_string);
28 use_ok
('Koha::Quote');
31 my $quote = Koha
::Quote
->new();
32 isa_ok
( $quote, 'Koha::Quote', 'Quote class returned' );
34 my $schema = Koha
::Database
->new->schema;
35 $schema->storage->txn_begin;
36 my $dbh = C4
::Context
->dbh;
38 # Ids not starting with 1 to reflect possible deletes, this acts as a regression test for bug 11297
39 my $timestamp = DateTime
::Format
::MySQL
->format_datetime(dt_from_string
()); #???
40 my $quote_1 = Koha
::Quote
->new({ id
=> 6, source
=> 'George Washington', text
=> 'To be prepared for war is one of the most effectual means of preserving peace.', timestamp
=> $timestamp })->store;
41 my $quote_2 = Koha
::Quote
->new({ id
=> 7, source
=> 'Thomas Jefferson', text
=> 'When angry, count ten, before you speak; if very angry, an hundred.', timestamp
=> $timestamp })->store;
42 my $quote_3 = Koha
::Quote
->new({ id
=> 8, source
=> 'Abraham Lincoln', text
=> 'Four score and seven years ago our fathers brought forth on this continent, a new nation, conceived in Liberty, and dedicated to the proposition that all men are created equal', timestamp
=> $timestamp })->store;
43 my $quote_4 = Koha
::Quote
->new({ id
=> 9, source
=> 'Abraham Lincoln', text
=> 'I have always found that mercy bears richer fruits than strict justice.', timestamp
=> $timestamp })->store;
44 my $quote_5 = Koha
::Quote
->new({ id
=> 10, source
=> 'Andrew Johnson', text
=> 'I feel incompetent to perform duties...which have been so unexpectedly thrown upon me.', timestamp
=> $timestamp })->store;
46 my $expected_quote = {
48 source
=> 'Abraham Lincoln',
49 text
=> 'Four score and seven years ago our fathers brought forth on this continent, a new nation, conceived in Liberty, and dedicated to the proposition that all men are created equal.',
50 timestamp
=> dt_from_string
,
53 $quote = Koha
::Quote
->get_daily_quote('id'=>$quote_3->id);
54 cmp_ok
($quote->{'id'}, '==', $expected_quote->{'id'}, "Correctly got quote by ID");
55 is
($quote->{'quote'}, $expected_quote->{'quote'}, "Quote is correct");
57 $quote = Koha
::Quote
->get_daily_quote('random'=>1);
58 ok
($quote, "Got a random quote.");
59 cmp_ok
($quote->{'id'}, '>', 0, 'Id is greater than 0');
61 $timestamp = DateTime
::Format
::MySQL
->format_datetime(dt_from_string
->add( seconds
=> 1 )); # To make it the last one
62 Koha
::Quotes
->search({ id
=> $expected_quote->{'id'} })->update({ timestamp
=> $timestamp });
63 $expected_quote->{'timestamp'} = $timestamp;
65 $quote = Koha
::Quote
->get_daily_quote(); # this is the "default" mode of selection
66 cmp_ok
($quote->{'id'}, '==', $expected_quote->{'id'}, "Id is correct");
67 is
($quote->{'source'}, $expected_quote->{'source'}, "Source is correct");
68 is
($quote->{'timestamp'}, $expected_quote->{'timestamp'}, "Timestamp $timestamp is correct");
70 $dbh->do(q
|DELETE FROM quotes
|);
71 $quote = eval {Koha
::Quote
->get_daily_quote();};
72 is
( $@
, '', 'get_daily_quote does not die if no quote exist' );
73 is_deeply
( $quote, {}, 'get_daily_quote return an empty hashref is no quote exist'); # Is it what we expect?
75 my $quote_6 = Koha
::Quote
->new({ id
=> 6, source
=> 'George Washington', text
=> 'To be prepared for war is one of the most effectual means of preserving peace.', timestamp
=> dt_from_string
() })->store;
77 $quote = Koha
::Quote
->get_daily_quote();
78 is
( $quote->{id
}, 6, ' get_daily_quote returns the only existing quote' );