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