module SublistTest where

-- TODO - remove example inclusion once Problem sets are ready to go live or CI is set up.

import ElmTest.Test exposing (test, Test, suite)
import ElmTest.Assertion exposing (assert, assertEqual)
import ElmTest.Runner.Element exposing (runDisplay)

import SublistExample exposing (sublist)

tests : Test
tests = suite "Sublist Test Suite"
  [ test " empty equals empty" (assertEqual "Equal" (sublist [] [])),
    test "empty is a sublist of anything" (assertEqual "Sublist" (sublist [] [1,2])),
    test "anything is a superlist of empty" (assertEqual "Superlist" (sublist [1,2] [] )),
    test "1 is not 2" (assertEqual "Unequal" (sublist [1] [2])),
    test "compare larger equal lists" (assertEqual "Equal" (sublist [1, 1, 1] [1, 1, 1])),
    test "sublist at start" (assertEqual "Sublist" (sublist [1,2,3] [1,2,3,4,5])),
    test "sublist in the middle" (assertEqual "Sublist" (sublist [4,3,2] [5,4,3,2,1])),
    test "sublist at end" (assertEqual "Sublist" (sublist [3,4,5] [1,2,3,4,5])),
    test "partially matching sublist at start" (assertEqual "Sublist" (sublist [1,1,2] [1,1,1,2])),
    test "sublist early in huge list" (assertEqual "Sublist" (sublist [3,4,5] [1 .. 100000])),
    test "huge sublist not in list" (assertEqual "Unequal" (sublist [10 .. 100001] [1 .. 100000])),
    test "superlist at start" (assertEqual "Superlist" (sublist [1,2,3,4,5] [1,2,3])),
    test "superlist in middle" (assertEqual "Superlist" (sublist [5,4,3,2,1] [4,3,2])),
    test "superlist at end" (assertEqual "Superlist" (sublist [1,2,3,4,5] [3,4,5])),
    test "partially matching superlist at start" (assertEqual "Superlist" (sublist [1,1,1,2] [1,1,2])),
    test "superlist early in huge list" (assertEqual "Superlist" (sublist [1 .. 100000] [3,4,5])),
    test "recurring values sublist" (assertEqual "Sublist" (sublist [1,2,1,2,3] [1,2,3,1,2,1,2,3,2,1])),
    test "recurring values unequal" (assertEqual "Unequal" (sublist [1,2,1,2,3] [1,2,3,1,2,3,2,3,2,1]))
  ]

main = runDisplay tests