diff options
Diffstat (limited to 't')
-rw-r--r-- | t/00_compile.t | 4 | ||||
-rw-r--r-- | t/01_suggest.t | 13 |
2 files changed, 17 insertions, 0 deletions
diff --git a/t/00_compile.t b/t/00_compile.t new file mode 100644 index 0000000..bcaa28f --- /dev/null +++ b/t/00_compile.t @@ -0,0 +1,4 @@ +use strict; +use Test::More tests => 1; + +BEGIN { use_ok 'WebService::Google::Suggest' } diff --git a/t/01_suggest.t b/t/01_suggest.t new file mode 100644 index 0000000..7db220e --- /dev/null +++ b/t/01_suggest.t @@ -0,0 +1,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" ); + |