WIP

Author: aqk

resources/tests/module/std/reduce.clinc

@@ -0,0 +1,8 @@
+(defun reduce (fun i lst)
+    (if lst
+        (reduce fun (a fun (list i (f lst))) (r lst))
+        i
+    )
+)
+
+    

resources/tests/module/test-reduce.clsp

@@ -0,0 +1,8 @@
+
+(include *standard-cl-23*)
+(import std.reduce exposing reduce)
+(reduce (lambda (a b) (+ a b)) 0 (list 1 2 3))
+
+
+
+

src/tests/compiler/modules.rs

@@ -619,3 +619,21 @@ fn test_constant_multiple_rounds() {
         ]
     );
 }
+
+#[test]
+fn test_lib_reduce() {
+    let filename = "resources/tests/module/test-reduce.clsp";
+    let content = fs::read_to_string(filename).expect("file should exist");
+    let f_hex_file = "resources/tests/module/test-reduce.clsp.hex";
+    test_compile_and_run_program_with_modules(
+        filename,
+        &content,
+        &[
+            HexArgumentOutcome {
+                hexfile: f_hex_file,
+                argument: "()",
+                outcome: ContentEquals
+            }
+        ]
+    );
+}