suite : Test
suite =
Sequence.describe "sequencial testing"
|> Sequence.map (\_ -> 4)
|> Sequence.andThen "The result should be even."
(\n ->
if modBy 2 n == 0 then
Just (n // 2)
else
Nothing
)
|> Sequence.assert "Check if it is greater than 10."
(\n ->
n
|> Expect.greaterThan 10
)
|> Sequence.run