App-BorgRestore

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Version::Compare" : "0",
            "autodie" : "0",
            "perl" : "v5.14.0",
            "strictures" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Log::Any::Adapter::TAP" : "0",
            "Software::License::GPL_3" : "0",
            "Test::Differences" : "0",
            "Test::Exception" : "0",
            "Test::MockObject" : "0",
            "Test::More" : "0.98",
            "Test::Pod" : "0",
            "Test::Pod::Coverage" : "0"
         }
      }
   },
   "provides" : {
      "App::BorgRestore" : {

META.yml  view on Meta::CPAN

---
abstract: 'Restore paths from borg backups'
author:
  - 'Florian Pritz <bluewind@xinu.at>'
build_requires:
  Log::Any::Adapter::TAP: '0'
  Software::License::GPL_3: '0'
  Test::Differences: '0'
  Test::Exception: '0'
  Test::MockObject: '0'
  Test::More: '0.98'
  Test::Pod: '0'
  Test::Pod::Coverage: '0'
configure_requires:
  Devel::CheckBin: '0'
  Module::Build::Tiny: '0.035'
dynamic_config: 0
generated_by: 'Minilla/v3.1.22, CPAN::Meta::Converter version 2.150010'

cpanfile  view on Meta::CPAN

requires 'strictures';

on configure => sub {
	requires 'Devel::CheckBin';
	requires 'Module::Build::Tiny', '0.035';
};

on 'test' => sub {
	requires 'Log::Any::Adapter::TAP';
	requires 'Software::License::GPL_3';
	requires 'Test::Differences';
	requires 'Test::Exception';
	requires 'Test::MockObject';
	requires 'Test::More', '0.98';
	requires 'Test::Pod';
	requires 'Test::Pod::Coverage';
};

t/cache_contains_data.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use Test::More;
use Test::MockObject;
use Test::Differences;

use App::BorgRestore;

my $db = Test::MockObject->new();
my $app = App::BorgRestore->new_no_defaults({db => $db});

$db->mock('get_archive_names', sub {return [qw(a b c)];});
is($app->cache_contains_data(), 1);

$db->mock('get_archive_names', sub {return [];});

t/find_archives.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use Test::More;
use Test::MockObject;
use Test::Differences;
use Test::Exception;

use App::BorgRestore;
use App::BorgRestore::DB;
use Log::Any::Adapter ('TAP');

my $db = App::BorgRestore::DB->new(":memory:", 0);

my $app = App::BorgRestore->new_no_defaults({db => $db});

t/find_archives_mocked.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use Test::More;
use Test::MockObject;
use Test::Differences;

use App::BorgRestore;

my $db = Test::MockObject->new();
$db->mock('get_archives_for_path', sub {return [
			{ modification_time => 5, archive => "test2"},
			{ modification_time => 2, archive => "test1"},
			{ modification_time => 10, archive => "test3"},
			{ modification_time => 10, archive => "test4"},
			{ modification_time => 2, archive => "test1-1"},

t/handle_added_archives.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use POSIX qw(tzset);
use Test::Differences;
use Test::MockObject;
use Test::More;

use App::BorgRestore;

# Only log calls to $db->add_path
my $db = Test::MockObject->new();
$db->set_true(qw(add_path -begin_work -commit -vacuum -add_archive_name -verify_cache_fill_rate_ok));
$db->mock('-get_archive_id', sub {return 'prefix-archive-1' if $_[1] eq 'archive-1';});
$db->mock('-get_archive_names', sub {return []});

t/handle_added_archives_with_db.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use POSIX qw(tzset);
use Test::Differences;
use Test::MockObject;
use Test::More;

use App::BorgRestore;
use App::BorgRestore::Settings;

for my $in_memory (0,1) {
	my $db = App::BorgRestore::DB->new(":memory:", 0);

	$ENV{TZ} = 'UTC';

t/search_path.t  view on Meta::CPAN

use strictures 2;

use Log::Any::Adapter ('TAP');
use Test::More;
use Test::MockObject;
use Test::Differences;

use App::BorgRestore;
use App::BorgRestore::DB;

my $db = App::BorgRestore::DB->new(":memory:", 0);
my $app = App::BorgRestore->new_no_defaults({db => $db});

$db->add_archive_name("test1");
my $archive_id1 = $db->get_archive_id("test1");
$db->add_archive_name("test2");