|
Line 0
Link Here
|
| 0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
| 3 |
use strict; |
| 4 |
use warnings; |
| 5 |
|
| 6 |
use Test::More tests => 4; |
| 7 |
|
| 8 |
use_ok('C4::Auth', qw/ParseSearchHistorySession SetSearchHistorySession get_session/); |
| 9 |
|
| 10 |
my $expected_recent_searches = [ |
| 11 |
{ |
| 12 |
'time' => 1374978877, |
| 13 |
'query_cgi' => 'idx=&q=history&branch_group_limit=', |
| 14 |
'total' => 2, |
| 15 |
'query_desc' => 'kw,wrdl: history, ' |
| 16 |
} |
| 17 |
]; |
| 18 |
|
| 19 |
# Create new session and put its id into CGISESSID cookie |
| 20 |
my $session = get_session(""); |
| 21 |
$session->flush; |
| 22 |
my $input = new CookieSimulator({CGISESSID => $session->id}); |
| 23 |
|
| 24 |
my @recent_searches = ParseSearchHistorySession($input); |
| 25 |
is_deeply(\@recent_searches, [], 'at start, there is no recent searches'); |
| 26 |
|
| 27 |
SetSearchHistorySession($input, $expected_recent_searches); |
| 28 |
@recent_searches = ParseSearchHistorySession($input); |
| 29 |
is_deeply(\@recent_searches, $expected_recent_searches, 'recent searches set and retrieved successfully'); |
| 30 |
|
| 31 |
SetSearchHistorySession($input, []); |
| 32 |
@recent_searches = ParseSearchHistorySession($input); |
| 33 |
is_deeply(\@recent_searches, [], 'recent searches emptied successfully'); |
| 34 |
|
| 35 |
# Delete session |
| 36 |
$session->delete; |
| 37 |
$session->flush; |
| 38 |
|
| 39 |
package CookieSimulator; |
| 40 |
|
| 41 |
sub new { |
| 42 |
my ($class, $hashref) = @_; |
| 43 |
my $val = $hashref; |
| 44 |
return bless $val, $class; |
| 45 |
} |
| 46 |
|
| 47 |
sub cookie { |
| 48 |
my ($self, $name) = @_; |
| 49 |
return $self->{$name}; |
| 50 |
} |
| 51 |
|
| 52 |
1; |