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
  20 import Gargantext.Core.Methods.Matrix.Accelerate.Utils (cross', matrix)
  21 import Gargantext.Prelude
  22
  23 test :: IO ()
  24 test = hspec $ do
  25   describe "Cross" $ do
  26     let result = cross' $ matrix 3 ([1,1..] :: [Double])
  27     it "compare" $ do
  28       shouldBe result (matrix 3 ([2,2..] :: [Double]))
  29