root/WebService-Google-Suggest/trunk/t/01_suggest.t

Revision 1503 (checked in by miyagawa, 16 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More tests => 4;
3
4 BEGIN { use_ok 'WebService::Google::Suggest' }
5
6 my $suggest = WebService::Google::Suggest->new();
7
8 isa_ok($suggest->ua, "LWP::UserAgent", "ua() retuens LWP");
9
10 my @data = $suggest->complete("google");
11 is($data[0]->{query}, "google", "google completes to google");
12 is_deeply( [ $suggest->complete("udfg67a") ], [ ], "empty list" );
13
Note: See TracBrowser for help on using the browser.