mirror of
https://github.com/correl/elm.git
synced 2024-11-16 03:00:08 +00:00
34 lines
1 KiB
Elm
34 lines
1 KiB
Elm
|
module Main (..) where
|
||
|
|
|
||
|
|
import Task
|
||
|
|
import Console
|
||
|
|
import ElmTest exposing (..)
|
||
|
|
import Raindrops exposing (raindrops)
|
||
|
|
|
||
|
|
|
||
|
|
tests : Test
|
||
|
|
tests =
|
||
|
|
suite
|
||
|
|
"Raindrops"
|
||
|
|
[ test "1" (assertEqual "1" (raindrops 1))
|
||
|
|
, test "3" (assertEqual "Pling" (raindrops 3))
|
||
|
|
, test "5" (assertEqual "Plang" (raindrops 5))
|
||
|
|
, test "7" (assertEqual "Plong" (raindrops 7))
|
||
|
|
, test "6" (assertEqual "Pling" (raindrops 6))
|
||
|
|
, test "9" (assertEqual "Pling" (raindrops 9))
|
||
|
|
, test "10" (assertEqual "Plang" (raindrops 10))
|
||
|
|
, test "14" (assertEqual "Plong" (raindrops 14))
|
||
|
|
, test "15" (assertEqual "PlingPlang" (raindrops 15))
|
||
|
|
, test "21" (assertEqual "PlingPlong" (raindrops 21))
|
||
|
|
, test "25" (assertEqual "Plang" (raindrops 25))
|
||
|
|
, test "35" (assertEqual "PlangPlong" (raindrops 35))
|
||
|
|
, test "49" (assertEqual "Plong" (raindrops 49))
|
||
|
|
, test "52" (assertEqual "52" (raindrops 52))
|
||
|
|
, test "105" (assertEqual "PlingPlangPlong" (raindrops 105))
|
||
|
|
]
|
||
|
|
|
||
|
|
|
||
|
|
port runner : Signal (Task.Task x ())
|
||
|
|
port runner =
|
||
|
|
Console.run (consoleRunner tests)
|