Fix tests

Author: xperiandri

samples/star-wars-api/Policies.fs

@@ -1,12 +1,24 @@
 namespace FSharp.Data.GraphQL.Samples.StarWarsApi.Authorization
 
+open System.Threading.Tasks
 open FSharp.Core
 open Microsoft.AspNetCore.Authorization
 
 module Policies =
 
+    let [<Literal>] Dummy = "Dummy"
     let [<Literal>] CanSetMoon = "CanSetMoon"
 
+type DummyRequirement () = interface IAuthorizationRequirement
+
+type DummyHandler () =
+
+    inherit AuthorizationHandler<DummyRequirement> ()
+
+    override _.HandleRequirementAsync (context, requirement) =
+        context.Succeed requirement
+        Task.CompletedTask
+
 type IsCharacterRequierment (character : string Set) =
     member val Characters = character
     interface IAuthorizationRequirement
@@ -15,12 +27,12 @@ type IsCharacterHandler () =
 
     inherit AuthorizationHandler<IsCharacterRequierment> () // Inject services from DI
 
-        override _.HandleRequirementAsync (context, requirement) =
-            Async.StartImmediateAsTask(async {
-                let allowedCharacters = requirement.Characters
-                if context.User.Claims
-                   |> Seq.where (fun c -> c.Type = "character")
-                   |> Seq.exists (fun c -> allowedCharacters |> Set.contains c.Value)
-                then context.Succeed requirement
-                else () // Go to the next handler if registered
-            }) :> _
+    override _.HandleRequirementAsync (context, requirement) =
+        Async.StartImmediateAsTask(async {
+            let allowedCharacters = requirement.Characters
+            if context.User.Claims
+                |> Seq.where (fun c -> c.Type = "character")
+                |> Seq.exists (fun c -> allowedCharacters |> Set.contains c.Value)
+            then context.Succeed requirement
+            else () // Go to the next handler if registered
+        }) :> _

samples/star-wars-api/Schema.fs

@@ -295,7 +295,10 @@ module Schema =
                     //    ctx.Schema.LiveFieldSubscriptionProvider.Publish<Planet> "Planet" "isMoon" planet
                     //    return planet
                     //})
-                ).WithAuthorizationPolicies(Policies.CanSetMoon)
+                // For demo purposes of authorization
+                //).WithAuthorizationPolicies(Policies.CanSetMoon)
+                // For build verification purposes
+                ).WithAuthorizationPolicies(Policies.Dummy)
             ]
         )
 

samples/star-wars-api/Startup.fs

@@ -31,10 +31,12 @@ type Startup private () =
     member _.ConfigureServices (services : IServiceCollection) : unit =
         services
             .AddAuthorization(fun options ->
-                options.AddPolicy (
+                options.AddPolicy (Policies.Dummy, fun policy -> policy.Requirements.Add (DummyRequirement ()))
+                options.AddPolicy(
                     Policies.CanSetMoon,
                     (fun policy -> policy.Requirements.Add (IsCharacterRequierment (Set.singleton "droid"))))
                 )
+            .AddScoped<IAuthorizationHandler, DummyHandler>()
             .AddScoped<IAuthorizationHandler, IsCharacterHandler>()
             .AddOxpecker()
             .AddGraphQL<Root> (Schema.executor, rootFactory, configure = configure)