diff options
Diffstat (limited to '')
-rw-r--r-- | t/01_suggest.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/01_suggest.t b/t/01_suggest.t index 7db220e..07dfc6a 100644 --- a/t/01_suggest.t +++ b/t/01_suggest.t @@ -1,5 +1,5 @@ use strict; -use Test::More tests => 4; +use Test::More tests => 5; BEGIN { use_ok 'WebService::Google::Suggest' } @@ -9,5 +9,6 @@ isa_ok($suggest->ua, "LWP::UserAgent", "ua() retuens LWP"); my @data = $suggest->complete("google"); is($data[0]->{query}, "google", "google completes to google"); +ok($data[0]->{results}, "google has more than 0 results"); is_deeply( [ $suggest->complete("udfg67a") ], [ ], "empty list" ); |