on master help sign in
Fix tests for full color support
commita4002d63b7167a7e7300381be6159c36a2af8053 authoru_quark <eleftherios.kritikos@gmail.com> dateSat 4 Jan 2020, 17:07 (7 years ago) parentd304192
1 file changed+5−1
test/VerifyOutput.hs+5−1
test/VerifyOutput.hs+5−1
@@ -35,7 +35,11 @@ smokeTestTermNonMac termName i = liftIOResult $ do
3535smokeTestTerm :: String -> Image -> IO Result
3636smokeTestTerm termName i = do
3737 nullOut <- openFd "/dev/null" WriteOnly Nothing defaultFileFlags
38− t <- outputForConfig $ defaultConfig { outputFd = Just nullOut, termName = Just termName }
38+ t <- outputForConfig $ defaultConfig
39+ { outputFd = Just nullOut
40+ , termName = Just termName
41+ , colorMode = Just NoColor
42+ }
3943 -- putStrLn $ "context color count: " ++ show (contextColorCount t)
4044 reserveDisplay t
4145 dc <- displayContext t (100,100)