test/test.lisp @ fa5e614ee7f9 default tip

Comment out scratch code
author Steve Losh <steve@stevelosh.com>
date Thu, 02 Dec 2021 18:48:27 -0500
parents 09e906903662
children (none)
(ql:quickload '(:flax :losh))

(defun check (interactive loom)
  (terpri)
  (losh:pr 'checking loom)
  (mapcar (lambda (output)
            (funcall loom nil "out" output 500 500)
            (losh:pr output 'OK))
          '(:png :plot :svg))
  (when interactive
    (break "Finished run of loom ~A" loom)))

(defun check-all (&key interactive)
  (check interactive #'flax.looms.001-triangles:loom)
  (check interactive #'flax.looms.002-wobbly-lines:loom)
  (check interactive #'flax.looms.003-basic-l-systems:loom)
  (check interactive #'flax.looms.004-turtle-curves:loom)
  (check interactive #'flax.looms.005-simple-triangulations:loom)
  (check interactive #'flax.looms.006-tracing-lines:loom)
  (check interactive #'flax.looms.007-stipple:loom)
  (losh:pr 'ok))

(check-all)