diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-05-21 13:05:39 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-21 13:05:39 +0200 |
commit | d737f0e7bc48921960d8a101c4e8d17ec414896a (patch) | |
tree | f74065a93b623f33e8e30662ff4a09bad3e2be09 /t/29-app-hashl.t | |
parent | 474928ed9579e41bc927e4a9980857f28cb25209 (diff) |
App/Hashl: Add unignore function (not yet used in hashl itself)
Diffstat (limited to 't/29-app-hashl.t')
-rw-r--r-- | t/29-app-hashl.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/29-app-hashl.t b/t/29-app-hashl.t index f17fc88..e5b6fe3 100644 --- a/t/29-app-hashl.t +++ b/t/29-app-hashl.t @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -use Test::More tests => 32; +use Test::More tests => 35; use_ok('App::Hashl'); @@ -84,6 +84,19 @@ $hashl->add_file( is_deeply([$hashl->files()], [], 'ignored file not added'); +$hashl->unignore('t/in/1k'); +is_deeply([$hashl->ignored()], [$test_hash], 'unignore worked'); + +ok( + $hashl->add_file( + file => 't/in/1k', + path => 't/in/1k', + ), + 'Re-add file to database', +); + +ok($hashl->file_in_db('t/in/1k', 'file in db again')); + undef $hashl; my $hash_512 = App::Hashl->new(read_size => 512)->hash_file('t/in/1k'); |