Sha256: 5f57ce77a4c1bde5d29bd4ebfa9551e2c857f735ecdcadd4679f5e578fa25d33

Contents?: true

Size: 1.25 KB

Versions: 66

Compression:

Stored size: 1.25 KB

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";
  "a simple valid SIN that remains valid if reversed" >::
    assert_valid true "059";
  "a simple valid SIN that becomes invalid if reversed" >::
    assert_valid true "59";
  "a valid Canadian SIN" >::
    assert_valid true "055 444 285";
  "invalid Canadian SIN" >::
    assert_valid false "055 444 286";
  "invalid credit card" >::
    assert_valid false "8273 1232 7352 0569";
  "valid strings with a non-digit included become invalid" >::
    assert_valid false "055a 444 285";
  "valid strings with punctuation included become invalid" >::
    assert_valid false "055-444-285";
  "valid strings with symbols included become invalid" >::
    assert_valid false "055\194\163 444$ 285";
  "single zero with space is invalid" >::
    assert_valid false " 0";
  "more than a single zero is valid" >::
    assert_valid true "0000 0";
  "input digit 9 is correctly converted to output digit 9" >::
    assert_valid true "091";
]

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

Version data entries

66 entries across 66 versions & 1 rubygems

Version Path
trackler-2.1.0.12 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.11 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.10 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.9 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.8 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.7 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.6 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.5 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.4 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.3 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.2 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.1 tracks/ocaml/exercises/luhn/test.ml
trackler-2.1.0.0 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.55 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.54 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.53 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.52 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.51 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.50 tracks/ocaml/exercises/luhn/test.ml
trackler-2.0.8.49 tracks/ocaml/exercises/luhn/test.ml