This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update to perllocale.pod
[perl5.git] / t / lib / io_xs.t
CommitLineData
61f2b451
PP
1#!./perl
2$| = 1;
3
4BEGIN {
5 chdir 't' if -d 't';
6 @INC = '../lib' if -d '../lib';
7 require Config; import Config;
8 if ($Config{'extensions'} !~ /\bIO\b/ && !($^O eq 'VMS')) {
9 print "1..0\n";
10 exit 0;
11 }
12}
13
14use IO::File;
15use IO::Seekable;
16
17print "1..2\n";
18use IO::File;
19$x = new_tmpfile IO::File or print "not ";
20print "ok 1\n";
21print $x "ok 2\n";
22$x->seek(0,SEEK_SET);
23print <$x>;