mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-11-25 19:22:08 +03:00
Fix tests for full color support
This commit is contained in:
parent
d304192e98
commit
a4002d63b7
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user