Add ask and command blocks, v1

[clnl] / src / test / main.lisp

diff --git a/src/test/main.lisp b/src/test/main.lisp
index 38ec2ed5a3994cd9d5d35c4d18ba122b86911798..dbcbd58529cb8b0c45ee6c09eef384c22c0d1982 100644 (file)
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -20,7 +20,7 @@
 
 (defun run-all-tests ()
  (format t "~%Here we goooooooo~%")
- (run-tests *tests*))
+ (run-tests (reverse *tests*)))
   
 (defun run-tests-matching (match)
  (run-tests (remove-if-not (lambda (test-name) (cl-ppcre:scan (format nil "^~A$" match) test-name)) *tests* :key #'car)))