purescript-httpurple/test/Test/HTTPure/UtilsSpec.purs

17 lines
384 B
Haskell
Raw Normal View History

module Test.HTTPure.UtilsSpec where
import HTTPure.Utils (replacePlus)
import Test.HTTPure.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