initial

Author: hellerve

README.md

@@ -0,0 +1,47 @@
+# suite
+
+is a simple test suite abstraction.
+
+## Usage
+
+```clojure
+(load "[email protected]:carpentry-org/[email protected]")
+
+(use Test)
+
+(Suite.defsuite addition
+  (assert-equal test
+                2
+                (+ 1 1)
+                "integer addition works")
+)
+
+(Suite.defsuite subtraction
+  (assert-equal test
+                1
+                (- 2 1)
+                "integer subtraction works")
+)
+
+; will compile and run all the suites
+(Suite.run-all)
+```
+
+will produce:
+
+```
+Running suite subtraction
+Test 'integer subtraction works' passed
+Results:
+  |==|
+  Passed: 1    Failed: 0
+Running suite addition
+Test 'integer addition works' passed
+Results:
+  |==|
+  Passed: 1    Failed: 0
+```
+
+<hr/>
+
+Cheers!

main.carp

@@ -0,0 +1,27 @@
+(load "Test.carp")
+
+(defmodule Suite
+  (defdynamic *suites* [])
+
+  (defmacro defsuite [name :rest forms]
+    (let-do [sym (gensym)]
+      (eval
+        `(defn %sym []
+          (let-do [test &(Test.State.init 0 0)]
+            (IO.println %(str "Running suite " name))
+            %(cons-last
+              `@(Test.State.failed test)
+              (cons-last
+                `(Test.print-test-results test)
+                `(do %@(with-test-internal 'test forms)))))))
+      (set! Suite.*suites* (cons sym Suite.*suites*))))
+
+  (defmacro run-all []
+    (do
+      (eval
+        `(defn main []
+            (do %@(map (fn [suite] `(ignore (%suite))) Suite.*suites*))))
+      (build)
+      (run)
+      (quit)))
+)

tests.carp

@@ -0,0 +1,27 @@
+(load "main.carp")
+
+(use Test)
+
+(Suite.defsuite addition
+  (assert-equal test
+                2
+                (+ 1 1)
+                "integer addition works")
+  (assert-equal test
+                2.0
+                (+ 1.0 1.0)
+                "double addition works")
+)
+
+(Suite.defsuite subtraction
+  (assert-equal test
+                1
+                (- 2 1)
+                "integer subtraction works")
+  (assert-equal test
+                1.0
+                (- 2.0 1.0)
+                "double subtraction works")
+)
+
+(Suite.run-all)