Sha256: ff64c4adbe4ab935857b499e1c7cda66dba18d8a7ded1d4c580aee1543bd957e
Contents?: true
Size: 986 Bytes
Versions: 91
Compression:
Stored size: 986 Bytes
Contents
open Core.Std
open OUnit2
open Codegen
open Model
open Yojson.Basic
let leap_template = "\"$description\" >:: ae $expected (leap_year $input);"
let edit_expected ~value = json_to_string value
let edit_parameters (j: (string * json) list): (string * string) list =
List.map ~f:(fun (k,v) -> (k,to_string v)) j
let assert_fill_in_template exp cases = assert_equal exp
~printer:(fun xs -> "[" ^ (String.concat ~sep:";" xs) ^ "]")
(fill_in_template edit_expected edit_parameters leap_template "suite-name" cases |> List.map ~f:subst_to_string)
let ae exp cases _test_ctxt = assert_fill_in_template exp cases
let codegen_tests = [
"if there are no cases then generate an empty string" >::
ae [] [];
"generates one function based on leap year for one case" >::(fun ctxt ->
let c = {description = "leap_year"; parameters = [("input", `Int 1996)]; expected = `Bool true} in
assert_fill_in_template ["\"leap_year\" >:: ae true (leap_year 1996);"] [c]
);
]
Version data entries
91 entries across 91 versions & 1 rubygems