9 unless (find PerlIO::Layer 'perlio') {
10 print "1..0 # Skip: not perlio\n";
14 unless (" $Config{extensions} " =~ / Fcntl /) {
15 print "1..0 # Skip: no Fcntl (how did you get this far?)\n";
20 use Test::More tests => 6;
25 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
26 print $fh "the right write stuff";
27 ok(seek($fh, 0, SEEK_SET), "seek to zero");
29 is($data, "the right write stuff", "found the right stuff");
33 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
34 print $fh "the right read stuff";
35 ok(seek($fh, 0, SEEK_SET), "seek to zero");
37 is($data, "the right read stuff", "found the right stuff");