From 299a16ae8cd82f4deaab3480bf584ba65327774b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 9 Dec 2014 11:39:02 +0000 Subject: [PATCH] Fix testing. --- t/02-IndexData-Utils-PersistentCounter.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/t/02-IndexData-Utils-PersistentCounter.t b/t/02-IndexData-Utils-PersistentCounter.t index d6930dc..a7752d6 100644 --- a/t/02-IndexData-Utils-PersistentCounter.t +++ b/t/02-IndexData-Utils-PersistentCounter.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 15; +use Test::More tests => 16; BEGIN { use_ok('IndexData::Utils::PersistentCounter') }; my $file = "/tmp/id-u-pc-$$"; @@ -12,15 +12,18 @@ $counter = new IndexData::Utils::PersistentCounter("/x/$file", 1); ok(!defined $counter, "can't create counter in silly place"); $counter = new IndexData::Utils::PersistentCounter($file, 1); -ok(defined $counter, "created new counter: $!"); +my $detail = defined $counter ? '' : ": $!@"; +ok(defined $counter, "created new counter$detail"); -foreach my $i (1..10) { +foreach my $i (1..5) { my $n = $counter->next(); - is($n, $i); + ok(defined $n, "n is defined"); + ok($n == $i, "n has correct value $i"); } ### should test access from multiple processes -$counter->delete(); +my $ok = $counter->delete(); +ok($ok, "deleted counter file"); $counter = new IndexData::Utils::PersistentCounter($file); ok(!defined $counter, "can't open deleted counter"); -- 1.7.10.4