ext/Fcntl/t/mode.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     require 'test.pl';
   5 }
   6
   7 plan tests => 2;
   8
   9 use File::Temp;
  10 use Fcntl qw(:mode);
  11
  12 my $tmpfile = File::Temp->new;
  13 my $mode = (stat "$tmpfile")[2];
  14 ok( S_ISREG($mode), " S_ISREG tmpfile");
  15 ok(!S_ISDIR($mode), "!S_ISDIR tmpfile");