Merge branch 'dev-kawen' of ssh://gitlab.iscpif.fr:20022/gargantext/haskell-gargantex...
[gargantext.git] / src-test / Ngrams / Lang / Occurrences.hs
index 1dfa5d4ab4f022e4651517df192f87dd03b6244e..bd0c2a7c1538914692009644b6a2b7b1dc4aa87b 100644 (file)
@@ -1,21 +1,29 @@
-{-# LANGUAGE OverloadedStrings   #-}
+{-|
+Module      : Ngrams.Lang.Occurrences
+Description : 
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+Here is a longer description of this module, containing some
+commentary with @some markup@.
+-}
+
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module Ngrams.Lang.Occurrences where
 
+{-
 import Test.Hspec
-import Control.Exception (evaluate)
-
 
-import Data.Text (Text)
+import Data.Either (Either(Right))
 
 import Gargantext.Prelude
-import Gargantext.Types.Main (Language(..))
-import Gargantext.Ngrams
-import Gargantext.Ngrams.Occurrences (parseOccurrences)
-import Gargantext.Ngrams.Parser (extractNgrams, selectNgrams)
-
+import Gargantext.Text.Metrics.Occurrences (parseOccurrences)
 
+parsersTest :: IO ()
 parsersTest = hspec $ do
   describe "Parser for occurrences" $ do
     
@@ -52,4 +60,4 @@ parsersTest = hspec $ do
 --  describe "Parser for nodes" $ do
 --    it "returns the result of one parsing after space" $ do
 --      occOfCorpus 249509 "sciences" `shouldReturn` 7
-
+-}