test/VerifyUsingMockInput.hs · vty

on 4f9fc10 help sign in

vty/test/VerifyUsingMockInput.hs

24 lines 582 B history raw

1{-# LANGUAGE ScopedTypeVariables #-}

2{- We setup the environment to envoke certain terminals of interest.

3 - This assumes appropriate definitions exist in the current environment for the terminals of

4 - interest.

5 -}

6module VerifyUsingMockInput where

7import Verify

9import Graphics.Vty

11import Control.Monad

13import System.Posix.Env

14import System.IO

16data InputSpec

17 = KeySeq String -- | input sequence encoded as a string. Regardless, the input is read a byte at a time.

18 | Delay Int -- | millisecond delay

20type ExpectedSpec = [Event]

22tests :: IO [Test]

23tests = return []