Sha256: 641b932f4536789bf28dd9b2414d3c31ca069878d0ca0d7b5564bb4f22100517
Contents?: true
Size: 663 Bytes
Versions: 148
Compression:
Stored size: 663 Bytes
Contents
open Core.Std
open OUnit2
open Minesweeper
let format_board strings =
let width = match strings with
| [] -> 0
| (s::_) -> String.length s in
let border_line = "+" ^ String.make width '-' ^ "+\n" in
let line s = "|" ^ s ^ "|\n" in
"\n" ^ border_line ^ String.concat (List.map strings ~f:line) ^ border_line
(* Assert Equals *)
let ae exp got =
assert_equal exp got ~cmp:(List.equal ~equal:String.equal) ~printer:format_board
let tests = [
(* TEST
"$description" >:: (fun _ ->
let b = $input in
let expected = $expected in
ae expected (annotate b)
);
END TEST *)
]
let () =
run_test_tt_main ("minesweeper tests" >::: tests)
Version data entries
148 entries across 148 versions & 1 rubygems