From f08fa03af4f6cf38e664d74c6a0a4a3e65746fb2 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Wed, 5 Nov 2025 16:28:56 +0100 Subject: provide help on the leaderboard and OpenAPI specification --- lambda-calcul/haskell/test/Minilang/ServerSpec.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'lambda-calcul/haskell/test') 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 "" `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 -- cgit v1.3.1