mirror of
https://github.com/correl/elm.git
synced 2024-11-16 19:19:28 +00:00
74 lines
2 KiB
Elm
74 lines
2 KiB
Elm
|
module Main (..) where
|
||
|
|
|
||
|
|
import Task
|
||
|
|
import Console
|
||
|
|
import ElmTest exposing (..)
|
||
|
|
import Allergies exposing (isAllergicTo, toList)
|
||
|
|
import List
|
||
|
|
|
||
|
|
|
||
|
|
tests : Test
|
||
|
|
tests =
|
||
|
|
suite
|
||
|
|
"Allergies"
|
||
|
|
[ suite
|
||
|
|
"isAllergicTo"
|
||
|
|
[ suite
|
||
|
|
"no allergies means not allergic"
|
||
|
|
[ test
|
||
|
|
"peanuts"
|
||
|
|
(assert (not (isAllergicTo "peanuts" 0)))
|
||
|
|
, test
|
||
|
|
"cats"
|
||
|
|
(assert (not (isAllergicTo "cats" 0)))
|
||
|
|
, test
|
||
|
|
"strawberries"
|
||
|
|
(assert (not (isAllergicTo "strawberries" 0)))
|
||
|
|
]
|
||
|
|
, test
|
||
|
|
"is allergic to eggs"
|
||
|
|
(assert (isAllergicTo "eggs" 1))
|
||
|
|
, suite
|
||
|
|
"has the right allergies"
|
||
|
|
[ test
|
||
|
|
"eggs"
|
||
|
|
(assert (isAllergicTo "eggs" 5))
|
||
|
|
, test
|
||
|
|
"shellfish"
|
||
|
|
(assert (isAllergicTo "shellfish" 5))
|
||
|
|
, test
|
||
|
|
"strawberries"
|
||
|
|
(assert (not (isAllergicTo "strawberries" 5)))
|
||
|
|
]
|
||
|
|
]
|
||
|
|
, suite
|
||
|
|
"toList"
|
||
|
|
[ test
|
||
|
|
"no allergies at all"
|
||
|
|
(assertEqual [] (toList (0)))
|
||
|
|
, test
|
||
|
|
"allergic to just peanuts"
|
||
|
|
(assertEqual [ "peanuts" ] (toList (2)))
|
||
|
|
, test
|
||
|
|
"allergic to everything"
|
||
|
|
(assertEqual
|
||
|
|
(List.sort [ "eggs", "peanuts", "shellfish", "strawberries", "tomatoes", "chocolate", "pollen", "cats" ])
|
||
|
|
(255 |> toList |> List.sort)
|
||
|
|
)
|
||
|
|
, test
|
||
|
|
"ignore non allergen score parts"
|
||
|
|
(assertEqual [ "eggs" ] (toList 257))
|
||
|
|
, test
|
||
|
|
"ignore non allergen score parts"
|
||
|
|
(assertEqual
|
||
|
|
(List.sort [ "eggs", "shellfish", "strawberries", "tomatoes", "chocolate", "pollen", "cats" ])
|
||
|
|
(509 |> toList |> List.sort)
|
||
|
|
)
|
||
|
|
]
|
||
|
|
]
|
||
|
|
|
||
|
|
|
||
|
|
port runner : Signal (Task.Task x ())
|
||
|
|
port runner =
|
||
|
|
Console.run (consoleRunner tests)
|