Move IO from ext/ to dist/
[perl.git] / dist / IO / t / io_xs.t
1 #!./perl
2
3 use Config;
4
5 BEGIN {
6     if($ENV{PERL_CORE}) {
7         if ($Config{'extensions'} !~ /\bIO\b/) {
8             print "1..0 # Skip: IO extension not built\n";
9             exit 0;
10         }
11     }
12     if( $^O eq 'VMS' && $Config{'vms_cc_type'} ne 'decc' ) {
13         print "1..0 # Skip: not compatible with the VAXCRTL\n";
14         exit 0;
15     }
16 }
17
18 use IO::File;
19 use IO::Seekable;
20
21 print "1..4\n";
22
23 $x = new_tmpfile IO::File or print "not ";
24 print "ok 1\n";
25 print $x "ok 2\n";
26 $x->seek(0,SEEK_SET);
27 print <$x>;
28
29 $x->seek(0,SEEK_SET);
30 print $x "not ok 3\n";
31 $p = $x->getpos;
32 print $x "ok 3\n";
33 $x->flush;
34 $x->setpos($p);
35 print scalar <$x>;
36
37 $! = 0;
38 $x->setpos(undef);
39 print $! ? "ok 4 # $!\n" : "not ok 4\n";
40