From 18819b75b20c3a8b3bf7a0b6120c6805c265fd60 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 18 May 2011 18:20:37 +0200 Subject: Add test for recent add_file fix --- t/29-app-hashl.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/29-app-hashl.t b/t/29-app-hashl.t index fd8f95b..f17fc88 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 => 31; +use Test::More tests => 32; use_ok('App::Hashl'); @@ -77,6 +77,13 @@ unlink('t/in/hashl.db'); is($hashl->file_in_db('t/in/4'), $IGNORED, 'file still ignored'); is_deeply([$hashl->files()], [], 'no files in db'); +$hashl->add_file( + file => 't/in/1k', + path => 't/in/1k', +); + +is_deeply([$hashl->files()], [], 'ignored file not added'); + undef $hashl; my $hash_512 = App::Hashl->new(read_size => 512)->hash_file('t/in/1k'); -- cgit v1.2.3