tracks/elm/exercises/robot-simulator/tests/Tests.elm in trackler-2.1.0.53 vs tracks/elm/exercises/robot-simulator/tests/Tests.elm in trackler-2.1.0.54
- old
+ new
@@ -13,121 +13,139 @@
robot =
defaultRobot
in
[ test "coordinates" <|
\() -> Expect.equal { x = 0, y = 0 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal North robot.bearing
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal North robot.bearing
]
)
, describe "setup"
(let
robot =
Robot South { x = -1, y = 1 }
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = -1, y = 1 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal South robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = -1, y = 1 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> 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 -> 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 -> 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 =
Robot North { x = 0, y = 0 }
|> advance
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = 0, y = 1 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal North robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = 0, y = 1 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal North robot.bearing
]
)
, describe "advance positive east"
(let
robot =
Robot East { x = 0, y = 0 }
|> advance
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = 1, y = 0 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal East robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = 1, y = 0 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal East robot.bearing
]
)
, describe "advance negative south"
(let
robot =
Robot South { x = 0, y = 0 }
|> advance
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = 0, y = -1 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal South robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = 0, y = -1 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal South robot.bearing
]
)
, describe "advance positive west"
(let
robot =
Robot West { x = 0, y = 0 }
|> advance
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = -1, y = 0 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal West robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = -1, y = 0 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal West robot.bearing
]
)
, describe "simulate prog 1"
(let
robot =
Robot North { x = 0, y = 0 }
|> simulate "LAAARALA"
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = -4, y = 1 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal West robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = -4, y = 1 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal West robot.bearing
]
)
, describe "simulate prog 2"
(let
robot =
Robot East { x = 2, y = -7 }
|> simulate "RRAAAAALA"
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = -3, y = -8 } robot.coordinates
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = -3, y = -8 } robot.coordinates
, test "bearing" <|
\() -> Expect.equal South robot.bearing
]
)
, describe "simulate prog 3"
(let
robot =
Robot South { x = 8, y = 4 }
|> simulate "LAAARRRALLLL"
in
- [ test "coordinates" <|
- \() -> Expect.equal { x = 11, y = 5 } robot.coordinates
- , test "bearing" <|
- \() -> Expect.equal North robot.bearing
+ [ skip <|
+ test "coordinates" <|
+ \() -> Expect.equal { x = 11, y = 5 } robot.coordinates
+ , skip <|
+ test "bearing" <|
+ \() -> Expect.equal North robot.bearing
]
)
]