picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add a test for issue #152

Browse source
This commit is contained in:
John Wiegley 2018-04-10 11:22:54 -07:00
parent 6d275b6093
commit 84f809a568
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/ParserTests.hs
View file

@ -278,6 +278,13 @@ case_select = do
(Just mkNull)
assertParseText "{}.\"\"or null" $ Fix $ NSelect (Fix (NSet []))
[ DynamicKey (Plain "") ] (Just mkNull)
assertParseText "{ a = [1]; }.a or [2] ++ [3]" $ Fix $ NBinary NConcat
(Fix (NSelect
(Fix (NSet [NamedVar [StaticKey "a" Nothing]
(Fix (NList [Fix (NConstant (NInt 1))]))]))
[StaticKey "a" Nothing]
(Just (Fix (NList [Fix (NConstant (NInt 2))])))))
(Fix (NList [Fix (NConstant (NInt 3))]))
case_select_path :: Assertion
case_select_path = do