clustering-louvain/test/Spec.hs

   1 --import Data.List (sort)
   2 ---- import Data.Example
   3 --import Data.Louvain
   4 --
   5 --
   6 --testKarate2com = do
   7 --    p <- bestpartition True <$> karate
   8 --    k <- karate
   9 --    let result = (sort $ Prelude.map (sort) (stepscom' k 2 p))
  10 --    print result
  11 --    print karate2com
  12 --    print $  result == karate2com
  13 --
  14
  15 main :: IO ()
  16 main = print "undefined" -- testKarate2com