Bug 9259: Use is instead of is_deeply
[koha.git] / t / db_dependent / Search / History.t
1 #!/usr/bin/env perl
2
3 use Modern::Perl;
4
5 use Test::More tests => 25;
6 use Test::Warn;
7 use URI::Escape;
8 use List::Util qw( shuffle );
9
10 use C4::Context;
11 my $dbh = C4::Context->dbh;
12 $dbh->{AutoCommit} = 0;
13 $dbh->{RaiseError} = 1;
14
15 use_ok('Koha::DateUtils');
16 use_ok('C4::Search::History');
17
18 my $userid = 123;
19 my $previous_sessionid = "PREVIOUS_SESSIONID";
20 my $current_sessionid = "CURRENT_SESSIONID";
21 my $total = 42;
22 my $query_cgi_b = q{idx=kw&idx=ti&idx=au%2Cwrdl&q=word1é&q=word2è&q=word3à&do=Search&sort_by=author_az};
23 my $query_cgi_a = q{op=do_search&type=opac&authtypecode=NP&operator=start&value=Harry&marclist=match&and_or=and&orderby=HeadingAsc};
24
25 # add
26 my $added = add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
27 is ( $added, 9, '9 searches are added' );
28
29 # get
30 my $searches_for_userid = C4::Search::History::get({
31     userid => $userid,
32 });
33 is( scalar(@$searches_for_userid), 9, 'There are 9 searches in all' );
34
35 my $searches_for_current_session = C4::Search::History::get({
36     userid => $userid,
37     sessionid => $current_sessionid,
38 });
39 is( scalar(@$searches_for_current_session), 5, 'There are 5 searches for the current session' );
40
41 my $searches_for_previous_sessions = C4::Search::History::get({
42     userid => $userid,
43     sessionid => $current_sessionid,
44     previous => 1,
45 });
46 is( scalar(@$searches_for_previous_sessions), 4, 'There are 4 searches for previous sessions' );
47
48 my $authority_searches_for_current_session = C4::Search::History::get({
49     userid => $userid,
50     sessionid => $current_sessionid,
51     type => 'authority',
52 });
53 is( scalar(@$authority_searches_for_current_session), 3, 'There are 3 authority searches for the current session' );
54
55 my $authority_searches_for_previous_session = C4::Search::History::get({
56     userid => $userid,
57     sessionid => $current_sessionid,
58     type => 'authority',
59     previous => 1,
60 });
61 is( scalar(@$authority_searches_for_previous_session), 2, 'There are 2 authority searches for previous sessions' );
62
63 my $biblio_searches_for_userid = C4::Search::History::get({
64     userid => $userid,
65     type => 'biblio',
66 });
67 is( scalar(@$biblio_searches_for_userid), 4, 'There are 5 searches for the current session' );
68
69 my $authority_searches_for_userid = C4::Search::History::get({
70     userid => $userid,
71     type => 'authority',
72 });
73 is( scalar(@$authority_searches_for_userid), 5, 'There are 4 searches for previous sessions' );
74
75 delete_all( $userid );
76
77 # delete
78 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
79 C4::Search::History::delete({
80     userid => $userid,
81     sessionid => $current_sessionid,
82     type => 'authority',
83 });
84 my $all = C4::Search::History::get({userid => $userid});
85 is( scalar(@$all), 6, 'There are 6 searches in all after deleting current biblio searches' );
86 delete_all( $userid );
87
88 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
89 C4::Search::History::delete({
90     userid => $userid,
91     sessionid => $current_sessionid,
92     type => 'biblio',
93     previous => 1,
94 });
95 $all = C4::Search::History::get({userid => $userid});
96 is( scalar(@$all), 7, 'There are 7 searches in all after deleting previous authority searches' );
97 delete_all( $userid );
98
99 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
100 C4::Search::History::delete({
101     userid => $userid,
102     sessionid => $current_sessionid,
103     previous => 1,
104 });
105 $all = C4::Search::History::get({userid => $userid});
106 is( scalar(@$all), 5, 'There are 5 searches in all after deleting all previous searches' );
107 delete_all( $userid );
108
109 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
110 C4::Search::History::delete({
111     userid => $userid,
112     sessionid => $current_sessionid,
113 });
114 $all = C4::Search::History::get({userid => $userid});
115 is( scalar(@$all), 4, 'There are 5 searches in all after deleting all searches for a sessionid' );
116 delete_all( $userid );
117
118 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
119 C4::Search::History::delete({
120     userid => $userid,
121 });
122 $all = C4::Search::History::get({userid => $userid});
123 is( scalar(@$all), 0, 'There are 0 search after deleting all searches for a userid' );
124 delete_all( $userid );
125
126 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
127 warning_like { C4::Search::History::delete({}) }
128           qr/^ERROR: userid, id or interval is required for history deletion/,
129           'Calling delete without userid raises warning';
130 $all = C4::Search::History::get({userid => $userid});
131 is( scalar(@$all), 9, 'There are still 9 searches after calling delete without userid' );
132 delete_all( $userid );
133
134 # Delete (with a given id)
135 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
136 $all = C4::Search::History::get({ userid => $userid });
137 # Delete 5 searches
138 my $ids = [ shuffle map { $_->{id} } @$all ];
139 for my $id ( @$ids[ 0 .. 4 ] ) {
140     C4::Search::History::delete({ id => $id });
141 }
142 $all = C4::Search::History::get({ userid => $userid });
143 is( scalar(@$all), 4, 'There are 4 searches after calling 5 times delete with id' );
144 delete_all( $userid );
145
146 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
147 $all = C4::Search::History::get({ userid => $userid });
148 # Delete 5 searches
149 $ids = [ shuffle map { $_->{id} } @$all ];
150 C4::Search::History::delete({ id => [ @$ids[0..4] ] });
151 $all = C4::Search::History::get({ userid => $userid });
152 is( scalar(@$all), 4, 'There are 4 searches after calling delete with 5 ids' );
153
154 delete_all( $userid );
155
156 # Test delete with interval
157 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
158 C4::Search::History::delete({
159     userid => $userid,
160     interval => 10,
161 });
162 $all = C4::Search::History::get({userid => $userid});
163 is( scalar(@$all), 9, 'There are still 9 searches after calling delete with an interval = 10 days' );
164 C4::Search::History::delete({
165     userid => $userid,
166     interval => 6,
167 });
168 $all = C4::Search::History::get({userid => $userid});
169 is( scalar(@$all), 8, 'There are still 8 searches after calling delete with an interval = 6 days' );
170 C4::Search::History::delete({
171     userid => $userid,
172     interval => 2,
173 });
174 $all = C4::Search::History::get({userid => $userid});
175 is( scalar(@$all), 2, 'There are still 2 searches after calling delete with an interval = 2 days' );
176 delete_all( $userid );
177
178 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
179 C4::Search::History::delete({
180     userid => $userid,
181     interval => 5,
182     type => 'biblio',
183 });
184 $all = C4::Search::History::get({userid => $userid});
185 is( scalar(@$all), 8, 'There are still 9 searches after calling delete with an interval = 5 days for biblio' );
186 C4::Search::History::delete({
187     userid => $userid,
188     interval => 5,
189     type => 'authority',
190 });
191 $all = C4::Search::History::get({userid => $userid});
192 is( scalar(@$all), 6, 'There are still 6 searches after calling delete with an interval = 5 days for authority' );
193 C4::Search::History::delete({
194     userid => $userid,
195     interval => -1,
196 });
197 $all = C4::Search::History::get({userid => $userid});
198 is( scalar(@$all), 0, 'There is no search after calling delete with an interval = -1 days' );
199
200 delete_all( $userid );
201
202 sub add {
203     my ( $userid, $current_session_id, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a ) = @_;
204
205     my $days_ago_2 = dt_from_string()->add_duration( DateTime::Duration->new( days => -2 ) );
206     my $days_ago_4 = dt_from_string()->add_duration( DateTime::Duration->new( days => -4 ) );
207     my $days_ago_6 = dt_from_string()->add_duration( DateTime::Duration->new( days => -6 ) );
208     my $days_ago_8 = dt_from_string()->add_duration( DateTime::Duration->new( days => -8 ) );
209
210     my $query_desc_b1_p = q{first previous biblio search};
211     my $first_previous_biblio_search = {
212         userid => $userid,
213         sessionid => $previous_sessionid,
214         query_desc => $query_desc_b1_p,
215         query_cgi => $query_cgi_b,
216         total => $total,
217         type => 'biblio',
218         time => $days_ago_2,
219     };
220
221     my $query_desc_a1_p = q{first previous authority search};
222     my $first_previous_authority_search = {
223         userid => $userid,
224         sessionid => $previous_sessionid,
225         query_desc => $query_desc_a1_p,
226         query_cgi => $query_cgi_a,
227         total => $total,
228         type => 'authority',
229         time => $days_ago_2,
230     };
231
232     my $query_desc_b2_p = q{second previous biblio search};
233     my $second_previous_biblio_search = {
234         userid => $userid,
235         sessionid => $previous_sessionid,
236         query_desc => $query_desc_b2_p,
237         query_cgi => $query_cgi_b,
238         total => $total,
239         type => 'biblio',
240         time => $days_ago_4,
241     };
242
243     my $query_desc_a2_p = q{second previous authority search};
244     my $second_previous_authority_search = {
245         userid => $userid,
246         sessionid => $previous_sessionid,
247         query_desc => $query_desc_a2_p,
248         query_cgi => $query_cgi_a,
249         total => $total,
250         type => 'authority',
251         time => $days_ago_4,
252     };
253
254
255     my $query_desc_b1_c = q{first current biblio search};
256
257     my $first_current_biblio_search = {
258         userid => $userid,
259         sessionid => $current_sessionid,
260         query_desc => $query_desc_b1_c,
261         query_cgi => $query_cgi_b,
262         total => $total,
263         type => 'biblio',
264         time => $days_ago_4,
265     };
266
267     my $query_desc_a1_c = q{first current authority search};
268     my $first_current_authority_search = {
269         userid => $userid,
270         sessionid => $current_sessionid,
271         query_desc => $query_desc_a1_c,
272         query_cgi => $query_cgi_a,
273         total => $total,
274         type => 'authority',
275         time => $days_ago_4,
276     };
277
278     my $query_desc_b2_c = q{second current biblio search};
279     my $second_current_biblio_search = {
280         userid => $userid,
281         sessionid => $current_sessionid,
282         query_desc => $query_desc_b2_c,
283         query_cgi => $query_cgi_b,
284         total => $total,
285         type => 'biblio',
286         time => $days_ago_6,
287     };
288
289     my $query_desc_a2_c = q{second current authority search};
290     my $second_current_authority_search = {
291         userid => $userid,
292         sessionid => $current_sessionid,
293         query_desc => $query_desc_a2_c,
294         query_cgi => $query_cgi_a,
295         total => $total,
296         type => 'authority',
297         time => $days_ago_6,
298     };
299
300     my $query_desc_a3_c = q{third current authority search};
301     my $third_current_authority_search = {
302         userid => $userid,
303         sessionid => $current_sessionid,
304         query_desc => $query_desc_a3_c,
305         query_cgi => $query_cgi_a,
306         total => $total,
307         type => 'authority',
308         time => $days_ago_8,
309     };
310
311
312     my $r = 0;
313     $r += C4::Search::History::add( $first_current_biblio_search );
314     $r += C4::Search::History::add( $first_current_authority_search );
315     $r += C4::Search::History::add( $second_current_biblio_search );
316     $r += C4::Search::History::add( $second_current_authority_search );
317     $r += C4::Search::History::add( $first_previous_biblio_search );
318     $r += C4::Search::History::add( $first_previous_authority_search );
319     $r += C4::Search::History::add( $second_previous_biblio_search );
320     $r += C4::Search::History::add( $second_previous_authority_search );
321     $r += C4::Search::History::add( $third_current_authority_search );
322     return $r;
323 }
324
325 sub delete_all {
326     my $userid = shift;
327     C4::Search::History::delete({
328         userid => $userid,
329     });
330 }
331
332 $dbh->rollback;
333
334 done_testing;