github/elm
1
0
Fork 0
mirror of https://github.com/correl/elm.git synced 2024-12-22 19:17:27 +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
]
)
, describe "turn right"
, skip <|
describe "turn right"
((List.range 1 3)
|> List.scanl (\_ r -> turnRight r) defaultRobot
|> List.map .bearing
|> 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"
((List.range 1 3)
|> List.scanl (\_ r -> turnLeft r) defaultRobot
|> List.map .bearing
|> 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"
(let