Skip to content

haskell-gargantext
haskell-gargantext
Commit c0ec7622 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

Add a bit more thorough testing to stemming algorithms

parent 2941ac6e
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 2 deletions
test/Test/Database/Operations/DocumentSearch.hs
View file @ c0ec7622
......@@ -137,8 +137,15 @@ corpusAddDocuments env = do
stemmingTest :: TestEnv -> Assertion
stemmingTest _env = do
stem EN GargPorterAlgorithm "Ajeje" `shouldBe` "Ajeje"
stem EN GargPorterAlgorithm "PyPlasm:" `shouldBe` "PyPlasm:"
stem EN GargPorterAlgorithm "Ajeje" `shouldBe` "Ajeje"
stem EN GargPorterAlgorithm "PyPlasm:" `shouldBe` "PyPlasm:"
-- This test outlines the main differences between Porter and Lancaster.
stem EN GargPorterAlgorithm "dancer" `shouldBe` "dancer"
stem EN LancasterAlgorithm "dancer" `shouldBe` "dant"
stem EN GargPorterAlgorithm "postpartum" `shouldBe` "postpartum"
stem EN LancasterAlgorithm "postpartum" `shouldBe` "postpart"
stem IT PorterAlgorithm "catechizzare" `shouldBe` "catechizz"
stem IT LancasterAlgorithm "catechizzare" `shouldBe` "catechizzare" -- lancaster doesn't support Italian
mkQ :: T.Text -> API.Query
mkQ txt = either (\e -> error $ "(query) = " <> T.unpack txt <> ": " <> e) id . API.parseQuery . API.RawQuery $ txt
......
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