Check if the tex error is contained in the log

cchalmers · Aug 28, 2024 · 74123fa · 74123fa
1 parent 1a91e0f
commit 74123fa
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/Tex/LogParse.hs b/tests/Tex/LogParse.hs
@@ -43,11 +43,11 @@ contextHeader, contextBye :: ByteString
 contextHeader = "\\starttext"
 contextBye = "\\stoptext"
 
+context :: TexError' -> ByteString -> F.Test
 context e code = testCase ("context" ++ show e) $ do
   (exitCode, texLog, mPDF) <- runTex "context" [] [] (contextHeader <> code)
-  take 1 (map error' (texErrors texLog)) @?= [e]
-  -- head (map error' $ texErrors texLog) @?= e
-  -- assertBool ("context" ++ show e) $ texLog `containsError` e
+  -- BS.hPutStrLn stderr (rawLog texLog)
+  assertBool ("context" ++ show e) $ texLog `containsError` e
 
 -- Generating tex sample tex files -------------------------------------
 
@@ -96,8 +96,8 @@ labeledErrors =
 
 -- Checking error parsing ----------------------------------------------
 
-containsError :: TexLog -> TexError -> Bool
-containsError log (TexError _ err) = err `elem` map error' (texErrors log)
+containsError :: TexLog -> TexError' -> Bool
+containsError log err = err `elem` map error' (texErrors log)
 
 checkError :: (TexError' -> ByteString -> F.Test) -> (TexError', [ByteString]) -> F.Test
 checkError f (e, codes) = testGroup (show e) $ map (f e) codes