Add more tests

test/append_test.sh

@@ -0,0 +1,15 @@
+#! /bin/bash
+
+testAppendToEmptyList() {
+  assertEquals 4 "$(list | append 4)"
+}
+
+testAppendToOneElementList() {
+  assertEquals "1 4" "$(list 1 | append 4 | unlist)"
+}
+
+testAppendToList() {
+  assertEquals "1 2 3 4 5 4" "$(list 1 2 3 4 5 | append 4 | unlist)"
+}
+
+. ./shunit2-init.sh

test/lambda_test.sh

@@ -0,0 +1,30 @@
+#! /bin/bash
+
+testLambdaOneArgument() {
+  identity() {
+    lambda x . '$x'
+  }
+  assertEquals "hi there !" "$(identity <<< 'echo hi there !')"
+  assertEquals 3 $(lambda x . 'echo $(($x + 1))' <<< '2')
+  assertEquals "hi there !" "$(λ x . 'echo $x' <<< 'hi there !')"
+}
+
+testLambdaSymbolTwoArguments() {
+    assertEquals 3 $(echo -e '1\n2' | lambda x y . 'echo $(($x + $y))')
+    assertEquals 5 $(echo -e '7\n2' | λ x y . 'echo $(($x - $y))')
+}
+
+testLambdaSymbolManyArguments() {
+    assertEquals 5 $(echo -e '1\n2\n3\n4\n5' | lambda a b c d e . 'echo $(($a + $b + $c + $d - $e))')
+}
+
+testLambdaSymbolManyArguments_ifInsufficientNumberOfArgumentsInLambda() {
+    assertEquals 6 $(echo -e '1\n2\n3\n4\n5' | lambda a b c . 'echo $(($a + $b + $c))')
+}
+
+testLambdaSymbolManyArguments_ifInsufficientNumberOfInputArguments() {
+    echo -e '1\n2' | lambda a b c d e . 'echo $(($a + $b + $c + $d + $e))' 2> /dev/null \
+        && fail "There should be syntax error"
+}
+
+. ./shunit2-init.sh

test/prepend_test.sh

@@ -0,0 +1,15 @@
+#! /bin/bash
+
+testPrependToEmptyList() {
+  assertEquals 4 "$(list | prepend 4)"
+}
+
+testPrependToOneElementList() {
+  assertEquals "4 1" "$(list 1 | prepend 4 | unlist)"
+}
+
+testPrependToList() {
+  assertEquals "4 1 2 3 4 5" "$(list 1 2 3 4 5 | prepend 4 | unlist)"
+}
+
+. ./shunit2-init.sh