From: Mike Taylor Date: Tue, 9 Dec 2014 12:18:16 +0000 (+0000) Subject: Expect 21st access to have value 21, not 20! X-Git-Tag: v0.02~16 X-Git-Url: http://git.indexdata.com/?p=perl-indexdata-utils.git;a=commitdiff_plain;h=f947811f49204cb1ddd3013bb094f7b5222547cc Expect 21st access to have value 21, not 20! --- diff --git a/t/02-IndexData-Utils-PersistentCounter.t b/t/02-IndexData-Utils-PersistentCounter.t index aa05060..8b57c30 100644 --- a/t/02-IndexData-Utils-PersistentCounter.t +++ b/t/02-IndexData-Utils-PersistentCounter.t @@ -41,7 +41,7 @@ while ((my $pid = wait()) > 0) { } my $n = $counter->next(); -ok($n == 20, "n == 20 after 20 accesses (n=$n)"); +ok($n == 21, "n == 21 on 21 total access (n=$n)"); my $ok = $counter->delete(); ok($ok, "deleted counter file");