view release on metacpan or  search on metacpan

t/Installer.t  view on Meta::CPAN

use Test::SetupTeardown;

use File::Path qw(remove_tree);
use Path::Tiny qw(path);
use YAML::Tiny;

use App::Spoor::Config;
use App::Spoor::LoginUnitFile;
use App::Spoor::AccessUnitFile;

my $test_user = getpwuid($>);

sub setup {
  mkdir('/tmp/app_spoor_test_root', 0744);
  mkdir('/tmp/app_spoor_test_root/etc', 0744);
  mkdir('/tmp/app_spoor_test_root/etc/systemd', 0744);
  mkdir('/tmp/app_spoor_test_root/etc/systemd/system', 0744);
  mkdir('/tmp/app_spoor_test_root/var', 0744);
  mkdir('/tmp/app_spoor_test_root/var/lib', 0744);
  mkdir('/tmp/app_spoor_test_root/var/cpanel', 0744);
}

t/ParsedEntryWriter.t  view on Meta::CPAN

use v5.10;

use Test::More;
use Test::MockTime qw(set_fixed_time);
use Test::SetupTeardown;

use File::Path qw(remove_tree);
use YAML::Tiny;
use JSON;

my $test_user = getpwuid($>);
my $random_element = int(rand(1000000)) + 1000000;

my $root_path = "/tmp/app_spoor_test_root";

sub setup {
  mkdir("$root_path", 0744);
  mkdir("$root_path/var", 0744);
  mkdir("$root_path/var/lib", 0744);
  mkdir("$root_path/var/lib/spoor", 0744);
  mkdir("$root_path/var/lib/spoor/parsed", 0744);