view release on metacpan or  search on metacpan

t/14-whoami.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';
use Backup::EZ;
use Data::Dumper;
use Test::More;

require "t/common.pl";

$ENV{USER} = undef;

nuke();
pave();

my $ez;
eval {
	$ez = Backup::EZ->new(
		conf         => 't/ezbackup.conf',
		exclude_file => 'share/ezbackup_exclude.rsync',
		dryrun       => 0,
	);
};
ok($ez);
ok( $ez->backup );

nuke();
done_testing();