use
strict;
use
warnings;
use
Test::More;
use
FindBin;
my
$dir
= tempdir();
ok( !is_dev(
$dir
),
'empty dirs should not be dev dirs'
);
ok( is_dev(
"$FindBin::Bin/../"
),
'dirname(dirname(__FILE__)) is dev'
);
done_testing;
use
strict;
use
warnings;
use
Test::More;
use
FindBin;
my
$dir
= tempdir();
ok( !is_dev(
$dir
),
'empty dirs should not be dev dirs'
);
ok( is_dev(
"$FindBin::Bin/../"
),
'dirname(dirname(__FILE__)) is dev'
);
done_testing;