implemented escapeString

test/Network/GemServSpec.hs

@@ -28,8 +28,9 @@ import Network.GemServ
 import Network.GemServ.Types
 
 spec :: Spec
-spec = describe "Network.GemServ"
+spec = describe "Network.GemServ" $ do
   encodeRequestSpec
+  escapeStringSpec
 
 encodeRequestSpec :: Spec
 encodeRequestSpec = describe "encodeRequest" $ mapM_
@@ -55,4 +56,16 @@ encodeRequestSpec = describe "encodeRequest" $ mapM_
     withQueryReq = simpleReq { reqQuery = "foo" }
     withQueryExp = "gemini://example.com/?foo"
 
+escapeStringSpec :: Spec
+escapeStringSpec = describe "escapeString" $ mapM_
+  ( \(input, expected) -> context (show input) $
+    it ("should be " ++ show expected) $
+      escapeString input `shouldBe` expected
+  )
+
+  --  input,               expected
+  [ ( "~foo-bar_baz.quux", "~foo-bar_baz.quux"        )
+  , ( "foo:/?=&#%",        "foo%3a%2f%3f%3d%26%23%25" )
+  ]
+
 --jl