diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-05-17 22:43:18 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-17 22:43:18 +0200 |
commit | 76a1ba5f056fbdce14054128faedb0512bfee2d0 (patch) | |
tree | 41988cb3e195cf6d4bc9e7cfc22923d8efae9372 /t | |
parent | 2f99841240904b6a487c9216b410e3e34e8506ac (diff) |
Begin work on App::Hashl tests
Diffstat (limited to 't')
-rw-r--r-- | t/29-app-hashl.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/t/29-app-hashl.t b/t/29-app-hashl.t new file mode 100644 index 0000000..fbd2e99 --- /dev/null +++ b/t/29-app-hashl.t @@ -0,0 +1,30 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; + +use Test::More tests => 13; + +use_ok('App::Hashl'); + +my $hashl = App::Hashl->new(); +isa_ok($hashl, 'App::Hashl'); + +is($hashl->read_size(), (2 ** 20) * 4, 'default read size'); + +$hashl = App::Hashl->new(read_size => 512); + +is($hashl->read_size(), 512, 'Custom read size set'); + +is($hashl->si_size(1023), '1023.0 ', 'si_size 1023 = 1023'); +is($hashl->si_size(1024), ' 1.0k', 'si_size 1024 = 1k'); +is($hashl->si_size(2048), ' 2.0k', 'si_size 2048 = 2k'); + + +is($hashl->hash_in_db('123'), undef, 'hash not in db'); +is($hashl->file_in_db('t/in/4'), undef, 'file not in db'); +is_deeply([$hashl->files()], [], 'no files in empty db'); +is_deeply([$hashl->ignored()], [], 'no ignored files in empty db'); + +ok($hashl->ignore('hash123'), 'ignore hash'); +is_deeply([$hashl->ignored()], ['hash123'], 'ignore hash'); |