Contents

open Core.Std
open OUnit2
open Luhn

let assert_valid expected input _test_ctxt = 
  assert_equal ~printer:Bool.to_string expected (valid input)

let tests = [
  "single digit strings can not be valid" >::
    assert_valid false "1";
  "A single zero is invalid" >::
    assert_valid false "0";
  "valid Canadian SIN" >::
    assert_valid true "046 454 286";
  "invalid Canadian SIN" >::
    assert_valid false "046 454 287";
  "invalid credit card" >::
    assert_valid false "8273 1232 7352 0569";
  "valid strings with a non-digit added become invalid" >::
    assert_valid false "046a 454 286";
]

let () =
  run_test_tt_main ("luhn tests" >::: tests)

Version data entries

18 entries across 18 versions & 1 rubygems

Version	Path
trackler-2.0.6.37	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.36	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.35	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.34	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.33	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.32	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.31	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.30	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.29	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.28	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.27	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.26	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.25	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.24	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.23	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.22	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.21	tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.6.20	tracks/ocaml/exercises/luhn/test.ml