test/VerifyConfig.hs · vty

on master help sign in

vty/test/VerifyConfig.hs

44 lines 1.3 kB history raw

1{-# LANGUAGE QuasiQuotes #-}

2module Main where

4import Graphics.Vty.Config

5import Graphics.Vty.Input.Events

7import Data.String.QQ

8import qualified Data.ByteString.Char8 as B

10import Test.Framework

11import Test.Framework.Providers.HUnit

12import Test.HUnit hiding (Test)

14exampleConfig :: B.ByteString

15exampleConfig = B.pack [s|

16-- comments should be ignored.

17map _ "\ESC[B" KUp []

18askfjla dfasjdflk jasdlkfj asdfj -- lines failing parse should be ignored

19map _ "\ESC[1;3B" KDown [MAlt]

20map "xterm" "\ESC[1;3B" KDown [MAlt]

21map "xterm-256-color" "\ESC[1;3B" KDown [MAlt]

22debugLog "/tmp/vty-debug.txt"

25exampleConfigConfig :: Config

26exampleConfigConfig = defaultConfig

27 { debugLog = Just "/tmp/vty-debug.txt"

28 , inputMap = [ (Nothing, "\ESC[B", EvKey KUp [])

29 , (Nothing, "\ESC[1;3B", EvKey KDown [MAlt])

30 , (Just "xterm", "\ESC[1;3B", EvKey KDown [MAlt])

31 , (Just "xterm-256-color", "\ESC[1;3B", EvKey KDown [MAlt])

32 ]

33 }

35exampleConfigParses :: IO ()

36exampleConfigParses =

37 assertEqual "example config parses as expected"

38 exampleConfigConfig

39 (runParseConfig "exampleConfig" exampleConfig)

41main :: IO ()

42main = defaultMain

43 [ testCase "example config parses" $ exampleConfigParses

44 ]