diff options
Diffstat (limited to 't/lib.t')
-rw-r--r-- | t/lib.t | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -30,12 +30,12 @@ my $sch = SpamCat->new(%conf); ok(defined $sch, 'Constructor returns instance'); ok(SpamCat->can('decrement_count'), 'Has count decrementor'); -is($sch->decrement_count('foo'), $conf{default_count}, +is($sch->decrement_count('foo'), 19, 'Default count for new sender'); -is($sch->decrement_count('foo'), 19, 'Existing sender decrements'); +is($sch->decrement_count('foo'), 18, 'Existing sender decrements'); ok(SpamCat->can('get_count'), 'Has count getter'); -is($sch->get_count('foo'), 19, 'Returns existing sender count'); +is($sch->get_count('foo'), 18, 'Returns existing sender count'); ok(!defined $sch->get_count('doesntexist'), 'Non-existant sender has undefined count'); @@ -77,11 +77,11 @@ is($rows[0]->{count}, -1); is($rows[1]->{sender}, 'bar'); is($rows[1]->{count}, 0); is($rows[2]->{sender}, 'foo'); -is($rows[2]->{count}, 16); +is($rows[2]->{count}, 15); is($rows[3]->{sender}, 'name1'); -is($rows[3]->{count}, 20); +is($rows[3]->{count}, 19); is($rows[4]->{sender}, 'nosubj'); -is($rows[4]->{count}, 20); +is($rows[4]->{count}, 19); sub test_file { my ($filen) = @_; |