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

Timestamp:

04/18/08 19:00:39 (8 months ago)

Author:

daisuke

Message:

lang/perl/WebService-Simple; Add caching

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;
+use Test::MockObject;
 
 my ($flickr_api_key);
@@ -9 +10 @@
         plan( skip_all => "Please set FLICKR_API_KEY to enable this test" );
     } else {
-        plan( tests => 10 );
+        plan( tests => 13 );
     }
 
@@ -38 +39 @@
 
     is( $h->{name}, 'value' );
+
+    # Make sure the response is NOT cached by default
+    {
+        my $tmp = $simple->get( { method => "flickr.test.echo", name => "value" } );
+        isnt( $tmp, $response, "response is NOT cached ($response <=> $tmp)" );
+    }
 }
+
+SKIP: {
+    eval { require Cache::Memory };
+    if ($@) {
+        skip(2, "Cache::Memory not installed");
+    }
+
+    my $called = 0;
+    my $simple = WebService::Simple->new(
+        base_url => "http://api.flickr.com/services/rest/",
+        params   => {
+            api_key => $flickr_api_key
+        },
+        cache => {
+            module => 'Cache::Memory',
+        }
+    );
+
+    my $response;
+    for (1..3) {
+        my $tmp = $simple->get( { method => "flickr.test.echo", name => "value" } );
+        if ($response) {
+            is( $tmp, $response, "got cached $response" );
+        } else {
+            $response = $tmp;
+        }
+    }
+}