Update test suite to use vty-crossplatform

jtdaugherty · Dec 15, 2023 · 31f94e1 · 31f94e1
1 parent 01827e2
commit 31f94e1
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/brick.cabal b/brick.cabal
@@ -575,5 +575,5 @@ test-suite brick-tests
                        microlens,
                        vector,
                        vty,
-                       vty-unix,
+                       vty-crossplatform,
                        QuickCheck
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 

diff --git a/tests/Render.hs b/tests/Render.hs
@@ -10,8 +10,7 @@ import Control.Monad (when)
 import Data.Monoid
 #endif
 import qualified Graphics.Vty as V
-import qualified Graphics.Vty.Platform.Unix.Output as VU
-import qualified Graphics.Vty.Platform.Unix.Settings as VU
+import qualified Graphics.Vty.CrossPlatform.Testing as V
 import Brick.Widgets.Border (hBorder)
 import Control.Exception (SomeException, try)
 
@@ -20,7 +19,7 @@ region = (30, 10)
 
 renderDisplay :: Ord n => [Widget n] -> IO ()
 renderDisplay ws = do
-    outp <- VU.buildOutput =<< VU.defaultSettings
+    outp <- V.mkDefaultOutput
     ctx <- V.displayContext outp region
     V.outputPicture ctx (renderWidget Nothing ws region)
     V.releaseDisplay outp