elm/exercises/robot-simulator/tests/Tests.elm

module Tests exposing (..)

import Test exposing (..)
import Expect
import RobotSimulator exposing (defaultRobot, Robot, Bearing(North, East, West, South), turnRight, turnLeft, advance, simulate)


tests : Test
tests =
    describe "RobotSimulator"
        [ describe "init"
            (let
                robot =
                    defaultRobot
             in
                [ test "coordinates" <|
                    \() -> Expect.equal { x = 0, y = 0 } robot.coordinates
                , skip <|
                    test "bearing" <|
                        \() -> Expect.equal North robot.bearing
                ]
            )
        , describe "setup"
            (let
                robot =
                    Robot South { x = -1, y = 1 }
             in
                [ skip <|
                    test "coordinates" <|
                        \() -> Expect.equal { x = -1, y = 1 } robot.coordinates
                , skip <|
                    test "bearing" <|
                        \() -> Expect.equal South robot.bearing
                ]
            )
        , 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
                [ 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
                [ 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
                [ 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
                [ 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
                [ 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
                [ 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
                [ skip <|
                    test "coordinates" <|
                        \() -> Expect.equal { x = 11, y = 5 } robot.coordinates
                , skip <|
                    test "bearing" <|
                        \() -> Expect.equal North robot.bearing
                ]
            )
        ]


{-| Given a list of values and another list of expected values,
generate a list of Assert Equal assertions.
-}
assertionList : List a -> List a -> List Expect.Expectation
assertionList xs ys =
    List.map2 Expect.equal xs ys