github/elm
1
0
Fork 0
mirror of https://github.com/correl/elm.git synced 2024-12-23 03:00:08 +00:00
Code Issues Projects Releases Packages Wiki Activity

Skip at describe level for generated tests

Browse source
This commit is contained in:
Jay Hayes 2017-07-07 15:43:28 -05:00
parent 965a615782
commit 7b3e9e4cb2
1 changed files with 17 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
exercises/robot-simulator/tests/Tests.elm
View file

@ -33,20 +33,22 @@ tests =
\() -> Expect.equal South robot.bearing \() -> Expect.equal South robot.bearing
] ]
) )
, describe "turn right" , skip <|
describe "turn right"
((List.range 1 3) ((List.range 1 3)
|> List.scanl (\_ r -> turnRight r) defaultRobot |> List.scanl (\_ r -> turnRight r) defaultRobot
|> List.map .bearing |> List.map .bearing
|> assertionList [ North, East, South, West ] |> assertionList [ North, East, South, West ]
|> List.indexedMap (\i e -> skip <| test ("step " ++ toString i) (\() -> e)) |> List.indexedMap (\i e -> test ("step " ++ toString i) (\() -> e))
) )
, describe , skip <|
describe
"turn left" "turn left"
((List.range 1 3) ((List.range 1 3)
|> List.scanl (\_ r -> turnLeft r) defaultRobot |> List.scanl (\_ r -> turnLeft r) defaultRobot
|> List.map .bearing |> List.map .bearing
|> assertionList [ North, West, South, East ] |> assertionList [ North, West, South, East ]
|> List.indexedMap (\i e -> skip <| test ("step " ++ toString i) (\() -> e)) |> List.indexedMap (\i e -> test ("step " ++ toString i) (\() -> e))
) )
, describe "advance positive north" , describe "advance positive north"
(let (let