module Minilang.ServerSpec where

import Minilang.Server (serveAPI)
import Network.Wai (Application)
import Test.Hspec (Spec, it)
import Test.Hspec.Wai (get, shouldRespondWith, with)

spec :: Spec
spec = with app $
  it "GET /api/leaderboard returns empty list of scores" $ do
    get "/api/leaderboard"
      `shouldRespondWith` "[]"

app :: IO Application
app = pure serveAPI