X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=bin%2Ftravis.lisp;fp=bin%2Ftravis.lisp;h=0000000000000000000000000000000000000000;hp=d562ba3f46d1506c1b6ead044119834b4240ad19;hb=5a49e356591a22a60b66a8064bf8ff7371a55075;hpb=7e7aae4d5b9f8e53bf88c10996c29ff57f358c3b diff --git a/bin/travis.lisp b/bin/travis.lisp deleted file mode 100644 index d562ba3..0000000 --- a/bin/travis.lisp +++ /dev/null @@ -1,26 +0,0 @@ -(setf *compile-print* nil) -(require 'asdf) -(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION)) -(asdf:load-system :style-checker) -(asdf:load-system :style-checker-test) -#-travis (asdf:load-system :docgen) - -(format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc) -(when (not (style-checker-test:run-all-tests)) - (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc) - (sb-ext:exit :code 1)) - -(format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc) -(when (not (syntax-checker:pretty-print-check-directory "src")) - (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc) - (sb-ext:exit :code 1)) -(format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc) - -(format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc) -(when (not (docgen:pretty-print-validate-packages :docgen)) - (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc) - (sb-ext:exit :code 1)) -(format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc) - -(format t "~c[1;32mSuccess!~c[0m~%" #\Esc #\Esc) -(sb-ext:exit :code 0)