2022-05-22 11:47:58 +00:00
|
|
|
module Test.HTTPurple.UtilsSpec where
|
2020-11-14 21:09:07 +00:00
|
|
|
|
2022-05-22 11:47:58 +00:00
|
|
|
import HTTPurple.Utils (replacePlus)
|
|
|
|
import Test.HTTPurple.TestHelpers (Test, (?=))
|
2022-05-04 21:02:29 +00:00
|
|
|
import Test.Spec (describe, it)
|
2020-11-14 21:09:07 +00:00
|
|
|
|
2021-11-19 06:16:35 +00:00
|
|
|
replacePlusSpec :: Test
|
|
|
|
replacePlusSpec =
|
|
|
|
describe "replacePlus" do
|
|
|
|
it "should replace all pluses" do
|
|
|
|
replacePlus "foo+bar+baz" ?= "foo%20bar%20baz"
|
|
|
|
|
|
|
|
utilsSpec :: Test
|
2021-03-22 19:02:36 +00:00
|
|
|
utilsSpec =
|
2021-11-19 06:16:35 +00:00
|
|
|
describe "Utils" do
|
|
|
|
replacePlusSpec
|