xref: /openbsd-src/gnu/usr.bin/perl/ext/FileCache/t/05override.t (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)

#!./perl

use FileCache;

END { unlink("Foo_Bar_ov") }

use Test::More tests => 1;

{# Test 5: that close is overridden properly within the caller
     cacheout local $_ = "Foo_Bar_ov";
     print $_ "Hello World\n";
     close($_);
     ok(!fileno($_));
}