GPipe-GLFW4-2.0.0: test/Graphics/GPipe/Context/GLFW/TimedSpec.hs

{-# OPTIONS_GHC -Wno-deferred-type-errors #-}
module Graphics.GPipe.Context.GLFW.TimedSpec (spec) where

import           Test.Hspec                  (Spec, describe, it)

import           Graphics.GPipe
import qualified Graphics.GPipe.Context.GLFW as GLFW
import qualified Test.Common                 as C
import qualified Test.Control                as A

spec :: Spec
spec = do
    describe "Timed render" $ do
        it ("should render a scene to a window for " ++ show maxSec ++ " seconds") $ do
            C.runContext GLFW.defaultHandleConfig $ do
                win <- newWindow (WindowFormatColorDepth RGB8 Depth16) (GLFW.defaultWindowConfig "Timed")
                resources <- C.initRenderContext win [C.xAxis, C.yAxis, C.zAxis, C.plane]
                C.mainloop win (A.seconds maxSec) resources C.continue
            where
                maxSec = 2.0