mirror of
https://github.com/correl/elm.git
synced 2024-11-25 19:19:54 +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.
46 lines
1.8 KiB
Elm
46 lines
1.8 KiB
Elm
module Tests exposing (..)
|
|
|
|
import Test exposing (..)
|
|
import Expect
|
|
import PhoneNumber exposing (getNumber, prettyPrint)
|
|
|
|
|
|
tests : Test
|
|
tests =
|
|
describe "PhoneNumber"
|
|
[ test "cleans number" <|
|
|
\() -> Expect.equal (Just "1234567890") (getNumber "(123) 456-7890")
|
|
, skip <|
|
|
test "cleans number with dots" <|
|
|
\() -> Expect.equal (Just "1234567890") (getNumber "123.456.7890")
|
|
, skip <|
|
|
test "valid when 11 digits and first is 1" <|
|
|
\() -> Expect.equal (Just "1234567890") (getNumber "11234567890")
|
|
, skip <|
|
|
test "invalid when 11 digits" <|
|
|
\() -> Expect.equal Nothing (getNumber "21234567890")
|
|
, skip <|
|
|
test "invalid when 9 digits" <|
|
|
\() -> Expect.equal Nothing (getNumber "123456789")
|
|
, skip <|
|
|
test "invalid when 12 digits" <|
|
|
\() -> Expect.equal Nothing (getNumber "123456789012")
|
|
, skip <|
|
|
test "invalid when empty" <|
|
|
\() -> Expect.equal Nothing (getNumber "")
|
|
, skip <|
|
|
test "invalid when no digits present" <|
|
|
\() -> Expect.equal Nothing (getNumber " (-) ")
|
|
, skip <|
|
|
test "valid with leading characters" <|
|
|
\() -> Expect.equal (Just "1234567890") (getNumber "my number is 123 456 7890")
|
|
, skip <|
|
|
test "valid with trailing characters" <|
|
|
\() -> Expect.equal (Just "1234567890") (getNumber "123 456 7890 - bob")
|
|
, skip <|
|
|
test "pretty print" <|
|
|
\() -> Expect.equal (Just "(123) 456-7890") (prettyPrint "1234567890")
|
|
, skip <|
|
|
test "pretty print with full us phone number" <|
|
|
\() -> Expect.equal (Just "(123) 456-7890") (prettyPrint "11234567890")
|
|
]
|