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