Allow Long scalar coercion from integer literals during AST input validation (#571)

Co-authored-by: xperiandri <2365592+xperiandri@users.noreply.github.com>
Co-authored-by: copilot-swe-agent[bot] <198982749+Copilot@users.noreply.github.com>

Author: Copilot

src/FSharp.Data.GraphQL.Shared/Validation.fs

@@ -920,7 +920,7 @@ module Ast =
             | _ when tref.Kind = TypeKind.NON_NULL -> checkIsCoercible tref.OfType.Value argName value
             | IntValue _ ->
                 match tref.Name, tref.Kind with
-                | Some ("ID" | "Int" | "Float"), TypeKind.SCALAR -> Success
+                | Some ("ID" | "Int" | "Long" | "Float"), TypeKind.SCALAR -> Success
                 | _ -> canNotCoerce
             | FloatValue _ ->
                 match tref.Name, tref.Kind with

tests/FSharp.Data.GraphQL.Tests/AstValidationTests.fs

@@ -219,6 +219,12 @@ let Arguments =
                 [ Define.Input ("intArg", Nullable IntType) ],
                 (fun ctx _ -> ctx.Arg ("intArg"))
             )
+            Define.Field (
+                "longArgField",
+                Nullable LongType,
+                [ Define.Input ("longArg", Nullable LongType) ],
+                (fun ctx _ -> ctx.Arg ("longArg"))
+            )
             Define.Field (
                 "nonNullBooleanListField",
                 ListOf BooleanType,
@@ -1020,6 +1026,10 @@ fragment coercedIntIntoFloatArg on Arguments {
   floatArgField(floatArg: 123)
 }
 
+fragment coercedIntIntoLongArg on Arguments {
+  longArgField(longArg: 123)
+}
+
 query goodComplexDefaultValue($search: ComplexInput = { name: "Fido" }) {
   findDog(complex: $search)
 }"""