hg.stevelosh.com > euler

run-tests.lisp @ 3512c67e0138 

Problem 7, and add a test suite
author Steve Losh <steve@stevelosh.com>
date Sun, 10 Apr 2016 14:30:17 +0000
parents (none)
children (none) 
(let ((*standard-output* (make-broadcast-stream)))
  (ql:quickload "euler"))


(defvar *passed* t)

(defun test (spec)
  (let ((result (5am:run spec)))
    (5am:explain! result)
    (when (not (5am:results-status result))
      (setf *passed* nil))))

(test :euler)

(sb-ext:exit :code (if *passed* 0 1))