list_inputs.ml

open Test_shared

module MyQuery =
[%graphql
{|
  query ($arg: ListsInput!) {
    listsInput(arg: $arg)
  }
|}]

type qt = MyQuery.t

let pp formatter (obj : qt) =
  Format.fprintf formatter "< listsInput = @[%s@] >" obj.listsInput

let equal (a : qt) (b : qt) = a.listsInput = b.listsInput

let allows_none_in_lists_of_nullable () =
  test_json_
    (MyQuery.makeVariables
       ~arg:
         {
           nullableOfNullable = Some [| Some "x"; None; Some "y" |];
           nullableOfNonNullable = None;
           nonNullableOfNullable = [| Some "a"; None; Some "b" |];
           nonNullableOfNonNullable = [| "1"; "2"; "3" |];
         }
       ()
    |> MyQuery.serializeVariables |> MyQuery.variablesToJson)
    (Json.Read.from_string
       {| {
      "arg": {
        "nullableOfNullable": ["x", null, "y"],
        "nullableOfNonNullable": null,
        "nonNullableOfNullable": ["a", null, "b"],
        "nonNullableOfNonNullable": ["1", "2", "3"]
      }
    } |})

let tests =
  [
    ("Allows None in lists of nullable types", allows_none_in_lists_of_nullable);
  ]