1 files changed, 14 insertions, 0 deletions
diff --git a/ext/FileCache/t/05override.t b/ext/FileCache/t/05override.t
new file mode 100644
index 0000000000..7edd5a39b7
--- /dev/null
+++ b/ext/FileCache/t/05override.t
@@ -0,0 +1,14 @@
+#!./perl
+
+use FileCache;
+
+END { unlink("Foo_Bar") }
+
+use Test::More tests => 1;
+
+{# Test 5: that close is overridden properly within the caller
+     cacheout local $_ = "Foo_Bar";
+     print $_ "Hello World\n";
+     close($_);
+     ok(!fileno($_));
+}