alist map/filter/for-each

test.scm

@@ -80,6 +80,10 @@
   (define-test "vacuous"
     (assert-equal #t ((conjoin) '(some donkus)))))
 
+(define-test-suite "map"
+  (define-test "test"
+    (assert-equal )))
+
 (define-test-suite "generator"
   (define-test "test"
     (define number-generator