Sha256: 2109194419b80f15e69495e86525b4381d786811e6268a90823e80d77ddecfea
Contents?: true
Size: 982 Bytes
Versions: 60
Compression:
Stored size: 982 Bytes
Contents
open Core
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
60 entries across 60 versions & 1 rubygems