From a4002d63b7167a7e7300381be6159c36a2af8053 Mon Sep 17 00:00:00 2001 From: u_quark Date: Sat, 4 Jan 2020 17:07:49 +0000 Subject: [PATCH] Fix tests for full color support --- test/VerifyOutput.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/test/VerifyOutput.hs b/test/VerifyOutput.hs index 0ffb07c..5f032f7 100644 --- a/test/VerifyOutput.hs +++ b/test/VerifyOutput.hs @@ -35,7 +35,11 @@ smokeTestTermNonMac termName i = liftIOResult $ do smokeTestTerm :: String -> Image -> IO Result smokeTestTerm termName i = do nullOut <- openFd "/dev/null" WriteOnly Nothing defaultFileFlags - t <- outputForConfig $ defaultConfig { outputFd = Just nullOut, termName = Just termName } + t <- outputForConfig $ defaultConfig + { outputFd = Just nullOut + , termName = Just termName + , colorMode = Just NoColor + } -- putStrLn $ "context color count: " ++ show (contextColorCount t) reserveDisplay t dc <- displayContext t (100,100)