Sha256: a2b2621e603b8fdfb6a5d35c3286b03153815029eded7f90583ff9b79ed8125b
Contents?: true
Size: 1.64 KB
Versions: 142
Compression:
Stored size: 1.64 KB
Contents
(* version 1.2.0 *)
use "testlib.sml";
use "phone-number.sml";
infixr |>
fun x |> f = f x
val testsuite =
describe "phone-number" [
describe "Cleanup user-entered phone numbers" [
test "cleans the number"
(fn _ => clean ("(223) 456-7890") |> Expect.equalTo (SOME "2234567890")),
test "cleans numbers with dots"
(fn _ => clean ("223.456.7890") |> Expect.equalTo (SOME "2234567890")),
test "cleans numbers with multiple spaces"
(fn _ => clean ("223 456 7890 ") |> Expect.equalTo (SOME "2234567890")),
test "invalid when 9 digits"
(fn _ => clean ("123456789") |> Expect.equalTo NONE),
test "invalid when 11 digits does not start with a 1"
(fn _ => clean ("22234567890") |> Expect.equalTo NONE),
test "valid when 11 digits and starting with 1"
(fn _ => clean ("12234567890") |> Expect.equalTo (SOME "2234567890")),
test "valid when 11 digits and starting with 1 even with punctuation"
(fn _ => clean ("+1 (223) 456-7890") |> Expect.equalTo (SOME "2234567890")),
test "invalid when more than 11 digits"
(fn _ => clean ("321234567890") |> Expect.equalTo NONE),
test "invalid with letters"
(fn _ => clean ("123-abc-7890") |> Expect.equalTo NONE),
test "invalid with punctuations"
(fn _ => clean ("123-@:!-7890") |> Expect.equalTo NONE),
test "invalid if area code does not start with 2-9"
(fn _ => clean ("(123) 456-7890") |> Expect.equalTo NONE),
test "invalid if exchange code does not start with 2-9"
(fn _ => clean ("(223) 056-7890") |> Expect.equalTo NONE)
]
]
val _ = Test.run testsuite
Version data entries
142 entries across 142 versions & 1 rubygems