Grep/t/00-action-Fetch.t

#!/usr/bin/env perl
use warnings;
use strict;

=head1 DESCRIPTION

A (very) basic test harness for the Fetch action.

=cut

use Jifty::Test tests => 10;

# Make sure we can load the action
use_ok('Grep::Action::Fetch');

# Grab a system user
my $system_user = Grep::CurrentUser->superuser;
ok($system_user, "Found a system user");

{
        use Log::Log4perl::Level;
        Jifty->web->log->level( $DEBUG );
}

my $feed = Grep::Model::Feed->new(current_user => $system_user);
my ($feed_id) = $feed->create(
        uri => 'http://saturn.ffzg.hr/noauth/feed/workspace/rot13?search_term=%s',
        title => 'rot13.org wiki',
);
ok( $feed_id, 'feed->create' );

my $fetch = Jifty::Test->web->new_action(
    class        => 'Fetch',
    moniker      => 'fetch',
    current_user => $system_user,
    arguments    => {}
);

isa_ok($fetch, 'Grep::Action::Fetch');

my %args = %{$fetch->arguments};

ok($args{q}, "Can fetch on q");

# fetch on q
$fetch->argument_values({ q => 'Grep test page', feed => $feed_id });
$fetch->run;

my $result = $fetch->result->content('items');

isa_ok($result, 'Jifty::Collection');
cmp_ok($result->count, '>=', 1, 'count');

diag "found ", $result->count, " results";

isa_ok( $result->first, 'Grep::Model::Item' );

is($result->first->in_feed->id, $feed_id, 'feed id');
like($result->first->link, qr#http://saturn.ffzg.hr/rot13#, 'link');

$feed->delete;

1	dpavlin	3	#!/usr/bin/env perl
2			use warnings;
3			use strict;
4
5			=head1 DESCRIPTION
6
7			A (very) basic test harness for the Fetch action.
8
9			=cut
10
11	dpavlin	174	use Jifty::Test tests => 10;
12	dpavlin	3
13			# Make sure we can load the action
14			use_ok('Grep::Action::Fetch');
15
16	dpavlin	174	# Grab a system user
17			my $system_user = Grep::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 $feed = Grep::Model::Feed->new(current_user => $system_user);
26			my ($feed_id) = $feed->create(
27			uri => 'http://saturn.ffzg.hr/noauth/feed/workspace/rot13?search_term=%s',
28			title => 'rot13.org wiki',
29			);
30			ok( $feed_id, 'feed->create' );
31
32			my $fetch = Jifty::Test->web->new_action(
33			class => 'Fetch',
34			moniker => 'fetch',
35			current_user => $system_user,
36			arguments => {}
37			);
38
39			isa_ok($fetch, 'Grep::Action::Fetch');
40
41			my %args = %{$fetch->arguments};
42
43			ok($args{q}, "Can fetch on q");
44
45			# fetch on q
46			$fetch->argument_values({ q => 'Grep test page', feed => $feed_id });
47			$fetch->run;
48
49			my $result = $fetch->result->content('items');
50
51			isa_ok($result, 'Jifty::Collection');
52			cmp_ok($result->count, '>=', 1, 'count');
53
54			diag "found ", $result->count, " results";
55
56			isa_ok( $result->first, 'Grep::Model::Item' );
57
58			is($result->first->in_feed->id, $feed_id, 'feed id');
59			like($result->first->link, qr#http://saturn.ffzg.hr/rot13#, 'link');
60
61			$feed->delete;
62