15 lines
350 B
Haskell
15 lines
350 B
Haskell
|
module Test.ProbeControllerSpec where
|
||
|
|
|
||
|
|
import Test.Hspec
|
||
|
|
import IHP.HSpec
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = describe "ProbeController" do
|
||
|
|
it "GET /probes returns 200" do
|
||
|
|
response <- get "/probes"
|
||
|
|
response `shouldRespondWith` 200
|
||
|
|
|
||
|
|
it "GET /healthz returns 200" do
|
||
|
|
response <- get "/healthz"
|
||
|
|
response `shouldRespondWith` 200
|