implemented runConnection logic

test/Network/GemServ/InternalSpec.hs

@@ -0,0 +1,30 @@
+{-
+
+gemserv
+
+Cooyright (C) Jonathan Lamothe <jonathan@jlamothe.net>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as
+published by the Free Software Foundation, either version 3 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public
+License along with this program.  If not, see
+<https://www.gnu.org/licenses/>.
+
+-}
+
+module Network.GemServ.InternalSpec (spec) where
+
+import Test.Hspec (Spec, describe)
+
+spec :: Spec
+spec = describe "Internal" $ return ()
+
+--jl

test/Network/GemServSpec.hs

@@ -24,11 +24,14 @@ module Network.GemServSpec (spec) where
 
 import Test.Hspec (Spec, context, describe, it, shouldBe)
 
+import qualified Network.GemServ.InternalSpec as Internal
+
 import Network.GemServ
 import Network.GemServ.Types
 
 spec :: Spec
 spec = describe "Network.GemServ" $ do
+  Internal.spec
   encodeGemURLSpec
   decodeGemURLSpec
   escapeStringSpec