This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In IO::File::open, prepend './' less often (for Win32 et al)
[perl5.git] / t / lib / io_xs.t
CommitLineData
61f2b451 1#!./perl
61f2b451
PP
2
3BEGIN {
7a4c00b4
PP
4 unless(grep /blib/, @INC) {
5 chdir 't' if -d 't';
6 @INC = '../lib' if -d '../lib';
7 }
8}
9
10use Config;
11
12BEGIN {
13 if(-d "lib" && -f "TEST") {
14 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
15 print "1..0\n";
16 exit 0;
17 }
61f2b451
PP
18 }
19}
20
21use IO::File;
22use IO::Seekable;
23
24print "1..2\n";
25use IO::File;
26$x = new_tmpfile IO::File or print "not ";
27print "ok 1\n";
28print $x "ok 2\n";
29$x->seek(0,SEEK_SET);
30print <$x>;