diff options
| author | Florian Pritz <bluewind@xinu.at> | 2017-03-04 01:07:19 +0100 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2017-03-04 10:27:33 +0100 |
| commit | eac10e910a8fcb466a06da12c6748040e9a8babd (patch) | |
| tree | 49117ce4e842452e29e1f5aae2ede9b4dc953ac2 /t | |
| parent | 12a21ee5bbde99ae5273f777aaf5e3c606b69729 (diff) | |
| download | App-BorgRestore-eac10e910a8fcb466a06da12c6748040e9a8babd.tar.gz App-BorgRestore-eac10e910a8fcb466a06da12c6748040e9a8babd.tar.xz | |
Test adding of new archives
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 't')
| -rw-r--r-- | t/02_parsing.t | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/t/02_parsing.t b/t/02_parsing.t new file mode 100644 index 0000000..3f1f385 --- /dev/null +++ b/t/02_parsing.t @@ -0,0 +1,49 @@ +use strict; +use warnings; + +use Test::More; +use Test::MockObject; +use Test::Differences; + +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)); +$db->mock('-get_archive_id', sub {return 'prefix-archive-1' if $_[1] eq 'archive-1';}); +$db->mock('-get_archive_names', sub {return []}); + +my $borg = Test::MockObject->new(); +$borg->set_list('borg_list', ['archive-1']); +$borg->mock('list_archive', sub { + my ($self, $archive, $cb) = @_; + $cb->("XXX, 1970-01-01 01:00:05 ."); + $cb->("XXX, 1970-01-01 01:00:10 boot"); + $cb->("XXX, 1970-01-01 01:00:20 boot/grub"); + $cb->("XXX, 1970-01-01 01:00:08 boot/grub/grub.cfg"); + $cb->("XXX, 1970-01-01 01:00:13 boot/foo"); + $cb->("XXX, 1970-01-01 01:00:13 boot/foo/blub"); + $cb->("XXX, 1970-01-01 01:00:19 boot/foo/bar"); + } ); + +# Call the actual function we want to test +my $app = App::BorgRestore->new({}, {borg => $borg, db => $db}); +$app->handle_added_archives($db, ['archive-1']); + +# Check if $db->add_path has been called properly +my (@calls, @a); +push @calls, [@a] while @a = $db->next_call(); + +# sort by path +@calls = sort {$a->[1][2] cmp $b->[1][2];} @calls; + +eq_or_diff(\@calls, [ + ['add_path', [$db, 'prefix-archive-1', 'boot', 20]], + ['add_path', [$db, 'prefix-archive-1', 'boot/foo', 19]], + ['add_path', [$db, 'prefix-archive-1', 'boot/foo/bar', 19]], + ['add_path', [$db, 'prefix-archive-1', 'boot/foo/blub', 13]], + ['add_path', [$db, 'prefix-archive-1', 'boot/grub', 20]], + ['add_path', [$db, 'prefix-archive-1', 'boot/grub/grub.cfg', 8]], + ], "Database is populated with the correct timestamps"); + +done_testing; |