1 |
#!/usr/bin/env perl |
2 |
use warnings; |
3 |
use strict; |
4 |
|
5 |
=head1 DESCRIPTION |
6 |
|
7 |
A (very) basic test harness for the Search action. |
8 |
|
9 |
=cut |
10 |
|
11 |
use Jifty::Test tests => 7; |
12 |
|
13 |
# Make sure we can load the action |
14 |
use_ok('Webpacus::Action::Search'); |
15 |
|
16 |
# Grab a system user |
17 |
my $system_user = Webpacus::CurrentUser->superuser; |
18 |
ok($system_user, "Found a system user"); |
19 |
|
20 |
{ |
21 |
use Log::Log4perl::Level; |
22 |
Jifty->web->log->level( $DEBUG ); |
23 |
} |
24 |
|
25 |
my $search = Jifty::Test->web->new_action( |
26 |
class => 'Search', |
27 |
moniker => 'search', |
28 |
current_user => $system_user, |
29 |
arguments => {} |
30 |
); |
31 |
|
32 |
isa_ok($search, 'Webpacus::Action::Search'); |
33 |
|
34 |
my %args = %{$search->arguments}; |
35 |
|
36 |
ok($args{$_}, "arguments has $_") foreach ( 'field', 'query' ); |
37 |
|
38 |
$search->argument_values({ feild => '', query => 'a' }); |
39 |
$search->run; |
40 |
|
41 |
my $results = $search->result->content('results'); |
42 |
|
43 |
isa_ok($results, 'Webpacus::Search::Results'); |
44 |
cmp_ok($results->count, '>=', 1, 'count'); |
45 |
|
46 |
diag "found ", $results->count, " results"; |