Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit a7375084 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[tests] attempt to add test for facet doc score

parent 5190ea81
Show whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
test/Test/Database/Operations/DocumentSearch.hs
View file @ a7375084
...@@ -190,6 +190,7 @@ corpusSearch03 env = do ...@@ -190,6 +190,7 @@ corpusSearch03 env = do
map facetDoc_title results3 `shouldBe` ["PyPlasm: computational geometry made easy", "Haskell for OCaml programmers"] map facetDoc_title results3 `shouldBe` ["PyPlasm: computational geometry made easy", "Haskell for OCaml programmers"]
-- | Check that the score doc count is correct -- | Check that the score doc count is correct
-- TODO This test is unfinished because `updateDocs` needs more work
corpusScore01 :: TestEnv -> Assertion corpusScore01 :: TestEnv -> Assertion
corpusScore01 env = do corpusScore01 env = do
flip runReaderT env $ runTestMonad $ do flip runReaderT env $ runTestMonad $ do
...@@ -204,7 +205,7 @@ corpusScore01 env = do ...@@ -204,7 +205,7 @@ corpusScore01 env = do
map facetDoc_score results `shouldBe` [Just 0.0, Just 0.0] map facetDoc_score results `shouldBe` [Just 0.0, Just 0.0]
_ <- updateDocs (_node_id corpus) -- _ <- updateDocs (_node_id corpus)
liftIO $ do liftIO $ do
map facetDoc_score results `shouldBe` [Just 0.0, Just 0.0] map facetDoc_score results `shouldBe` [Just 0.0, Just 0.0]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment