Upgrade to Memoize 1.00, from mjd, modulo the Memoize::Saves,

[perl5.git] / lib / Memoize / t / expfile.t

diff --git a/lib/Memoize/t/expire_file.t b/lib/Memoize/t/expfile.t
similarity index 89%
rename from lib/Memoize/t/expire_file.t
rename to lib/Memoize/t/expfile.t
index 78a94d4..9959d00 100644 (file)
--- a/lib/Memoize/t/expire_file.t
+++ b/lib/Memoize/t/expfile.t
@@ -1,9 +1,6 @@
 #!/usr/bin/perl
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
+use lib '..';
 use Memoize;
 
 my $n = 0;
@@ -31,7 +28,7 @@ sub writefile {
 sub readfile {
   $READFILE_CALLS++;
   my $FILE = shift;
-  open F, "< $FILE" or die "Couldn't read temporary file $FILE: $!";
+  open F, "< $FILE" or die "Couldn't write temporary file $FILE: $!";
   my $data = <F>;
   close F;
   $data;
@@ -61,7 +58,7 @@ my $t2 = readfile($FILE);
 ++$n; print ((($READFILE_CALLS == 1) ? '' : 'not '), "ok $n\n");
 ++$n; print ((($t1 eq $t2) ? '' : 'not '), "ok $n\n");
 
-sleep 3;
+sleep 2;
 writefile($FILE);
 my $t3 = readfile($FILE);
 ++$n; print "ok $n\n";