37 lines
761 B
Perl
37 lines
761 B
Perl
|
#!./perl
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
chdir 't' if -d 't';
|
||
|
|
require './test.pl';
|
||
|
|
set_up_inc('../lib');
|
||
|
|
skip_all_without_perlio();
|
||
|
|
skip_all_without_dynamic_extension('Fcntl'); # how did you get this far?
|
||
|
|
}
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
plan 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");
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|