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
|
module Sublist (..) where
|
||||||
|
|
||||||
|
|
||||||
type ListComparison
|
|
||||||
= Equal
|
|
||||||
| Superlist
|
|
||||||
| Sublist
|
|
||||||
| Unequal
|
|
||||||
|
|
|
@ -1,6 +1,11 @@
|
||||||
module Sublist (..) where
|
module Sublist (..) where
|
||||||
|
|
||||||
|
|
||||||
|
version : Int
|
||||||
|
version =
|
||||||
|
2
|
||||||
|
|
||||||
|
|
||||||
type ListComparison
|
type ListComparison
|
||||||
= Equal
|
= Equal
|
||||||
| Superlist
|
| Superlist
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue