Support for list literals in Lambdas

2025-02-02 12:08:01 -06:00
parent f9864b8361
commit f4e50353ed
3 changed files with 8 additions and 1 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -341,6 +341,10 @@ lambdas = testGroup "Lambda Evaluation Tests"
   , testCase "Lambda with a list literal" $ do
        let input = "f = (\\x : x)\nf [t (t t)]"
        runTricu input @?= "Fork Leaf (Fork (Stem Leaf) Leaf)"
+
+  , testCase "Lambda with list literal" $ do
+      let input = "(\\a : [(a)]) 1"
+      runTricu input @?= "Fork (Fork (Stem Leaf) Leaf) Leaf"
  ]

 providedLibraries :: TestTree