Changeset 9687 for lang/perl/WebService-Simple/branch/lwp-base/t/01_basic.t

Timestamp:

04/18/08 16:58:49 (8 months ago)

Author:

daisuke

Message:

lang/perl/WebService-Simple; make the test accept a flickr API, and actually parse the response

Files:

• lang/perl/WebService-Simple/branch/lwp-base/t/01_basic.t (modified) (3 diffs)

lang/perl/WebService-Simple/branch/lwp-base/t/01_basic.t

@@ -1 +1 @@
 use strict;
-use Test::More (tests => 5);
+use Test::More;
 
+my ($flickr_api_key);
 BEGIN
 {
+    $flickr_api_key = $ENV{FLICKR_API_KEY};
+    if (! $flickr_api_key ) {
+        plan( skip_all => "Please set FLICKR_API_KEY to enable this test" );
+    } else {
+        plan( tests => 10 );
+    }
+
     use_ok("WebService::Simple");
 }
@@ -10 +18 @@
     my $simple = WebService::Simple->new(
         base_url => "http://api.flickr.com/services/rest/",
+        params   => {
+            api_key => $flickr_api_key
+        }
     );
 
@@ -16 +27 @@
     ok( $simple->response_parser, "parser ok" );
     isa_ok( $simple->response_parser, "WebService::Simple::Parser::XML::Simple", "parser isa WebService::Simple::Parser::XML::Simple" );
+
+    my $response = $simple->get( { method => "flickr.test.echo", name => "value" } );
+
+    ok( $response );
+    isa_ok( $response, "WebService::Simple::Response" );
+
+    my $h = $response->parse_response;
+    ok($h);
+    isa_ok($h, 'HASH');
+
+    is( $h->{name}, 'value' );
 }