From 13f51c2044fb22f6b3cb8c674a23fe636f7fb33d Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 19 Aug 2018 14:48:47 +0200 Subject: Reorganize tests Signed-off-by: Florian Pritz --- t/find_archives_mocked.t | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 t/find_archives_mocked.t (limited to 't/find_archives_mocked.t') diff --git a/t/find_archives_mocked.t b/t/find_archives_mocked.t new file mode 100644 index 0000000..7f0186a --- /dev/null +++ b/t/find_archives_mocked.t @@ -0,0 +1,29 @@ +use strict; +use warnings; + +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"}, + { modification_time => 15, archive => "test5"}, + ];}); + +my $app = App::BorgRestore->new_no_defaults({db => $db}); + +eq_or_diff($app->find_archives('test/path'), [ + {archive => 'test1', modification_time => 2}, + {archive => 'test2', modification_time => 5}, + {archive => 'test3', modification_time => 10}, + {archive => 'test5', modification_time => 15}, +]); + +done_testing; -- cgit v1.2.3-24-g4f1b