17 lines
390 B
Haskell
17 lines
390 B
Haskell
module Test.HTTPurple.UtilsSpec where
|
|
|
|
import HTTPurple.Utils (replacePlus)
|
|
import Test.HTTPurple.TestHelpers (Test, (?=))
|
|
import Test.Spec (describe, it)
|
|
|
|
replacePlusSpec :: Test
|
|
replacePlusSpec =
|
|
describe "replacePlus" do
|
|
it "should replace all pluses" do
|
|
replacePlus "foo+bar+baz" ?= "foo%20bar%20baz"
|
|
|
|
utilsSpec :: Test
|
|
utilsSpec =
|
|
describe "Utils" do
|
|
replacePlusSpec
|