[tests] fix job progress test (order of array insert)

test/Test/Utils/Jobs.hs

@@ -368,7 +368,7 @@ testMarkProgress = do
         liftIO $ threadDelay 100_000
         st <- getLatestJobStatus hdl
         -- liftIO $ atomically $ writeTBQueue evts st
-        liftIO $ atomically $ modifyTVar evts (\xs -> st:xs)
+        liftIO $ atomically $ modifyTVar evts (\xs -> xs ++ [st])
       readAllEvents = do  
         -- We will get thread blocking if there is ANY error in the job
         -- Hence we assert the `readAllEvents` test doesn't take too long