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 module Sublist (..) where
type ListComparison
= Equal
| Superlist
| Sublist
| Unequal

View file

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

View file

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