elm/exercises/sublist/SublistTests.elm

port module Main exposing (..)

import Test.Runner.Node exposing (run)
import Json.Encode exposing (Value)
import Test exposing (..)
import Expect
import Sublist exposing (version, sublist, ListComparison(..))


tests : Test
tests =
    describe "Sublist"
        [ test "the solution is for the correct version of the test" <|
            \() -> Expect.equal 2 version
        , test "empty equals empty" <|
            \() -> Expect.equal Equal (sublist [] [])
        , test "empty is a sublist of anything" <|
            \() -> Expect.equal Sublist (sublist [] [ 1, 2 ])
        , test "anything is a superlist of empty" <|
            \() -> Expect.equal Superlist (sublist [ 1, 2 ] [])
        , test "1 is not 2" <|
            \() -> Expect.equal Unequal (sublist [ 1 ] [ 2 ])
        , test "compare larger equal lists" <|
            \() -> Expect.equal Equal (sublist [ 1, 1, 1 ] [ 1, 1, 1 ])
        , test "sublist at start" <|
            \() -> Expect.equal Sublist (sublist [ 1, 2, 3 ] [ 1, 2, 3, 4, 5 ])
        , test "sublist in the middle" <|
            \() -> Expect.equal Sublist (sublist [ 4, 3, 2 ] [ 5, 4, 3, 2, 1 ])
        , test "sublist at end" <|
            \() -> Expect.equal Sublist (sublist [ 3, 4, 5 ] [ 1, 2, 3, 4, 5 ])
        , test "partially matching sublist at start" <|
            \() -> Expect.equal Sublist (sublist [ 1, 1, 2 ] [ 1, 1, 1, 2 ])
        , test "sublist early in huge list" <|
            \() -> Expect.equal Sublist (sublist [ 3, 4, 5 ] [1..100000])
        , test "huge sublist not in list" <|
            \() -> Expect.equal Unequal (sublist [10..5001] [1..5000])
        , test "superlist at start" <|
            \() -> Expect.equal Superlist (sublist [ 1, 2, 3, 4, 5 ] [ 1, 2, 3 ])
        , test "superlist in middle" <|
            \() -> Expect.equal Superlist (sublist [ 5, 4, 3, 2, 1 ] [ 4, 3, 2 ])
        , test "superlist at end" <|
            \() -> Expect.equal Superlist (sublist [ 1, 2, 3, 4, 5 ] [ 3, 4, 5 ])
        , test "partially matching superlist at start" <|
            \() -> Expect.equal Superlist (sublist [ 1, 1, 1, 2 ] [ 1, 1, 2 ])
        , test "superlist early in huge list" <|
            \() -> Expect.equal Superlist (sublist [1..100000] [ 3, 4, 5 ])
        , test "recurring values sublist" <|
            \() -> Expect.equal Sublist (sublist [ 1, 2, 1, 2, 3 ] [ 1, 2, 3, 1, 2, 1, 2, 3, 2, 1 ])
        , test "recurring values unequal" <|
            \() -> Expect.equal Unequal (sublist [ 1, 2, 1, 2, 3 ] [ 1, 2, 3, 1, 2, 3, 2, 3, 2, 1 ])
        ]


main : Program Never
main =
    run emit tests


port emit : ( String, Value ) -> Cmd msg