Extend Schedule test

turion · Oct 27, 2024 · c6f08ac · c6f08ac
1 parent 582fe5e
commit c6f08ac
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/rhine/test/Schedule.hs b/rhine/test/Schedule.hs
@@ -6,6 +6,7 @@ module Schedule where
 import Control.Arrow ((>>>))
 import Data.Functor (($>))
 import Data.Functor.Identity
+import Data.List (sort)
 
 -- tasty
 import Test.Tasty
@@ -59,14 +60,16 @@ tests =
         [ testCase "chronological ticks" $ do
             let
               (runningClock, _time) = runSchedule (initClock $ ParallelClock (FixedStep @5) (FixedStep @3) :: RunningClockInit (Schedule Integer) Integer (Either () ()))
-              output = runSchedule $ embed runningClock $ replicate 6 ()
-            output
+              output = runSchedule $ embed runningClock $ replicate 1000 ()
+            take 6 output
               @?= [ (3, Right ())
                   , (5, Left ())
                   , (6, Right ())
                   , (9, Right ())
                   , (10, Left ())
                   , (12, Right ())
                   ]
+            let timestamps = fst <$> output
+            timestamps @?= sort timestamps
         ]
     ]