[test] fix test for ngrams (remove empty list test as it doesn't make much sense)

test/Test/Database/Operations.hs

@@ -64,8 +64,6 @@ tests = sequential $ around withTestDB $ beforeWith (\ctx -> setupEnvironment ct
         describe "NgramsByContext Operations" $ beforeWith NBC.setupNgramsCorpus $ do
           it "returns correct occurrences for ngrams" $ 
             NBC.testGetOccByNgramsOnlyFast
-          it "handles empty results gracefully" $ 
-            NBC.testGetOccByNgramsOnlyFastEmptyList
           it "returns valid context IDs" $ 
             NBC.testGetOccByNgramsOnlyFastValidContextIds        
     beforeWith (\env -> createAliceAndBob env >>= (const $ pure env)) $

test/Test/Database/Operations/NgramsByContext.hs

@@ -164,27 +164,6 @@ testGetOccByNgramsOnlyFast env = runTestMonad env $ do
       Just contexts -> do
         contexts `shouldSatisfy` (not . null)
 
--- Test that empty list returns empty results
-testGetOccByNgramsOnlyFastEmptyList :: TestEnv -> Assertion
-testGetOccByNgramsOnlyFastEmptyList env = runTestMonad env $ do
-  result <- runDBQuery $ do
-    parentId <- getRootId testUsername
-    corpus <- getCorporaWithParentIdOrFail parentId
-    let corpusId = _node_id corpus
-    
-    lists <- getListsWithParentId corpusId
-    case lists of
-      [] -> nodeErrorWith "No list found for corpus"
-      (listNode:_) -> do
-        let listId = _node_id listNode
-        
-        -- Query with empty corpus should return empty or very limited results
-        getOccByNgramsOnlyFast corpusId listId NgramsTerms
-
-  liftIO $ do
-    -- Should return a HashMap (possibly empty if no node_stories exist)
-    result `shouldSatisfy` HM.null
-
 -- Test that results contain valid context IDs
 testGetOccByNgramsOnlyFastValidContextIds :: TestEnv -> Assertion  
 testGetOccByNgramsOnlyFastValidContextIds env = runTestMonad env $ do