[terms] added test for multi terms docNgrams functionality

README.md

@@ -437,6 +437,13 @@ experience strange errors like
 fatal: Could not parse object '316d48b6a89593faaf1f2102e9714cea7e416e56'.
 ```
 
+If you're using emacs, you could fire up an interactive REPL directly
+via e.g. `haskell-interactive-bring`.
+
+In repl, the `.ghci` file from our repo would be loaded which contains
+a useful `:ggload` macro that imports all exposed modules from the
+`gargantext` library.
+
 ## Running the tests <a name="running-tests"></a>
 
 Running the tests can be done via the following command:

test/Test/Ngrams/Terms.hs

@@ -4,7 +4,7 @@ module Test.Ngrams.Terms (tests) where
 
 import Data.HashMap.Strict qualified as HashMap
 import Data.Map.Strict qualified as Map
-import Gargantext.API.Ngrams
+import Gargantext.API.Ngrams.Types ( NgramsTerm )
 import Gargantext.Core (Lang(..))
 import Gargantext.Core.Text.Context (TermList)
 import Gargantext.Core.Text.Ngrams (NgramsType(NgramsTerms), Ngrams(..))
@@ -15,8 +15,8 @@ import Gargantext.Database.Admin.Types.Hyperdata.Document ( HyperdataDocument(..
 import Gargantext.Database.Admin.Types.Node (NodeId(..))
 import Gargantext.Database.Schema.Context ( ContextPolyOnlyId(..) )
 import Gargantext.Prelude
-import Test.Tasty
-import Test.Tasty.HUnit
+import Test.Tasty ( TestTree, testGroup )
+import Test.Tasty.HUnit ( Assertion, testCase, (@?=) )
 
 
 tests :: TestTree
@@ -34,6 +34,7 @@ unitTests = testGroup "Terms tests"
   , testCase "termsInText works 04 (related to issue #221)" testTermsInText04
 
   , testCase "extractTermsWithList' works 01" testExtractTermsWithList'01
+  , testCase "extractTermsWithList' works 02 (#471)" testExtractTermsWithList'02
 
   , testCase "docNgrams works 01" testDocNgrams01
   , testCase "docNgrams works 02" testDocNgrams02
@@ -112,12 +113,18 @@ testExtractTermsWithList'01 = do
   let termList = [(["chat blanc"], [["chat","blanc"]])] :: TermList
   extractTermsWithList' (buildPatterns termList) "Le chat blanc" @?= ["chat blanc"]
 
+-- #471
+testExtractTermsWithList'02 :: Assertion
+testExtractTermsWithList'02 = do
+  let termList = [(["patients"], []), (["patients", "with"], [])] :: TermList
+  extractTermsWithList' (buildPatterns termList) "patients with problems" @?= ["patients", "patientswith"]
+
 testDocNgrams01 :: Assertion
 testDocNgrams01 = do
   let terms = ["hello", "world"] :: [NgramsTerm]
   let hd = emptyHyperdataDocument { _hd_title = Just "hello world"
                                   , _hd_abstract = Nothing }
-  let ctx = ContextOnlyId 1 hd
+  let ctx = ContextOnlyId { _context_oid_id = 1, _context_oid_hyperdata = hd }
   let dNgrams = docNgrams EN terms ctx
   length dNgrams @?= 2
 
@@ -126,7 +133,7 @@ testDocNgrams02 = do
   let terms = ["hello", "world"] :: [NgramsTerm]
   let hd = emptyHyperdataDocument { _hd_title = Just "hello world, kaboom"
                                   , _hd_abstract = Nothing }
-  let ctx = ContextOnlyId 1 hd
+  let ctx = ContextOnlyId { _context_oid_id = 1, _context_oid_hyperdata = hd }
   let dNgrams = docNgrams EN terms ctx
   length dNgrams @?= 2
 
@@ -135,10 +142,10 @@ testNgramsByDoc01 = do
   let terms = ["hello", "world"] :: [NgramsTerm]
   let hd1 = emptyHyperdataDocument { _hd_title = Just "hello world, kaboom"
                                    , _hd_abstract = Nothing }
-  let ctx1 = ContextOnlyId 1 hd1
+  let ctx1 = ContextOnlyId { _context_oid_id = 1, _context_oid_hyperdata = hd1 }
   let hd2 = emptyHyperdataDocument { _hd_title = Just "world, boom world"
                                    , _hd_abstract = Nothing }
-  let ctx2 = ContextOnlyId 2 hd2
+  let ctx2 = ContextOnlyId { _context_oid_id = 2, _context_oid_hyperdata = hd2 }
 
   ngramsByDoc EN NgramsTerms terms ctx1 @?=
     HashMap.fromList