Sha256: 5ea6de35a7a48ea5510a9e84fa99feb61f3fcde08a0889875ed320489d788f7d

Contents?: true

Size: 1.25 KB

Versions: 54

Compression:

Stored size: 1.25 KB

Contents

open Core.Std

open Model
open Yojson.Basic

type edit_expected_function = value: json -> string

type edit_parameters_function = (string * json) list -> (string * string) list

type subst = Subst of string [@@deriving eq, show]

let subst_to_string (Subst s) = s

let map_subst (s: subst) ~(f: string -> string): subst =
  Subst (subst_to_string s |> f)

let replace_key (key: string) (value: string) (target: string): string =
  let replace = String.substr_replace_all ~with_:value in
  replace ~pattern:("$" ^ key) target |> replace ~pattern:("$(" ^ key ^ ")")

let rec replace_keys (f: edit_expected_function) (ed: edit_parameters_function) (s: string) (suite_name: string) (c: case): subst =
  let s = replace_key "description" c.description s in
  let expected = f ~value:c.expected in
  let s = replace_key "expected" expected s in
  let s = replace_key "suite-name" suite_name s in
  let parameter_strings = ed @@ List.map ~f:(fun (k,p) -> (k,p)) c.parameters in
  List.fold parameter_strings ~init:(Subst s) ~f:(fun (Subst s) (k,v) -> Subst (replace_key k v s))

let fill_in_template (f: edit_expected_function) (ed: edit_parameters_function) (test_template: string) (suite_name: string) (cases: case list) =
  List.map cases ~f:(replace_keys f ed test_template suite_name)

Version data entries

54 entries across 54 versions & 1 rubygems

Version Path
trackler-2.1.0.21 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.20 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.19 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.18 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.17 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.16 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.15 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.14 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.13 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.12 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.11 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.10 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.9 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.8 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.7 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.6 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.5 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.4 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.3 tracks/ocaml/tools/test-generator/src/codegen.ml
trackler-2.1.0.2 tracks/ocaml/tools/test-generator/src/codegen.ml