use strict;
use Test::More tests => 2;
use Data::Dumper;
use Yahoo::Search AppId => "Perl API install test",
Count => 1;
my @Results = Yahoo::Search->Results(Doc => 'Larry Wall');
#warn Dumper(\@Results);
is @Results, 1;
like $Results[0]->Url, qr{^https?://};