Add correctness tests for community algos

tests/Test/Algorithms.hs

@@ -167,13 +167,29 @@ communityTest = testGroup "Community"
 communityCorrectnessTests :: TestTree
 communityCorrectnessTests = testGroup "Clustering" [
     testCase "spinglass" spinglassClustering
+  , testCase "leiden"    leidenClustering
+  , testCase "infomap"   infomapClustering
   ]
   where
+
+    runAlgo :: CommunityMethod -> IO [[Int]]
+    runAlgo = withSeed 1 . findCommunity testGraph Nothing Nothing
+
     spinglassClustering :: Assertion
     spinglassClustering = do
-      clusters <- withSeed 1 $ findCommunity testGraph Nothing Nothing spinglass
+      clusters <- runAlgo spinglass
       clusters @?= [[3,4], [0,1,2]]
 
+    leidenClustering :: Assertion
+    leidenClustering = do
+      clusters <- runAlgo leiden
+      clusters @?= [[0,1,2,3,4]]
+
+    infomapClustering :: Assertion
+    infomapClustering = do
+      clusters <- runAlgo infomap
+      clusters @?= [[0,1,2,3,4]]
+
     testGraph :: Graph 'U () ()
     testGraph = mkGraphUfromEdges [(0,1),(1,2),(2,0),(2,3),(3,4),(4,2)]