elm/exercises/roman-numerals/tests/Tests.elm

module Tests exposing (..)

import Test exposing (..)
import Expect
import RomanNumerals exposing (toRoman)


tests : Test
tests =
    describe "Roman Numerals"
        [ test "1" <|
            \() ->
                Expect.equal ("I")
                    (toRoman 1)
        , skip <|
            test "2" <|
                \() ->
                    Expect.equal ("II")
                        (toRoman 2)
        , skip <|
            test "3" <|
                \() ->
                    Expect.equal ("III")
                        (toRoman 3)
        , skip <|
            test "4" <|
                \() ->
                    Expect.equal ("IV")
                        (toRoman 4)
        , skip <|
            test "5" <|
                \() ->
                    Expect.equal ("V")
                        (toRoman 5)
        , skip <|
            test "6" <|
                \() ->
                    Expect.equal ("VI")
                        (toRoman 6)
        , skip <|
            test "9" <|
                \() ->
                    Expect.equal ("IX")
                        (toRoman 9)
        , skip <|
            test "27" <|
                \() ->
                    Expect.equal ("XXVII")
                        (toRoman 27)
        , skip <|
            test "48" <|
                \() ->
                    Expect.equal ("XLVIII")
                        (toRoman 48)
        , skip <|
            test "59" <|
                \() ->
                    Expect.equal ("LIX")
                        (toRoman 59)
        , skip <|
            test "93" <|
                \() ->
                    Expect.equal ("XCIII")
                        (toRoman 93)
        , skip <|
            test "141" <|
                \() ->
                    Expect.equal ("CXLI")
                        (toRoman 141)
        , skip <|
            test "163" <|
                \() ->
                    Expect.equal ("CLXIII")
                        (toRoman 163)
        , skip <|
            test "402" <|
                \() ->
                    Expect.equal ("CDII")
                        (toRoman 402)
        , skip <|
            test "575" <|
                \() ->
                    Expect.equal ("DLXXV")
                        (toRoman 575)
        , skip <|
            test "911" <|
                \() ->
                    Expect.equal ("CMXI")
                        (toRoman 911)
        , skip <|
            test "1024" <|
                \() ->
                    Expect.equal ("MXXIV")
                        (toRoman 1024)
        , skip <|
            test "3000" <|
                \() ->
                    Expect.equal ("MMM")
                        (toRoman 3000)
        ]