fuzz test in CI

Author: garlic0x1

.gitignore

@@ -1,2 +1,13 @@
+# IDE
+.DS_Store
+.idea
+*.log
+tmp/
 *~
-*.fasl
+*#*
+
+# SBCL
+*.fasl
+
+# Clozure
+*.lx64fsl

README.org

@@ -3,7 +3,7 @@
 
 Thespis is a threaded actor library for Common Lisp.
 
-* TODO Installation
+* Installation
 
 With [[https://ultralisp.org][Ultralisp]] installed:
 

test.lisp test/basic.lisp

@@ -1,12 +1,7 @@
-(fiasco:define-test-package #:thespis/test
+(fiasco:define-test-package #:thespis/test/basic
   (:use #:thespis)
   (:export #:bruteforce))
-(in-package #:thespis/test)
-
-(defun bruteforce (&optional (times 1024))
-  "Detect rare race conditions by brute force."
-  (dotimes (i times)
-    (assert (eql t (fiasco:run-tests :thespis/test)))))
+(in-package #:thespis/test/basic)
 
 (deftest test-counter ()
   (define-actor counter ((c 0)) (increment)

test/fuzz.lisp

@@ -0,0 +1,8 @@
+(fiasco:define-test-package #:thespis/test/fuzz)
+(in-package #:thespis/test/fuzz)
+
+(deftest fuzz-basic-tests (&optional (times 1024))
+  "Detect rare race conditions by brute force."
+  (dotimes (i times)
+    (let ((*standard-output* (make-broadcast-stream)))
+      (is (fiasco:run-tests :thespis/test/basic)))))

thespis.asd

@@ -9,10 +9,14 @@
 
 (asdf:defsystem #:thespis/test
   :depends-on (#:thespis #:fiasco)
-  :components ((:file "test"))
+  :components ((:module "test"
+                :components ((:file "basic")
+                             (:file "fuzz"))))
   :perform (asdf:test-op
             (o c)
             (multiple-value-bind (stat result)
-                (uiop:symbol-call :fiasco :run-tests '(:thespis/test))
+                (uiop:symbol-call :fiasco :run-tests
+                                  '(:thespis/test/basic
+                                    :thespis/test/fuzz))
               (print result)
               (assert (eql t stat)))))