diff options
Diffstat (limited to 'Tools/LuaMacro/tests/test-lambda.lua')
-rw-r--r-- | Tools/LuaMacro/tests/test-lambda.lua | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Tools/LuaMacro/tests/test-lambda.lua b/Tools/LuaMacro/tests/test-lambda.lua new file mode 100644 index 0000000..649b77d --- /dev/null +++ b/Tools/LuaMacro/tests/test-lambda.lua @@ -0,0 +1,18 @@ +require_ 'macro.lambda'
+ok = pcall(require,'pl')
+if not ok then return print 'test-lambda needs penlight' end
+ls = List{10,20,30}
+assert(ls:map(\x(x+1)) == List{11,21,31})
+assert((\(42))() == 42 )
+
+F = \x,y(x - y)
+
+G = \x(F(x,10))
+
+assert(G(11) == 1)
+
+ls = List { (\(10,20,30))() }
+assert(ls == List{10,20,30})
+
+
+
|