Sha256: 1834346217d063edeff6276e51e6a340cc2580280a29960cd9f8febd1c994f23

Contents?: true

Size: 1.54 KB

Versions: 149

Compression:

Stored size: 1.54 KB

Contents

open Core
open OUnit2
open Dominoes

let print_dominoe (d1, d2) = sprintf "(%d,%d)" d1 d2

let dominoes_printer xs = "[" ^ String.concat ~sep:";" (List.map xs ~f:print_dominoe) ^ "]"
let option_printer = function
  | None -> "None"
  | Some xs -> "Some " ^ dominoes_printer xs

let rotate_1 xs = List.tl_exn xs @ [List.hd_exn xs]

let norm l =
  let norm1 (x, y) = if x > y then (y, x) else (x, y) in
  List.map ~f:norm1 l |> List.sort ~cmp:compare

let check_chain (input: dominoe list) (chained: dominoe list) =
  assert_equal (norm input) (norm chained) ~printer:dominoes_printer ~msg:"chain doesn't use the same dominoes as the input";
  let assert_dominoes_match d1 d2 =
    if snd d1 <> fst d2 then failwith @@ sprintf "%s and %s cannot be chained together" (print_dominoe d1) (print_dominoe d2) else () in
  let consecutives = List.zip_exn chained (rotate_1 chained) in
  List.iter consecutives ~f:(fun (d1, d2) -> assert_dominoes_match d1 d2)

let assert_empty c = if List.is_empty c then () else failwith "Expected 0 length chain"

let assert_valid_chain input _ctxt =
  match chain input with
  | None -> failwith "Expecting a chain"
  | Some(c) -> (if List.is_empty input then assert_empty else check_chain input) c

let assert_no_chain input _ctxt =
  assert_equal None (chain input) ~printer:option_printer

let assert_chain input hasChain =
  if hasChain then assert_valid_chain input else assert_no_chain input

let tests = [
(* TEST
  "$description" >::
    assert_chain $input $expected;
END TEST *)
]

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

Version data entries

149 entries across 149 versions & 1 rubygems

Version Path
trackler-2.2.1.108 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.107 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.106 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.105 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.104 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.103 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.102 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.101 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.100 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.99 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.98 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.97 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.96 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.95 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.94 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.93 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.92 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.91 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.90 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml
trackler-2.2.1.89 tracks/ocaml/tools/test-generator/templates/ocaml/dominoes/test.ml