From bfde27cea6f947a6346bd90c735d48f51a8fe4c9 Mon Sep 17 00:00:00 2001
From: Trolli Schmittlauch <t.schmittlauch@orlives.de>
Date: Mon, 16 Mar 2020 01:39:17 +0100
Subject: [PATCH] restructure tests contributes to #2

---
 Hash2Pub/Hash2Pub.cabal    |  3 ++-
 Hash2Pub/test/MyLibTest.hs | 13 -------------
 Hash2Pub/test/Specs.hs     |  8 ++++++++
 3 files changed, 10 insertions(+), 14 deletions(-)
 delete mode 100644 Hash2Pub/test/MyLibTest.hs
 create mode 100644 Hash2Pub/test/Specs.hs

diff --git a/Hash2Pub/Hash2Pub.cabal b/Hash2Pub/Hash2Pub.cabal
index 26ac80b..eb18b2e 100644
--- a/Hash2Pub/Hash2Pub.cabal
+++ b/Hash2Pub/Hash2Pub.cabal
@@ -106,6 +106,7 @@ test-suite Hash2Pub-test
   hs-source-dirs:      test
 
   -- The entrypoint to the test suite.
-  main-is:             MyLibTest.hs
+  main-is:             Specs.hs
+  other-modules:       FediChordSpec
   build-depends:       hspec, Hash2Pub
 
diff --git a/Hash2Pub/test/MyLibTest.hs b/Hash2Pub/test/MyLibTest.hs
deleted file mode 100644
index 28428c9..0000000
--- a/Hash2Pub/test/MyLibTest.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-module Main (main) where
-
-import Test.Hspec
-
-import Hash2Pub.FediChord
-
-main :: IO ()
-main = hspec $ do
-    describe "NodeID" $ do
-        it "can store a numeral ID" $ do
-            getNodeID (mkNodeID 2342) `shouldBe` 2342
-        it "computes ID values within the modular bounds" $ do
-            getNodeID ((maxBound :: NodeID) + mkNodeID 2) < getNodeID (maxBound :: NodeID) `shouldBe` True
diff --git a/Hash2Pub/test/Specs.hs b/Hash2Pub/test/Specs.hs
new file mode 100644
index 0000000..51a39ee
--- /dev/null
+++ b/Hash2Pub/test/Specs.hs
@@ -0,0 +1,8 @@
+module Main (main) where
+
+import Test.Hspec
+import qualified FediChordSpec
+
+main :: IO ()
+main = hspec $ do
+    describe "FediChord tests" FediChordSpec.spec