blob: 7db220eb141b2620a71b5f3d712c1203aae21a9e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
use strict;
use Test::More tests => 4;
BEGIN { use_ok 'WebService::Google::Suggest' }
my $suggest = WebService::Google::Suggest->new();
isa_ok($suggest->ua, "LWP::UserAgent", "ua() retuens LWP");
my @data = $suggest->complete("google");
is($data[0]->{query}, "google", "google completes to google");
is_deeply( [ $suggest->complete("udfg67a") ], [ ], "empty list" );
|