From 76a1ba5f056fbdce14054128faedb0512bfee2d0 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 17 May 2011 22:43:18 +0200 Subject: Begin work on App::Hashl tests --- t/29-app-hashl.t | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 t/29-app-hashl.t (limited to 't/29-app-hashl.t') 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'); -- cgit v1.2.3