Source

nurikabe / nurikabe-solver / t / files / tap-diag1.lisp

Full commit
1
2
3
4
5
6
7
8
9
(declaim (optimize debug))
(load "cl-tap.lisp")

(defparameter *tester* (make-instance 'tester))

(plan *tester* 1)

(ok *tester* nil "Message")
(diag *tester* "Hi\nThere\n")