Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (17 sloc) 513 Bytes
use strict;
use lib qw(..);
use Test::More tests => 2;
use FlashVideo::Site::Googlevideosearch;
my @results = FlashVideo::Site::Googlevideosearch->search('Iron Man trailer');
ok(@results > 1, "Results returned");
# Check to see if the results look sane
my $sane_result_count = 0;
foreach my $result (@results) {
if ((ref($result) eq 'HASH') and
$result->{name} and
$result->{url} =~ m'^http://') {
ok($sane_result_count == @results, "Results look sane");
Something went wrong with that request. Please try again.