From d737f0e7bc48921960d8a101c4e8d17ec414896a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 21 May 2011 13:05:39 +0200 Subject: App/Hashl: Add unignore function (not yet used in hashl itself) --- t/29-app-hashl.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 't') 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'); -- cgit v1.2.3