mirror of
https://github.com/correl/elm.git
synced 2024-12-20 03:20:17 +00:00
54e3017815
* Update exercises to elm-test 2.0 * Update docs to mention `elm-test` again * Update .travis.yml to the correct version of elm-test * Conform to the `<| \() ->` convention
96 lines
2.9 KiB
Elm
96 lines
2.9 KiB
Elm
port module Main exposing (..)
|
|
|
|
import Test.Runner.Node exposing (run)
|
|
import Json.Encode exposing (Value)
|
|
import Test exposing (..)
|
|
import Expect
|
|
import Say exposing (say, SayError(Negative, TooLarge))
|
|
|
|
|
|
tests : Test
|
|
tests =
|
|
describe "Series"
|
|
[ test "one" <|
|
|
\() ->
|
|
Expect.equal (Ok "one")
|
|
(say 1)
|
|
, test "fourteen" <|
|
|
\() ->
|
|
Expect.equal (Ok "fourteen")
|
|
(say 14)
|
|
, test "twenty" <|
|
|
\() ->
|
|
Expect.equal (Ok "twenty")
|
|
(say 20)
|
|
, test "twenty-two" <|
|
|
\() ->
|
|
Expect.equal (Ok "twenty-two")
|
|
(say 22)
|
|
, test "one hundred" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred")
|
|
(say 100)
|
|
, test "one hundred twenty" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred and twenty")
|
|
(say 120)
|
|
, test "one hundred twenty-three" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred and twenty-three")
|
|
(say 123)
|
|
, test "one thousand" <|
|
|
\() ->
|
|
Expect.equal (Ok "one thousand")
|
|
(say 1000)
|
|
, test "one thousand two hundred thirty-four" <|
|
|
\() ->
|
|
Expect.equal (Ok "one thousand two hundred and thirty-four")
|
|
(say 1234)
|
|
, test "one million" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million")
|
|
(say 1000000)
|
|
, test "one million two" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million and two")
|
|
(say 1000002)
|
|
, test "1002345" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million two thousand three hundred and forty-five")
|
|
(say 1002345)
|
|
, test "one billion" <|
|
|
\() ->
|
|
Expect.equal (Ok "one billion")
|
|
(say 1000000000)
|
|
, test "number too large" <|
|
|
\() ->
|
|
Expect.equal (Err TooLarge)
|
|
(say 10000000000000000)
|
|
, test "negative number" <|
|
|
\() ->
|
|
Expect.equal (Err Negative)
|
|
(say -42)
|
|
, test "zero" <|
|
|
\() ->
|
|
Expect.equal (Ok "zero")
|
|
(say 0)
|
|
, test "987654321123" <|
|
|
\() ->
|
|
Expect.equal
|
|
(Ok
|
|
("nine hundred and eighty-seven billion "
|
|
++ "six hundred and fifty-four million "
|
|
++ "three hundred and twenty-one thousand "
|
|
++ "one hundred and twenty-three"
|
|
)
|
|
)
|
|
(say 987654321123)
|
|
]
|
|
|
|
|
|
main : Program Never
|
|
main =
|
|
run emit tests
|
|
|
|
|
|
port emit : ( String, Value ) -> Cmd msg
|