open Test_shared;

module MyQuery = [%graphql7
  {|
  query (
    $nullableString: String,
    $string: String!,
    $nullableInt: Int,
    $int: Int!,
    $nullableFloat: Float,
    $float: Float!,
    $nullableBoolean: Boolean,
    $boolean: Boolean!,
    $nullableID: ID,
    $id: ID!,
  ) {
    scalarsInput(arg: {
      nullableString: $nullableString,
      string: $string,
      nullableInt: $nullableInt,
      int: $int,
      nullableFloat: $nullableFloat,
      float: $float,
      nullableBoolean: $nullableBoolean,
      boolean: $boolean,
      nullableID: $nullableID,
      id: $id,
    })
  }
|}
];

let allows_you_to_omit_nullable_arguments = () =>
  Alcotest.check(
    yojson,
    "json equality",
    MyQuery.make(
      ~string="a string",
      ~int=123,
      ~float=1234.5,
      ~boolean=true,
      ~id="an ID",
      (),
    )#
      variables,
    Yojson.Basic.from_string(
      {| {
      "nullableString": null,
      "string": "a string",
      "nullableInt": null,
      "int": 123,
      "nullableFloat": null,
      "float": 1234.5,
      "nullableBoolean": null,
      "boolean": true,
      "nullableID": null,
      "id": "an ID"
    } |},
    ),
  );

let includes_non_nulled_arguments = () =>
  Alcotest.check(
    yojson,
    "json equality",
    MyQuery.make(
      ~nullableString="a nullable string",
      ~string="a string",
      ~nullableInt=456,
      ~int=123,
      ~nullableFloat=567.5,
      ~float=1234.5,
      ~nullableBoolean=false,
      ~boolean=true,
      ~nullableID="a nullable ID",
      ~id="an ID",
      (),
    )#
      variables,
    Yojson.Basic.from_string(
      {| {
      "nullableString": "a nullable string",
      "string": "a string",
      "nullableInt": 456,
      "int": 123,
      "nullableFloat": 567.5,
      "float": 1234.5,
      "nullableBoolean": false,
      "boolean": true,
      "nullableID": "a nullable ID",
      "id": "an ID"
    } |},
    ),
  );

let tests = [
  (
    "Allows you to omit nullable arguments",
    `Quick,
    allows_you_to_omit_nullable_arguments,
  ),
  ("Includes non-nulled arguments", `Quick, includes_non_nulled_arguments),
];