r45463 - /trunk/libgeo-ipfree-perl/t/basic-faster.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Oct  7 23:24:01 2009
New Revision: 45463

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45463
Log:
Update basic-faster.t from upstream, it seems to have disappeared from my working copy

Modified:
    trunk/libgeo-ipfree-perl/t/basic-faster.t

Modified: trunk/libgeo-ipfree-perl/t/basic-faster.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-ipfree-perl/t/basic-faster.t?rev=45463&op=diff
==============================================================================
--- trunk/libgeo-ipfree-perl/t/basic-faster.t (original)
+++ trunk/libgeo-ipfree-perl/t/basic-faster.t Wed Oct  7 23:24:01 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 13;
 
 use Geo::IPfree;
 my $g = Geo::IPfree->new;
@@ -43,3 +43,9 @@
         if @result == 3;
     is( scalar @result, 0, 'undef result' );
 }
+
+# rudimentary cache check
+ok( $g->{ CACHE }, 'cache exists' );
+$g->Clean_Cache;
+ok( !$g->{ CACHE }, 'cache cleared' );
+