diff options
author | Florian Pritz <bluewind@xinu.at> | 2018-08-19 14:48:47 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2018-08-19 14:48:47 +0200 |
commit | 13f51c2044fb22f6b3cb8c674a23fe636f7fb33d (patch) | |
tree | dc7d9cc7aabff00fd59f1a255faf4c1ce581e65b /t/cache_contains_data.t | |
parent | dcb88a73de56ed32368ebbf9b22053b2c1b1c89b (diff) | |
download | App-BorgRestore-13f51c2044fb22f6b3cb8c674a23fe636f7fb33d.tar.gz App-BorgRestore-13f51c2044fb22f6b3cb8c674a23fe636f7fb33d.tar.xz |
Reorganize tests
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 't/cache_contains_data.t')
-rw-r--r-- | t/cache_contains_data.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/cache_contains_data.t b/t/cache_contains_data.t new file mode 100644 index 0000000..2187ab0 --- /dev/null +++ b/t/cache_contains_data.t @@ -0,0 +1,22 @@ +use strict; +use warnings; + +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 [];}); +is($app->cache_contains_data(), 0); + +$db->mock('get_archive_names', sub {return [qw(a)];}); +is($app->cache_contains_data(), 1); + +done_testing; |