This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tidy perlio_open.t, by using test.pl skip_all* functions where appropriate.
[perl5.git] / t / io / perlio_open.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7     skip_all('not perlio') unless (find PerlIO::Layer 'perlio');
8     skip_all_if_miniperl("no dynamic loading on miniperl, no Fcntl");
9     skip_all_without_extension('Fcntl'); # how did you get this far?
10 }
11
12 use strict;
13 use warnings;
14
15 plan tests => 6;
16
17 use Fcntl qw(:seek);
18
19 {
20     ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
21     print $fh "the right write stuff";
22     ok(seek($fh, 0, SEEK_SET), "seek to zero");
23     my $data = <$fh>;
24     is($data, "the right write stuff", "found the right stuff");
25 }
26
27 {
28     ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
29     print $fh "the right read stuff";
30     ok(seek($fh, 0, SEEK_SET), "seek to zero");
31     my $data = <$fh>;
32     is($data, "the right read stuff", "found the right stuff");
33 }
34
35
36
37