Contents

(* Test/exercise version: "1.2.0" *)

open Core
open OUnit2
open Phone_number

let option_to_string f = function
  | None   -> "None"
  | Some x -> "Some " ^ f x

let ae exp got _test_ctxt =
  assert_equal ~printer:(option_to_string String.to_string) exp got

let tests = [
  "cleans the number" >::
    ae (Some "2234567890") (number "[phone]");
  "cleans numbers with dots" >::
    ae (Some "2234567890") (number "223.456.7890");
  "cleans numbers with multiple spaces" >::
    ae (Some "2234567890") (number "223 456   7890   ");
  "invalid when 9 digits" >::
    ae None (number "123456789");
  "invalid when 11 digits does not start with a 1" >::
    ae None (number "22234567890");
  "valid when 11 digits and starting with 1" >::
    ae (Some "2234567890") (number "12234567890");
  "valid when 11 digits and starting with 1 even with punctuation" >::
    ae (Some "2234567890") (number "[phone]");
  "invalid when more than 11 digits" >::
    ae None (number "321234567890");
  "invalid with letters" >::
    ae None (number "123-abc-7890");
  "invalid with punctuations" >::
    ae None (number "123-@:!-7890");
  "invalid if area code does not start with 2-9" >::
    ae None (number "[phone]");
  "invalid if exchange code does not start with 2-9" >::
    ae None (number "[phone]");
]

let () =
  run_test_tt_main ("phone-number tests" >::: tests)

Version data entries

150 entries across 150 versions & 1 rubygems

Version	Path
trackler-2.2.1.109	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.108	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.107	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.106	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.105	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.104	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.103	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.102	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.101	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.100	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.99	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.98	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.97	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.96	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.95	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.94	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.93	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.92	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.91	tracks/ocaml/exercises/phone-number/test.ml
trackler-2.2.1.90	tracks/ocaml/exercises/phone-number/test.ml