Port some of the '99 Prolog Problems' to Bones as unit tests
Also fixes a bug that they uncovered.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sun, 17 Jul 2016 00:50:25 +0000 |
| parents |
8a247663fec5 |
| children |
8897604cb9dd |
#+ecl (setf compiler:*user-cc-flags* "-Wno-shift-negative-value")
(declaim (optimize (debug 3) (safety 3) (speed 0)))
(let ((*standard-output* (make-broadcast-stream))
; (*error-output* (make-broadcast-stream))
)
(asdf:load-system 'bones :force t)
(ql:quickload "bones-test"))
(defun done (exit-code)
#+sbcl (sb-ext:exit :code exit-code)
#+ccl (quit exit-code)
#+ecl (quit exit-code))
(time (progn (1am:run) (terpri)))
(terpri)
(done 0)