From 17c1ec63b969472555514533569004e5f31a921f Mon Sep 17 00:00:00 2001 From: Guillaume Bouchard Date: Mon, 27 Apr 2020 17:43:10 +0200 Subject: [PATCH] Ignore stderr on tests --- Test.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Test.hs b/Test.hs index 828c972..39ae2ce 100755 --- a/Test.hs +++ b/Test.hs @@ -17,7 +17,7 @@ import Data.List (find) currentChannel = "channel:nixos-19.09-small" -- | Utils function: run a command and returns its output. -processOutput p args = Text.strip . Text.pack <$> readProcess (Text.unpack p) (Text.unpack <$> args) "" +processOutput p args = Text.strip . Text.pack <$> readCreateProcess ((proc (Text.unpack p) (Text.unpack <$> args)) { std_err = CreatePipe }) "" -- * OpenGL @@ -60,6 +60,8 @@ checkVulkan_32_64 vulkaninfo32 vulkaninfo64 vendorName nixGLName = do main = do + putStrLn "Running tests for nixGL" + putStrLn "It can take a while, this will build and test all drivers in the background" glxinfo64 <- (<>"/bin/glxinfo") <$> processOutput "nix-build" [currentChannel, "-A", "glxinfo"] glxinfo32 <- (<>"/bin/glxinfo") <$> processOutput "nix-build" [currentChannel, "-A", "pkgsi686Linux.glxinfo"]