# $Id: null-count.t,v 1.2 2008/01/21 03:01:38 Daddy Exp $
use ExtUtils::testlib;
use Test::More 'no_plan';
my $sMod;
BEGIN
{
$sMod = 'WWW::Search::Null::Count';
use_ok('WWW::Search');
use_ok($sMod);
} # end of BEGIN block
ok(my $iCount = 4);
ok(my $oSearch = new WWW::Search('Null::Count',
'_null_count' => $iCount,
)
);
isa_ok($oSearch, $sMod);
$oSearch->native_query('Makes no difference what you search for...');
ok(my @aoResults = $oSearch->results);
is(scalar(@aoResults), $iCount, 'got the right number of results');
is($oSearch->approximate_result_count, $iCount, 'got the right approx_results');
ok(my $oResult = shift @aoResults);
is($oResult->url, "url1", 'url');
is(scalar(@{$oResult->related_urls}), $iCount, 'got N related_urls');
is(scalar(@{$oResult->related_titles}), $iCount, 'got N related_titles');
is(scalar(@{$oResult->urls}), $iCount+1, 'got N+1 urls');
ok(my $raURL = $oResult->urls);
# diag("sURL =$sURL=");
is(scalar(@{$raURL}), $iCount+1, 'got N+1 urls in arrayref');
# Additional calls for coverage:
my $o5 = new WWW::Search('Null::Count');
$o5->native_query('fubar');
$o5->results;
__END__