2015-09-02 13:41:39 -05:00
|
|
|
(defpackage :coleslaw-tests
|
|
|
|
|
(:use :cl :prove))
|
|
|
|
|
|
|
|
|
|
(in-package :coleslaw-tests)
|
|
|
|
|
|
2016-09-20 23:38:03 -05:00
|
|
|
(plan 1)
|
2015-09-02 13:41:39 -05:00
|
|
|
|
2016-09-20 23:38:03 -05:00
|
|
|
(diag "COLESLAW-CONF:*BASEDIR* points to Coleslaw's top level directory")
|
|
|
|
|
(is (car (last (pathname-directory coleslaw-conf:*basedir*)))
|
|
|
|
|
"coleslaw" :test #'string=)
|
2015-09-02 13:41:39 -05:00
|
|
|
|
|
|
|
|
(finalize)
|
