Issue #13: adds a note why 'after AllFinish' is used in testing

juspay · Oct 14, 2019 · 7c62315 · 7c62315
1 parent bdd1bad
commit 7c62315
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/test/Main.hs b/test/Main.hs
@@ -13,6 +13,11 @@ tests :: TestTree
 tests = testGroup "All tests"
   [ types
   , rules
+  -- 'after' is needed to avoid running the 'rules' and 'server' tests
+  -- concurrently. Running them concurrently is problematic because
+  -- both create a server (binding the same port) so if they create it
+  -- at the same time, one of the test groups will fail. The 'after'
+  -- function makes 'server' tests run after 'rules' tests.
   , after AllFinish "test_rules" server
   ]