provide help on the leaderboard and OpenAPI specification

1 files changed, 10 insertions, 1 deletions

diff --git a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs
index a60c232..80e9f5e 100644
--- a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs
+++ b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs
@@ -36,7 +36,16 @@ spec = with (app testSeed) $ do
         { matchBody = MatchBody $ \_ actual ->
             if "<html>" `isInfixOf` toStrict actual
               then Nothing
-              else Just "Expected HTML content"
+              else Just ("Expected HTML content, got: " <> LT.unpack (decodeUtf8 actual))
+        }
+
+  it "GET /api.json returns OpenApi 2 descriptor" $ do
+    get "/api.json"
+      `shouldRespondWith` 200
+        { matchBody = MatchBody $ \_ actual ->
+            if "\"swagger\":\"2.0\"" `isInfixOf` toStrict actual
+              then Nothing
+              else Just ("Expected JSON OpenApi descriptor, got: " <> LT.unpack (decodeUtf8 actual))
         }
 
   it "GET /api/leaderboard returns empty list of scores at start" $ do