{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}

module AppSpec (spec) where

import Lib (app)
import Test.Hspec
import Test.Hspec.Wai
import Test.Hspec.Wai.JSON

main :: IO ()
main = hspec spec

spec :: Spec
spec = with (return $ app "tutor.db") $ do
  describe "GET /search" $ do
    it "responds with 200" $ do
      get "/search" `shouldRespondWith` 200