Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 855ad039 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[test] fix isInfixOf in tests

parent d8bf29f0
Pipeline #5258 passed with stages
          in 65 minutes and 8 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 3 additions and 2 deletions
          test/Test/Utils/Jobs.hs
          View file @ 855ad039
          ......@@ -20,8 +20,8 @@ import Control.Concurrent
          import Control.Concurrent.Async
          import Control.Concurrent.Async qualified as Async
          import Control.Concurrent.STM
          import Data.List (isInfixOf)
          import Data.Sequence ((|>), fromList)
          import Data.Text (isInfixOf)
          import Data.Time
          import Debug.RecoverRTTI (anythingToString)
          import Gargantext.API.Admin.EnvTypes as EnvTypes
          ......@@ -139,7 +139,8 @@ testMaxRunners = do
          forM_ allSamples $ \runLog -> do
          annotate "predicate to satisfy: (x `isInfixOf` [\"Job #1\", \"Job #2\"] || x `isInfixOf` [\"Job #3\", \"Job #4\"]" $
          shouldSatisfy (sort runLog)
          (\x -> x `isInfixOf` ["Job #1", "Job #2"] || x `isInfixOf` ["Job #3", "Job #4"])
          (\x -> x `isInfixOf` ["Job #1", "Job #2"]
          || x `isInfixOf` ["Job #3", "Job #4"])
          testPrios :: IO ()
          testPrios = do
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment