1 files changed, 28 insertions, 0 deletions
diff --git a/ext/FileCache/t/02maxopen.t b/ext/FileCache/t/02maxopen.t
new file mode 100644
index 0000000000..c95ba73bca
--- /dev/null
+++ b/ext/FileCache/t/02maxopen.t
@@ -0,0 +1,28 @@
+#!./perl
+
+use FileCache maxopen => 2;
+use vars qw(@files);
+BEGIN { @files = qw(foo bar baz quux) }
+END { 1 while unlink @files }
+
+use Test::More tests => 5;
+
+{# Test 2: that we actually adhere to maxopen
+  for my $path ( @files ){
+    cacheout $path;
+    print $path "$path 1\n";
+  }
+  
+  my @cat;
+  for my $path ( @files ){
+    ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
+    next unless fileno($path);
+    print $path "$path 2\n";
+    close($path);
+    open($path, $path);
+    <$path>;
+    push @cat, <$path>;
+    close($path);
+  }
+  ok( grep(/^(?:baz|quux) 2$/, @cat) == 2 );
+}