From 7b3e9e4cb27324d2ef137fae2cae7c518823d102 Mon Sep 17 00:00:00 2001 From: Jay Hayes Date: Fri, 7 Jul 2017 15:43:28 -0500 Subject: [PATCH] Skip at describe level for generated tests --- exercises/robot-simulator/tests/Tests.elm | 32 ++++++++++++----------- 1 file changed, 17 insertions(+), 15 deletions(-) diff --git a/exercises/robot-simulator/tests/Tests.elm b/exercises/robot-simulator/tests/Tests.elm index 1558738..7d4696d 100644 --- a/exercises/robot-simulator/tests/Tests.elm +++ b/exercises/robot-simulator/tests/Tests.elm @@ -33,21 +33,23 @@ tests = \() -> Expect.equal South robot.bearing ] ) - , 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)) - ) - , 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)) - ) + , 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 -> test ("step " ++ toString i) (\() -> e)) + ) + , 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 -> test ("step " ++ toString i) (\() -> e)) + ) , describe "advance positive north" (let robot =