avoid temp file littering in tests

[p5sagit/p5-mst-13.2.git] / lib / Memoize / t / expire_module_n.t

diff --git a/lib/Memoize/t/expire_module_n.t b/lib/Memoize/t/expire_module_n.t
index b6b4521..7e5505a 100644 (file)
--- a/lib/Memoize/t/expire_module_n.t
+++ b/lib/Memoize/t/expire_module_n.t
@@ -6,7 +6,7 @@ use Memoize;
 my $n = 0;
 
 
-print "1..21\n";
+print "1..22\n";
 
 ++$n; print "ok $n\n";
 
@@ -19,8 +19,12 @@ sub call {
   $RETURN;
 }
 
+require Memoize::Expire;
+++$n; print "ok $n\n";
+
+tie my %cache => 'Memoize::Expire', NUM_USES => 2;
 memoize 'call',
-    SCALAR_CACHE => ['TIE', 'Memoize::Expire', NUM_USES => 2],
+    SCALAR_CACHE => [HASH => \%cache],
     LIST_CACHE => 'FAULT';
 
 # $Memoize::Expire::DEBUG = 1;
@@ -56,5 +60,3 @@ for (0,1,2,3) {
   print "not " unless $CALLS{$_} == (1,2,2,1)[$_];
   ++$n; print "ok $n\n";
 }
-
-