23 lines
530 B
Common Lisp
23 lines
530 B
Common Lisp
|
|
(in-package :coleslaw-tests)
|
|
|
|
(plan 2)
|
|
|
|
(let ((*default-pathname-defaults*
|
|
(pathname
|
|
(format nil "~a/"
|
|
(uiop:run-program `("mktemp" "-d")
|
|
:output `(:string :stripped t))))))
|
|
(coleslaw-cli:setup)
|
|
(let ((file (coleslaw-cli:new)))
|
|
(ok (probe-file file)))
|
|
(coleslaw-cli:deploy)
|
|
(print (format nil "~adeploy/index.html" *default-pathname-defaults*))
|
|
(ok (probe-file (format nil "~adeploy/index.html" *default-pathname-defaults*))))
|
|
|
|
(finalize)
|
|
|
|
|
|
|
|
|
|
|