view release on metacpan or  search on metacpan

t/12-reldir.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";

nuke();
pave();

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

eval { $ez->backup };
ok($@);

nuke();
done_testing();