tests/cli.lisp (530 bytes)
1 2 (in-package :coleslaw-tests) 3 4 (plan 2) 5 6 (let ((*default-pathname-defaults* 7 (pathname 8 (format nil "~a/" 9 (uiop:run-program `("mktemp" "-d") 10 :output `(:string :stripped t)))))) 11 (coleslaw-cli:setup) 12 (let ((file (coleslaw-cli:new))) 13 (ok (probe-file file))) 14 (coleslaw-cli:deploy) 15 (print (format nil "~adeploy/index.html" *default-pathname-defaults*)) 16 (ok (probe-file (format nil "~adeploy/index.html" *default-pathname-defaults*)))) 17 18 (finalize) 19 20 21 22 23