src-test/Utils/Crypto.hs

   1 {-|
   2 Module      : Utils.Crypto
   3 Description :
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 -}
  11
  12 module Utils.Crypto where
  13
  14 import Data.Text (Text)
  15 import Test.Hspec
  16
  17 import Gargantext.Prelude
  18 import Gargantext.Prelude.Crypto.Hash
  19
  20 -- | Crypto Hash tests
  21 test :: Spec
  22 test = do
  23   describe "Hash String with frontend works" $ do
  24     let text = "To hash with backend" :: Text
  25     let hashed = "8a69a94d164279af2b7d1443ce08da6184b3d7e815406076e148159c284b53c3" :: Hash
  26                  -- ^ hash from fronted with text above
  27     it "compare" $ do
  28       hash text `shouldBe` hashed
  29
  30   describe "Hash List with backend works" $ do
  31     let list = ["a","b"] :: [Text]
  32     let hashed = "ab19ec537f09499b26f0f62eed7aefad46ab9f498e06a7328ce8e8ef90da6d86" :: Hash
  33                  -- ^ hash from frontend with text above
  34     it "compare" $ do
  35       hash list `shouldBe` hashed
  36
  37 ------------------------------------------------------------------------
  38 -- | TODO property based tests
  39   describe "Hash works with any order of list" $ do
  40     let hash1 = hash (["a","b"] :: [Text])
  41     let hash2 = hash (["b","a"] :: [Text])
  42     it "compare" $ do
  43       hash1 `shouldBe` hash2