mirror of
https://github.com/correl/elm.git
synced 2024-11-25 03:00:06 +00:00
4d81104a85
This allows learners to gradually approach exercise. However, unlike commented tests, the Elm compiler is still able to infer type information from the skipped tests.
102 lines
3.3 KiB
Elm
102 lines
3.3 KiB
Elm
module Tests exposing (..)
|
|
|
|
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)
|
|
, skip <|
|
|
test "fourteen" <|
|
|
\() ->
|
|
Expect.equal (Ok "fourteen")
|
|
(say 14)
|
|
, skip <|
|
|
test "twenty" <|
|
|
\() ->
|
|
Expect.equal (Ok "twenty")
|
|
(say 20)
|
|
, skip <|
|
|
test "twenty-two" <|
|
|
\() ->
|
|
Expect.equal (Ok "twenty-two")
|
|
(say 22)
|
|
, skip <|
|
|
test "one hundred" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred")
|
|
(say 100)
|
|
, skip <|
|
|
test "one hundred twenty" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred and twenty")
|
|
(say 120)
|
|
, skip <|
|
|
test "one hundred twenty-three" <|
|
|
\() ->
|
|
Expect.equal (Ok "one hundred and twenty-three")
|
|
(say 123)
|
|
, skip <|
|
|
test "one thousand" <|
|
|
\() ->
|
|
Expect.equal (Ok "one thousand")
|
|
(say 1000)
|
|
, skip <|
|
|
test "one thousand two hundred thirty-four" <|
|
|
\() ->
|
|
Expect.equal (Ok "one thousand two hundred and thirty-four")
|
|
(say 1234)
|
|
, skip <|
|
|
test "one million" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million")
|
|
(say 1000000)
|
|
, skip <|
|
|
test "one million two" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million and two")
|
|
(say 1000002)
|
|
, skip <|
|
|
test "1002345" <|
|
|
\() ->
|
|
Expect.equal (Ok "one million two thousand three hundred and forty-five")
|
|
(say 1002345)
|
|
, skip <|
|
|
test "one billion" <|
|
|
\() ->
|
|
Expect.equal (Ok "one billion")
|
|
(say 1000000000)
|
|
, skip <|
|
|
test "number too large" <|
|
|
\() ->
|
|
Expect.equal (Err TooLarge)
|
|
(say 10000000000000000)
|
|
, skip <|
|
|
test "negative number" <|
|
|
\() ->
|
|
Expect.equal (Err Negative)
|
|
(say -42)
|
|
, skip <|
|
|
test "zero" <|
|
|
\() ->
|
|
Expect.equal (Ok "zero")
|
|
(say 0)
|
|
, skip <|
|
|
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)
|
|
]
|