Changeset 10117

Timestamp:

04/22/08 10:17:43 (6 months ago)

Author:

daisuke

Message:

more testing using flickr

Location:

lang/perl/WebService-Simple/trunk

Files:

• Makefile.PL (modified) (1 diff)
• t/02_parser_libxml.t (modified) (3 diffs)
• t/02_parser_xml_simple.t (added)

lang/perl/WebService-Simple/trunk/Makefile.PL

@@ -15 +15 @@
 requires( 'XML::Simple' );
 
+recommends( 'XML::LibXML' );
+
 build_requires( 'Test::More' );
 build_requires( 'Test::Pod' );

lang/perl/WebService-Simple/trunk/t/02_parser_libxml.t

@@ -2 +2 @@
 use Test::More;
 
+my $flickr_api_key = $ENV{FLICKR_API_KEY};
 BEGIN
 {
@@ -8 +9 @@
         plan(skip_all => "XML::LibXML not installed");
     } else {
-        plan(tests => 2);
+        plan(tests => 7);
     }
     use_ok("WebService::Simple");
@@ -15 +16 @@
 {
     my $service = WebService::Simple->new(
-        base_url => "http://example.com/hoge",
-        response_parser => "XML::LibXML"
+        base_url => "http://api.flickr.com/services/rest/",
+        response_parser => 'XML::LibXML',
+        params   => {
+            api_key => $flickr_api_key
+        }
     );
     isa_ok( $service->response_parser, "WebService::Simple::Parser::XML::LibXML");
+
+    SKIP: {
+        if (! $flickr_api_key ) {
+            skip( "Please set FLICKR_API_KEY to enable this test", 1 );
+        }
+    
+        my $response = $service->get( { method => "flickr.test.echo", name => "value" } );
+        my $xml = $response->parse_response;
+    
+        isa_ok( $xml, 'XML::LibXML::Document' );
+        is( $xml->findvalue( '/rsp/@stat' ), 'ok', '/rsp/@stat' );
+        is( $xml->findvalue( '/rsp/api_key' ), $flickr_api_key, '/rsp/api_key', );
+        is( $xml->findvalue( '/rsp/name' ), "value", '/rsp/name' );
+        is( $xml->findvalue( '/rsp/method' ), 'flickr.test.echo', '/rsp/method' );
+    }
 }