/usr/share/perl5/Code/TidyAll/t/Util.pm is in libcode-tidyall-perl 0.20-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | package Code::TidyAll::t::Util;
$Code::TidyAll::t::Util::VERSION = '0.20';
use Code::TidyAll::Util qw(dirname tempdir_simple);
use IPC::System::Simple qw(capturex);
use Test::Class::Most parent => 'Code::TidyAll::Test::Class';
sub test_tempdir_simple : Tests {
my $dir = capturex(
"$^X", "-I",
"lib", "-MCode::TidyAll::Util",
"-e", "print Code::TidyAll::Util::tempdir_simple "
);
ok( -d dirname($dir), "parent exists" );
ok( !-d $dir, "dir does not exist" );
}
1;
|