add version, remove type from starting file

This commit is contained in:
Luke Westby 2016-04-12 13:54:11 -07:00
parent 84759bd46e
commit 95909b08a1
3 changed files with 9 additions and 8 deletions

View file

@ -1,8 +1 @@
module Sublist (..) where
type ListComparison
= Equal
| Superlist
| Sublist
| Unequal

View file

@ -1,6 +1,11 @@
module Sublist (..) where
version : Int
version =
2
type ListComparison
= Equal
| Superlist

View file

@ -3,7 +3,7 @@ module Main (..) where
import Task
import Console
import ElmTest exposing (..)
import Sublist exposing (sublist, ListComparison(..))
import Sublist exposing (version, sublist, ListComparison(..))
tests : Test
@ -11,6 +11,9 @@ tests =
suite
"Sublist"
[ test
"the solution is for the correct version of the test"
(assertEqual 2 version)
, test
"empty equals empty"
(assertEqual Equal (sublist [] []))
, test