Add more tests

This commit is contained in:
Chris Done 2017-12-11 09:32:39 +00:00
parent 7a019b880a
commit 3cfd69367d

View File

@ -63,6 +63,15 @@ parensTests =
(ConstantExpression
(Label {labelUUID = UUID "2"})
(Identifier {identifierString = "_"})))))
, Test
"Hit backspace to delete parens"
[KeyPressAction '(', KeyDownAction False BackspaceKey]
(focus
(UUID "3")
(rhsSelectedState
(ConstantExpression
(Label {labelUUID = UUID "3"})
(Identifier {identifierString = "_"}))))
, Test
"Hit open parenthesis when on a node to create balanced parentheses"
(typeChars "f(")