Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
118
Issues
118
List
Board
Labels
Milestones
Merge Requests
7
Merge Requests
7
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-gargantext
Commits
855ad039
Verified
Commit
855ad039
authored
Oct 13, 2023
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[test] fix isInfixOf in tests
parent
d8bf29f0
Pipeline
#5258
passed with stages
in 65 minutes and 8 seconds
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
Jobs.hs
test/Test/Utils/Jobs.hs
+3
-2
No files found.
test/Test/Utils/Jobs.hs
View file @
855ad039
...
@@ -20,8 +20,8 @@ import Control.Concurrent
...
@@ -20,8 +20,8 @@ import Control.Concurrent
import
Control.Concurrent.Async
import
Control.Concurrent.Async
import
Control.Concurrent.Async
qualified
as
Async
import
Control.Concurrent.Async
qualified
as
Async
import
Control.Concurrent.STM
import
Control.Concurrent.STM
import
Data.List
(
isInfixOf
)
import
Data.Sequence
((
|>
),
fromList
)
import
Data.Sequence
((
|>
),
fromList
)
import
Data.Text
(
isInfixOf
)
import
Data.Time
import
Data.Time
import
Debug.RecoverRTTI
(
anythingToString
)
import
Debug.RecoverRTTI
(
anythingToString
)
import
Gargantext.API.Admin.EnvTypes
as
EnvTypes
import
Gargantext.API.Admin.EnvTypes
as
EnvTypes
...
@@ -139,7 +139,8 @@ testMaxRunners = do
...
@@ -139,7 +139,8 @@ testMaxRunners = do
forM_
allSamples
$
\
runLog
->
do
forM_
allSamples
$
\
runLog
->
do
annotate
"predicate to satisfy: (x `isInfixOf` [
\"
Job #1
\"
,
\"
Job #2
\"
] || x `isInfixOf` [
\"
Job #3
\"
,
\"
Job #4
\"
]"
$
annotate
"predicate to satisfy: (x `isInfixOf` [
\"
Job #1
\"
,
\"
Job #2
\"
] || x `isInfixOf` [
\"
Job #3
\"
,
\"
Job #4
\"
]"
$
shouldSatisfy
(
sort
runLog
)
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
::
IO
()
testPrios
=
do
testPrios
=
do
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment