src-test/Graph/Distance.hs

   1
   2 {-|
   3 Module      : Graph.Distance
   4 Description :
   5 Copyright   : (c) CNRS, 2017-Present
   6 License     : AGPL + CECILL v3
   7 Maintainer  : team@gargantext.org
   8 Stability   : experimental
   9 Portability : POSIX
  10
  11 Here is a longer description of this module, containing some
  12 commentary with @some markup@.
  13 -}
  14
  15
  16 module Graph.Distance where
  17
  18 import Test.Hspec
  19 import Gargantext.Viz.Graph.Distances.Matrice
  20 import Gargantext.Prelude
  21
  22 test :: IO ()
  23 test = hspec $ do
  24   describe "Cross" $ do
  25     let result = cross' $ matrix 3 ([1,1..] :: [Double])
  26     it "compare" $ do
  27       shouldBe result (matrix 3 ([2,2..] :: [Double]))
  28