ansi-terminal-game-1.9.4.0: test/Terminal/Game/Layer/Object/TestSpec.hs

module Terminal.Game.Layer.Object.TestSpec where

import Terminal.Game.Layer.Imperative
import Terminal.Game.Layer.Object
import Alone

import Test.Hspec

import qualified GHC.Exts as E

spec :: Spec
spec = do

  describe "runTest" $ do
    it "logs exceptions without failing" $ do
        r <- readRecord "test/records/alone-record-test.gr"
        let r' = r { aTermSize = E.fromList (replicate 1000 Nothing) }
            t = runTest (runGameGeneral aloneInARoom) r'
        last (snd t) `shouldBe` TException CannotGetDisplaySize