53 lines
1.4 KiB
Haskell
53 lines
1.4 KiB
Haskell
module HTTPure.MethodSpec where
|
|
|
|
import Prelude
|
|
|
|
import Test.Spec as Spec
|
|
|
|
import HTTPure.Method as Method
|
|
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
|
import HTTPure.SpecHelpers ((?=))
|
|
|
|
showSpec :: SpecHelpers.Test
|
|
showSpec = Spec.describe "show" do
|
|
Spec.describe "with a Get" do
|
|
Spec.it "is 'Get'" do
|
|
show Method.Get ?= "Get"
|
|
Spec.describe "with a Post" do
|
|
Spec.it "is 'Post'" do
|
|
show Method.Post ?= "Post"
|
|
Spec.describe "with a Put" do
|
|
Spec.it "is 'Put'" do
|
|
show Method.Put ?= "Put"
|
|
Spec.describe "with a Delete" do
|
|
Spec.it "is 'Delete'" do
|
|
show Method.Delete ?= "Delete"
|
|
Spec.describe "with a Head" do
|
|
Spec.it "is 'Head'" do
|
|
show Method.Head ?= "Head"
|
|
Spec.describe "with a Connect" do
|
|
Spec.it "is 'Connect'" do
|
|
show Method.Connect ?= "Connect"
|
|
Spec.describe "with a Options" do
|
|
Spec.it "is 'Options'" do
|
|
show Method.Options ?= "Options"
|
|
Spec.describe "with a Trace" do
|
|
Spec.it "is 'Trace'" do
|
|
show Method.Trace ?= "Trace"
|
|
Spec.describe "with a Patch" do
|
|
Spec.it "is 'Patch'" do
|
|
show Method.Patch ?= "Patch"
|
|
|
|
readSpec :: SpecHelpers.Test
|
|
readSpec = Spec.describe "read" do
|
|
Spec.describe "with a 'GET' Request" do
|
|
Spec.it "is Get" do
|
|
request <- SpecHelpers.mockRequest "GET" "" "" []
|
|
Method.read request ?= Method.Get
|
|
|
|
methodSpec :: SpecHelpers.Test
|
|
methodSpec = Spec.describe "Method" do
|
|
showSpec
|
|
readSpec
|