test: server timing on root and options method

test/spec/Feature/Query/ServerTimingSpec.hs

@@ -14,7 +14,7 @@ spec :: SpecWith ((), Application)
 spec =
   describe "Show Duration on Server-Timing header" $ do
 
-    context "responseonds with Server-Timing header" $ do
+    context "responds with Server-Timing header" $ do
       it "works with get request" $ do
         request methodGet  "/organizations?id=eq.6"
           []
@@ -73,3 +73,39 @@ spec =
           { matchStatus  = 200
           , matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
           }
+
+      it "works with root spec" $
+        request methodHead "/"
+          []
+          ""
+          `shouldRespondWith`
+          ""
+          { matchStatus  = 200
+          , matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
+          }
+
+      it "works with OPTIONS method" $ do
+        request methodOptions "/organizations"
+          []
+          ""
+          `shouldRespondWith`
+          ""
+          { matchStatus  = 200
+          , matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "response"]
+          }
+        request methodOptions "/rpc/getallprojects"
+          []
+          ""
+          `shouldRespondWith`
+          ""
+          { matchStatus  = 200
+          , matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "response"]
+          }
+        request methodOptions "/"
+          []
+          ""
+          `shouldRespondWith`
+          ""
+          { matchStatus  = 200
+          , matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "response"]
+          }