seeing as 'threadDelay' doesn't guarantee immediate pickup, we should…

…n't test that. Did extend the test to verify a trigger does at least restart the timer
yesodweb · Nov 3, 2024 · 599ce8d · 599ce8d
1 parent 1e362d3
commit 599ce8d
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/auto-update/test/Control/DebounceSpec.hs b/auto-update/test/Control/DebounceSpec.hs
@@ -153,6 +153,7 @@ spec = describe "mkDebounce" $ do
             threadDelay 500_000
 
             readIORef ref `shouldReturn` 0
+            before2nd <- getMonotonicTime
             debounced
             readIORef ref `shouldReturn` 0
             threadDelay 500_000
@@ -164,10 +165,10 @@ spec = describe "mkDebounce" $ do
 
             waitUntil 1 $ readIORef ref `shouldReturn` 1
             end <- getMonotonicTime
-            assertBool "Took less than 1.5 sec" $
+            assertBool "Took less than 1 sec after retrigger" $
+                end - before2nd > 1
+            assertBool "Took less than 1.5 sec total" $
                 end - start > 1.5
-            assertBool "Took more than 1.6 sec" $
-                end - start < 1.6
 
 -- | Make a controllable delay function
 getWaitAction :: IO (p -> IO (), IO ())