Convert Fcntl and PerlIO::encoding's tests to Test::More.
[perl.git] / ext / Fcntl / t / mode.t
1 #!./perl -w
2
3 use Test::More tests => 2;
4
5 use File::Temp;
6 use Fcntl qw(:mode);
7
8 my $tmpfile = File::Temp->new;
9 my $mode = (stat "$tmpfile")[2];
10 ok( S_ISREG($mode), " S_ISREG tmpfile");
11 ok(!S_ISDIR($mode), "!S_ISDIR tmpfile");