X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F02-IndexData-Utils-PersistentCounter.t;fp=t%2F02-IndexData-Utils-PersistentCounter.t;h=a7752d6d2d27352e7dc738947ad1a28f2bf4427c;hb=299a16ae8cd82f4deaab3480bf584ba65327774b;hp=d6930dc38df2c008362218514f914629889b100e;hpb=452e4301773f3ed690f7081d113a22087a5eef9c;p=perl-indexdata-utils.git

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");