countingLambda

src/test/cases/BasicTestCase.hx

@@ -317,6 +317,10 @@ class BasicTestCase extends Test {
     function testClamp() {
         _testClamp();
     }
+
+    function testCountingLambda() {
+        _testCountingLambda();
+    }
 }
 
 class BasicObject {

src/test/cases/BasicTestCase.kiss

@@ -560,4 +560,14 @@
         (Assert.equals 10 (clamp bigValue 5 10))
         (Assert.equals 10 bigValue)
         (Assert.equals 5 (clamp smallValue 5 10))
-        (Assert.equals 5 smallValue)))
+        (Assert.equals 5 smallValue)))
+
+(function _testCountingLambda []
+    (let [fullSyntax
+                (countingLambda a [] a)
+            arrowSyntax
+                -+>b {b}]
+        (Assert.equals 1 (fullSyntax))
+        (Assert.equals 2 (fullSyntax))
+        (Assert.equals 1 (arrowSyntax))
+        (Assert.equals 2 (arrowSyntax))))