c7f63cd · vty · git.iko.soy

initial test. missing implementation of assert

commitc7f63cd18a1139e4eefea4ff6ef3972c6d8af57a authorCorey O'Connor <corey@ooyala.com> dateMon 16 Sep 2013, 00:15 (13 years ago) parent5b47d59

2 files changed+13−1

unifiedsplit

src/Graphics/Vty/Input/Data.hs+1

@@ -26,6 +26,7 @@ data KClass = Valid Key [Modifier] | Invalid | Prefix | MisPfx Key [Modifier] [C

2626 deriving(Show)

2727

2828type ClassifyTable = [(String, (Key, [Modifier]))]

29+

2930map_to_legacy_table :: [(String, Event)] -> ClassifyTable

3031map_to_legacy_table = map f

3132 where f (s, EvKey k mods) = (s, (k, mods))

test/VerifyUsingMockInput.hs+12−1

@@ -6,6 +6,7 @@ module VerifyUsingMockInput where

66import Verify

88import Graphics.Vty

9+import Graphics.Vty.Input.Data

910

1011import Control.Concurrent

1112import Control.Monad

@@ -33,6 +34,16 @@ assert_events_from_IO_reads input events = undefined

3334assert_events_from_input_block :: InputSpec -> ExpectedSpec -> Result

3435assert_events_from_input_block input events = undefined

3536

37+verify_ansi_table_input_block_to_event :: Gen Result

38+verify_ansi_table_input_block_to_event = do

39+ Positive block_length <- arbitrary

40+ block_event_pairs <- vectorOf block_length $ elements $ concat ansi_classify_table

41+ let input = [Bytes $ concatMap fst block_event_pairs]

42+ events = map (\(k,ms) -> EvKey k ms) $ map snd block_event_pairs

43+ return $ assert_events_from_input_block input events

44+

3645tests :: IO [Test]

37−tests = return []

46+tests = return

47+ [ verify "basic input block to event translation" verify_ansi_table_input_block_to_event

48+ ]

3849