Commit 44c88af2 authored by Judah Jacobson's avatar Judah Jacobson
Browse files

Undo test commit

parent 99844c75
......@@ -57,7 +57,6 @@ interactionTests i = "interaction" ~: test
, historyTests i
, inputChar $ setCharInput i
, dumbTests $ setTerm "dumb" i
, groupedKeys i
]
unicodeEncoding :: Invocation -> Test
......@@ -269,16 +268,6 @@ dumbTests i = "dumb term" ~:
where
wideChar = T.concat $ replicate 10 $ "안기영"
groupedKeys :: Invocation -> Test
groupedKeys i = "grouped keys" ~: test
[ "separate" ~: utf8Test i
[ utf8 "xx", utf8 "\ESC[D", utf8 "\ESC[D" ]
[ prompt 0, utf8 "xx", utf8 "\b", utf8 "\b"]
, "together" ~: utf8Test i
[ utf8 "xx", utf8 "\ESC[D\ESC[D"]
[ prompt 0, utf8 "xx", utf8 "\ESC[2D"]
]
-------------
-- Building blocks for expected input/output
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment