mirror of
https://github.com/correl/elm.git
synced 2024-11-15 19:19:31 +00:00
add version, remove type from starting file
This commit is contained in:
parent
84759bd46e
commit
95909b08a1
3 changed files with 9 additions and 8 deletions
|
@ -1,8 +1 @@
|
|||
module Sublist (..) where
|
||||
|
||||
|
||||
type ListComparison
|
||||
= Equal
|
||||
| Superlist
|
||||
| Sublist
|
||||
| Unequal
|
||||
|
|
|
@ -1,6 +1,11 @@
|
|||
module Sublist (..) where
|
||||
|
||||
|
||||
version : Int
|
||||
version =
|
||||
2
|
||||
|
||||
|
||||
type ListComparison
|
||||
= Equal
|
||||
| Superlist
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue