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");