Fix bug in GargPorter implementation

test/Test/API/Private/Table.hs

@@ -52,6 +52,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ do
         let corpusId = _sctx_data
         withApplication _sctx_app $ do
           withValidLogin _sctx_port "alice" (GargPassword "alice") $ \clientEnv token -> do
+
             liftIO $ do
               (HashedResponse _ tr1)
                 <- checkEither $ runClientM (get_table token
@@ -63,8 +64,8 @@ tests = sequential $ aroundAll withTestDBAndPort $ do
                                                        (Just $ RawQuery "soy")
                                                        Nothing
                                             ) clientEnv
-              length (tr_docs tr1) `shouldBe` 4
 
+              length (tr_docs tr1) `shouldBe` 3
 
 createSoySauceCorpus :: SpecContext () -> IO (SpecContext CorpusId)
 createSoySauceCorpus ctx@SpecContext{..} = do

test/Test/Database/Operations/DocumentSearch.hs

@@ -135,6 +135,8 @@ stemmingTest :: TestEnv -> Assertion
 stemmingTest _env = do
   stem EN GargPorterAlgorithm "Ajeje"        `shouldBe` "Ajeje"
   stem EN GargPorterAlgorithm "PyPlasm:"     `shouldBe` "PyPlasm:"
+  stem EN GargPorterAlgorithm "soy"          `shouldBe` "soy"
+  stem EN GargPorterAlgorithm "cry"          `shouldBe` "cri"
   -- This test outlines the main differences between Porter and Lancaster.
   stem EN GargPorterAlgorithm "dancer"       `shouldBe` "dancer"
   stem EN LancasterAlgorithm  "dancer"       `shouldBe` "dant"