blob: 24c24a149df3793672df6116255be6015f85887c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
use strict;
use Test::More tests => 5;
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 maps", "google completes to google maps");
is($data[0]->{rank}, 0, "google is first");
is_deeply( [ $suggest->complete("udfg67a") ], [ ], "empty list" );
|
