Fix tests for full color support

This commit is contained in:
u_quark 2020-01-04 17:07:49 +00:00
parent d304192e98
commit a4002d63b7
No known key found for this signature in database
GPG Key ID: F0DAB925FFBA5DAD

View File

@ -35,7 +35,11 @@ smokeTestTermNonMac termName i = liftIOResult $ do
smokeTestTerm :: String -> Image -> IO Result smokeTestTerm :: String -> Image -> IO Result
smokeTestTerm termName i = do smokeTestTerm termName i = do
nullOut <- openFd "/dev/null" WriteOnly Nothing defaultFileFlags 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) -- putStrLn $ "context color count: " ++ show (contextColorCount t)
reserveDisplay t reserveDisplay t
dc <- displayContext t (100,100) dc <- displayContext t (100,100)