Make the tools/backend test less sensitive to precise timing

diff --git a/tests/tools/backend-t b/tests/tools/backend-t
index 30f265c81de146c25cd46c67cc0c97511b8a9efd..3da82ccba67c416f11f0c07c324ce73f4d2b1230 100755 (executable)
--- a/tests/tools/backend-t
+++ b/tests/tools/backend-t
@@ -87,9 +87,9 @@ sub run_backend_checked {
 
 # Given a user, an action, and (for a password change) the new password,
 # locate that queued action and check that the correct information was stored
-# for it.  Expects the action to have been queued in the past second.  Reports
-# results with Test::More functions.  Always uses a directory named 'queue'
-# under test_tmpdir() as the queue directory.
+# for it.  Expects the action to have been queued in the five seconds.
+# Reports results with Test::More functions.  Always uses a directory named
+# 'queue' under test_tmpdir() as the queue directory.
 #
 # $user     - User for which the action should be queued
 # $action   - The queued action, chosen from enable, disable, or password
@@ -109,9 +109,12 @@ sub check_queued_action {
     # with the same timestamp with a non-zero sequence number.
     my $now = time;
     my $path;
-    for my $time ($now - 1 .. $now) {
-        $path = $base . strftime('%Y%m%dT%H%M%SZ-00', gmtime($time));
-        last if -f $path;
+    for my $time ($now - 10 .. $now + 1) {
+        my $candidate = $base . strftime('%Y%m%dT%H%M%SZ-00', gmtime($time));
+        if (-f $candidate) {
+            $path = $candidate;
+            last;
+        }
     }
     ok(defined($path), 'Queued change found');