2019-10-26 19:13:50 -04:00
|
|
|
|
|
|
|
|
(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)))
|
2019-10-27 14:31:17 -04:00
|
|
|
(coleslaw-cli:deploy)
|
2019-10-26 19:13:50 -04:00
|
|
|
(print (format nil "~adeploy/index.html" *default-pathname-defaults*))
|
|
|
|
|
(ok (probe-file (format nil "~adeploy/index.html" *default-pathname-defaults*))))
|
|
|
|
|
|
|
|
|
|
(finalize)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
