use strict;

use Test::More;

use constant TMPFILE    => "./blib/google-api.key";
use constant QUERY      => "related:http://perl.aaronland.net"; 
use constant MAXRESULTS => 50;

my $key = $ARGV[0];

if ($key) {
  &run_test();
}

elsif (open KEY , "<".TMPFILE) {
  $key = <KEY>;
  chomp $key;
  close KEY;

  &run_test();
}

else {
  plan tests => 1;
  ok($key,"Read Google API key");
}

sub run_test {
  plan tests => 5;

  ok($key,"Read Google API key");

  use_ok("Net::Google");
  my $google = Net::Google->new(key=>$key,debug=>0);
  
  isa_ok($google,"Net::Google");
  
  my $search = $google->search();
  isa_ok($search,"Net::Google::Search");
  
  $search->query(QUERY);
  $search->max_results(MAXRESULTS);
  $search->filter(1);
	  
  my $results = $search->results();
  is(ref($results),"ARRAY","Got results for ".QUERY);
  
  print "Google returned ".scalar(@$results)." results:\n";
  map { print $_->URL()."\n"; } @{$results};
}

# $Id: 001-search.t,v 1.6 2004/06/02 14:25:30 asc Exp $