@@ -67,8 +67,10 @@ unixFilterError = do
6767 provider <- newTestProvider store
6868 result <- testCompiler store provider testMarkdown compiler
6969 case result of
70− CompilerError es -> True H.@=? any ("invalid option" `isInfixOf`) es
70+ CompilerError es -> True H.@=? any containsIncorrectOptionMessage es
7171 _ -> H.assertFailure "Expecting CompilerError"
7272 cleanTestEnv
7373 where
7474 compiler = getResourceString >>= withItemBody (unixFilter "head" ["-#"])
75+ incorrectOptionMessages = ["invalid option", "illegal option"]
76+ containsIncorrectOptionMessage output = any (`isInfixOf` output) incorrectOptionMessages