This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fixed Fcntl::S_IFMT() breakage introduced by change 30674 (blead 26701)
[perl5.git] / ext / Fcntl / t / mode.t
1 #!./perl -w
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 plan tests => 2;
10
11 use File::Temp;
12 use Fcntl qw(:mode);
13
14 my $tmpfile = File::Temp->new;
15 my $mode = (stat "$tmpfile")[2];
16 ok( S_ISREG($mode), " S_ISREG tmpfile");
17 ok(!S_ISDIR($mode), "!S_ISDIR tmpfile");