Switch the new perlio way of opening anonymous temporary files

open my $fh, '+>', undef
to using File::Temp.  Test it, and test also the "accidental
feature" of +< working the same way.
This should address [perl #21937].

p4raw-id: //depot/perl@19418

1 files changed, 42 insertions, 0 deletions

diff --git a/ext/PerlIO/t/open.t b/ext/PerlIO/t/open.t
new file mode 100644
index 0000000000..7d870b9e67
--- /dev/null
+++ b/ext/PerlIO/t/open.t
@@ -0,0 +1,42 @@
+#!./perl
+
+use strict;
+use warnings;
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    unless (find PerlIO::Layer 'perlio') {
+	print "1..0 # Skip: not perlio\n";
+	exit 0;
+    }
+    use Config;
+    unless (" $Config{extensions} " =~ / Fcntl /) {
+	print "1..0 # Skip: no Fcntl (how did you get this far?)\n";
+	exit 0;
+    }
+}
+
+use Test::More tests => 6;
+
+use Fcntl qw(:seek);
+
+{
+    ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
+    print $fh "the right write stuff";
+    ok(seek($fh, 0, SEEK_SET), "seek to zero");
+    my $data = <$fh>;
+    is($data, "the right write stuff", "found the right stuff");
+}
+
+{
+    ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
+    print $fh "the right read stuff";
+    ok(seek($fh, 0, SEEK_SET), "seek to zero");
+    my $data = <$fh>;
+    is($data, "the right read stuff", "found the right stuff");
+}
+
+
+
+