Implements first test cases

Implements two test cases that validate whether a connection can be opened with SAM
solatis · Feb 14, 2015 · e0448e9 · e0448e9
1 parent 564d3cb
commit e0448e9
Show file tree

Hide file tree

Showing 5 changed files with 32 additions and 10 deletions.
diff --git a/network-anonymous-i2p.cabal b/network-anonymous-i2p.cabal
@@ -37,6 +37,10 @@ library
   exposed-modules:     Network.Anonymous.I2P,
                        Network.Anonymous.I2P.Types
 
+  other-modules:       Network.Anonymous.I2P.Internal.Network.Protocol,
+                       Network.Anonymous.I2P.Internal.Network.Socket,
+                       Network.Anonymous.I2P.Internal.Debug
+
   build-depends:       base == 4.*,
                        network,
                        binary,
@@ -57,6 +61,9 @@ test-suite network-anonymous-i2p-test
 
   build-depends:       base,
                        hspec,
+                       resourcet,
+                       mtl,
+                       network,
 
                        network-anonymous-i2p
 

diff --git a/src/Network/Anonymous/I2P/Internal.hs b/src/Network/Anonymous/I2P/Internal.hs
diff --git a/src/Network/Anonymous/I2P/Internal/Debug.hs b/src/Network/Anonymous/I2P/Internal/Debug.hs
@@ -8,9 +8,4 @@ import Debug.Trace
 
 -- | Alias to Debug.Trace(trace), but disabled in non-debug builds
 log :: String -> a -> a
-
-#ifdef DEBUG
 log = trace
-#else
-log _ ret = ret
-#endif
diff --git a/test/Main.hs b/test/Main.hs
@@ -3,6 +3,8 @@ module Main where
 import Test.Hspec.Runner
 import qualified Spec
 
+import Network (withSocketsDo)
+
 main :: IO ()
 main =
-  hspecWith defaultConfig Spec.spec
+  withSocketsDo $ hspecWith defaultConfig Spec.spec
diff --git a/test/Network/Anonymous/I2P/ConnectSpec.hs b/test/Network/Anonymous/I2P/ConnectSpec.hs
@@ -0,0 +1,22 @@
+module Network.Anonymous.I2P.ConnectSpec where
+
+import           Control.Monad.Trans.Resource
+import           Control.Monad.Error
+
+import Data.Either (isRight, isLeft)
+
+import           Network.Anonymous.I2P        (initialize)
+import           Network.Anonymous.I2P.Types
+
+import           Test.Hspec
+
+spec :: Spec
+spec = do
+  describe "when initializing a context" $ do
+    it "SAM should be listening at its default port" $ do
+      result <- runResourceT $ runErrorT $ initialize "127.0.0.1" 7656 VirtualStream
+      isRight result `shouldBe` True
+
+    it "SAM should not be listening at another port" $ do
+      result <- runResourceT $ runErrorT $ initialize "127.0.0.1" 1234 VirtualStream
+      isLeft result `shouldBe` True