22 lines
515 B
Haskell
22 lines
515 B
Haskell
|
module HTTPure.QuerySpec where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
|
||
|
|
import Data.StrMap as StrMap
|
||
|
|
import Test.Spec as Spec
|
||
|
|
|
||
|
|
import HTTPure.Query as Query
|
||
|
|
|
||
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
||
|
|
import HTTPure.SpecHelpers ((?=))
|
||
|
|
|
||
|
|
readSpec :: SpecHelpers.Test
|
||
|
|
readSpec = Spec.describe "read" do
|
||
|
|
Spec.it "is always an empty StrMap (until the stub is fully implemented)" do
|
||
|
|
req <- SpecHelpers.mockRequest "" "" "" []
|
||
|
|
Query.read req ?= StrMap.empty
|
||
|
|
|
||
|
|
querySpec :: SpecHelpers.Test
|
||
|
|
querySpec = Spec.describe "Query" do
|
||
|
|
readSpec
|