* Enums now encoded using name

 * Adds test

Author: njlr

src/FSharp.Data.GraphQL.Server/Execution.fs

@@ -322,7 +322,7 @@ let rec private direct (returnDef : OutputDef) (ctx : ResolveFieldContext) (path
         | Some v' -> resolved name v'
         | None -> raiseError <| coercionError value scalarDef.Name path ctx
     | Enum enumDef ->
-        let enumCase = enumDef.Options |> Array.tryPick(fun case -> if case.Value.Equals(value) then coerceStringValue value else None)
+        let enumCase = enumDef.Options |> Array.tryPick(fun case -> if case.Value.Equals(value) then Some case.Name else None)
         match enumCase with
         | Some v' -> resolved name (v' :> obj)
         | None -> raiseError <| coercionError value enumDef.Name path  ctx

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

@@ -37,3 +37,29 @@ let ``Execute uses provided resolve function to accesses properties`` () =
       empty errors
       data.["data"] |> equals (upcast expected)
     | _ -> fail "Expected Direct GQResponse"
+
+type private Fruit =
+  | Apple
+  | Banana
+  | Cherry
+
+let private enumType =
+  Define.Enum(
+    "Fruit",
+    [
+      Define.EnumValue("APPLE", Apple)
+      Define.EnumValue("BANANA", Banana)
+      Define.EnumValue("CHERRY", Cherry)
+    ]
+  )
+
+[<Fact>]
+let ``Execute resolves enums to their names`` () =
+    let schema = testSchema [ Define.Field("fruits", ListOf enumType, "", [], resolve = fun ctx d -> [ Apple; Banana; Cherry ]) ]
+    let expected = NameValueLookup.ofList [ "fruits", [ "APPLE"; "BANANA"; "CHERRY" ] :> obj ]
+    let actual = sync <| Executor(schema).AsyncExecute(parse "{ fruits() }")
+    match actual with
+    | Direct(data, errors) ->
+      empty errors
+      data.["data"] |> equals (upcast expected)
+    | _ -> fail "Expected Direct GQResponse"