chrisdone/duet
1
1
Fork 0
mirror of https://github.com/chrisdone/duet.git synced 2025-01-08 23:18:45 +03:00
Code Issues Projects Releases Wiki Activity

Test for lambda variable args

Browse Source
This commit is contained in:
Chris Done 2017-12-11 10:35:56 +00:00
parent 5b101abaf0
commit 0f0c2c15c1
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
web/Duet/IDE/Spec.hs
View File

@ -307,6 +307,26 @@ lambdaTests =
(Label {labelUUID = UUID "4"}) (Label {labelUUID = UUID "4"})
(Identifier {identifierString = "_"}) (Identifier {identifierString = "_"})
})))) }))))
, Test
"Lambda variable argument"
[KeyPressAction '\\', KeyPressAction 'a']
(focus
(UUID "3")
(rhsSelectedState
(LambdaExpression
(Label {labelUUID = UUID "1"})
(Alternative
{ alternativeLabel = Label {labelUUID = UUID "2"}
, alternativePatterns =
[ VariablePattern
(Label {labelUUID = UUID "3"})
(Identifier {identifierString = "a"})
]
, alternativeExpression =
ConstantExpression
(Label {labelUUID = UUID "4"})
(Identifier {identifierString = "_"})
}))))
, Test , Test
"Lambda delete via arg" "Lambda delete via arg"
[KeyPressAction '\\', KeyDownAction False BackspaceKey] [KeyPressAction '\\', KeyDownAction False BackspaceKey]