Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (17 sloc) 0.513 kB
#!perl
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://') {
$sane_result_count++;
}
}
ok($sane_result_count == @results, "Results look sane");
Jump to Line
Something went wrong with that request. Please try again.