implemented encodeRequest

Note: this does not yet handle percent-escaped characters

test/Network/GemServSpec.hs

@@ -22,9 +22,37 @@ License along with this program.  If not, see
 
 module Network.GemServSpec (spec) where
 
-import Test.Hspec (Spec, describe)
+import Test.Hspec (Spec, context, describe, it, shouldBe)
+
+import Network.GemServ
+import Network.GemServ.Types
 
 spec :: Spec
-spec = describe "Network.GemServ" $ return ()
+spec = describe "Network.GemServ"
+  encodeRequestSpec
+
+encodeRequestSpec :: Spec
+encodeRequestSpec = describe "encodeRequest" $ mapM_
+  ( \(desc, req, expected) -> context desc $
+    it ("should be " ++ show expected) $
+      encodeRequest req `shouldBe` expected
+  )
+
+  --  description,   request,      expected
+  [ ( "simple",      simpleReq,    simpleExp    )
+  , ( "with port",   withPortReq,  withPortExp  )
+  , ( "with path",   withPathReq,  withPathExp  )
+  , ( "with query",  withQueryReq, withQueryExp )
+  ]
+
+  where
+    simpleReq    = newRequest "example.com"
+    simpleExp    = "gemini://example.com/"
+    withPortReq  = simpleReq { reqPort = Just 1965 }
+    withPortExp  = "gemini://example.com:1965/"
+    withPathReq  = simpleReq { reqPath = ["foo", "bar"] }
+    withPathExp  = "gemini://example.com/foo/bar"
+    withQueryReq = simpleReq { reqQuery = "foo" }
+    withQueryExp = "gemini://example.com/?foo"
 
 --jl