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

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

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