Sha256: 3b0ced1956c4ef1fd7f1c1162c769955245ed64f542648c5755d54026a6dd78f
Contents?: true
Size: 766 Bytes
Versions: 89
Compression:
Stored size: 766 Bytes
Contents
open Core
open Utils
open Yojson.Basic
type case = {
description: string;
parameters: (string * json) list
}
type test = {name: string; cases: case list}
type tests =
| Single of case list
| Suite of test list
type canonical_data = {
version: string option;
tests: tests
}
let rec json_to_string (j: json): string = match j with
| `Null -> "null"
| `String s -> "\"" ^ (String.escaped s) ^ "\""
| `Float f -> Float.to_string f
| `Int n -> Int.to_string n
| `Bool b -> Bool.to_string b
| `List xs -> "[" ^ String.concat ~sep:"; " (List.map ~f:json_to_string xs) ^ "]"
| `Assoc xs -> "[" ^ String.concat ~sep:"; "
(List.map xs ~f:(fun (k,v) -> "(\"" ^ String.escaped k ^ "\", " ^ json_to_string v ^ ")")) ^ "]"
Version data entries
89 entries across 89 versions & 1 rubygems