6 if ($ENV{PERL_CORE_MINITEST}) {
7 print "1..0 # Skip: no Fcntl under miniperl\n";
10 unless (find PerlIO::Layer 'perlio') {
11 print "1..0 # Skip: not perlio\n";
15 unless (" $Config{extensions} " =~ / Fcntl /) {
16 print "1..0 # Skip: no Fcntl (how did you get this far?)\n";
30 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
31 print $fh "the right write stuff";
32 ok(seek($fh, 0, SEEK_SET), "seek to zero");
34 is($data, "the right write stuff", "found the right stuff");
38 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
39 print $fh "the right read stuff";
40 ok(seek($fh, 0, SEEK_SET), "seek to zero");
42 is($data, "the right read stuff", "found the right stuff");