22 lines
507 B
Haskell
22 lines
507 B
Haskell
module HTTPure.RequestSpec where
|
|
|
|
import Prelude (($))
|
|
|
|
import Test.Spec as Spec
|
|
import Test.Spec.Assertions as Assertions
|
|
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
|
|
|
import HTTPure.Request as Request
|
|
|
|
getURLSpec :: SpecHelpers.Test
|
|
getURLSpec = Spec.describe "getURL" $
|
|
Spec.it "is the URL of the request" $
|
|
Request.getURL req `Assertions.shouldEqual` "/test"
|
|
where
|
|
req = SpecHelpers.mockRequest "/test"
|
|
|
|
requestSpec :: SpecHelpers.Test
|
|
requestSpec = Spec.describe "Request" $
|
|
getURLSpec
|