From df879037d135c0b300735185d5fdc0857ed797d6 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Tue, 4 Nov 2025 09:06:01 +0100 Subject: Serve index.html when requesting '/' --- lambda-calcul/haskell/test/Minilang/ServerSpec.hs | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (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 6a25ec5..962dcdc 100644 --- a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs +++ b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs @@ -3,22 +3,32 @@ module Minilang.ServerSpec where -import Data.Aeson (eitherDecode, FromJSON) +import Data.Aeson (FromJSON, eitherDecode) +import Data.ByteString (isInfixOf, toStrict) +import Data.Data (Proxy (..)) import Minilang.API (Score) import Minilang.Server (serveAPI) import Network.Wai (Application) import Test.Hspec (Spec, it) import Test.Hspec.Wai (get, matchBody, shouldRespondWith, with) import Test.Hspec.Wai.Matcher (MatchBody (..)) -import Data.Data (Proxy (..)) spec :: Spec -spec = with app $ +spec = with app $ do + it "GET / returns 'index.html'" $ do + get "/" + `shouldRespondWith` 200 + { matchBody = MatchBody $ \_ actual -> + if "" `isInfixOf` toStrict actual + then Nothing + else Just "Expected HTML content" + } + it "GET /api/leaderboard returns empty list of scores" $ do get "/api/leaderboard" `shouldRespondWith` 200 {matchBody = arrayOfLengthOf (Proxy @Score) 2} -arrayOfLengthOf :: forall elem proxy . (FromJSON elem) => proxy elem -> Int -> MatchBody +arrayOfLengthOf :: forall elem proxy. (FromJSON elem) => proxy elem -> Int -> MatchBody arrayOfLengthOf _ len = MatchBody $ \_ actual -> case eitherDecode actual of Right (scores :: [elem]) -> -- cgit v1.3.1