diff options
| author | miyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7> | 2007-10-11 21:35:39 +0000 |
|---|---|---|
| committer | miyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7> | 2007-10-11 21:35:39 +0000 |
| commit | 3f92c12f4b3e24bd89b08020605ef6121660250e (patch) | |
| tree | 047e91265094df65e35f3fe3606e13d331c9b0fd /t/01_suggest.t | |
| parent | Checking in changes prior to tagging of version 0.02. Changelog diff is: (diff) | |
| download | webservice-google-suggest-3f92c12f4b3e24bd89b08020605ef6121660250e.tar.gz | |
update per Google Suggest API change
git-svn-id: http://svn.bulknews.net/repos/public/WebService-Google-Suggest/trunk@2375 65690182-5df0-0310-9871-95da5a3706e7
Diffstat (limited to 't/01_suggest.t')
| -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" ); |