Sha256: a95a7260708e38f45a6b5c06b221696568ab7fd494816429c369d053f92f8fff
Contents?: true
Size: 816 Bytes
Versions: 130
Compression:
Stored size: 816 Bytes
Contents
open! Core
open OUnit2
open Bowling
type game = Bowling.t
let to_ok = function
| Ok x -> x
| Error e -> failwith @@ "should be OK but got Error " ^ e
let set_previous_frames (frames : int list): game =
List.fold frames ~init:new_game ~f:(fun g f -> roll f g |> to_ok)
let score_printer = function
| Ok n -> Int.to_string n
| Error e -> e
let assert_score exp game = assert_equal ~printer:score_printer exp (score game)
let roll_printer = function
| Ok _ -> "Ok <some game>"
| Error e -> e
let assert_roll exp frame game = assert_equal ~printer:roll_printer exp (roll frame game)
let tests = [
(* TEST
"$description" >:: (fun _ ->
let g = set_previous_frames $previous_rolls in
assert_$property $expected $roll g
);
END TEST *)
]
let () =
run_test_tt_main ("bowling tests" >::: tests)
Version data entries
130 entries across 130 versions & 1 rubygems