code.consxy.com Git - sheep/blob - bin/travis.lisp

   1 (setf *compile-print* nil)
   2 (require 'asdf)
   3 (setf asdf:*central-registry* (list #p"deps/"))
   4 (asdf:load-system :docgen.internal)
   5 (asdf:load-system :docgen-test.internal)
   6
   7 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
   8 (when (not (docgen-test:run-all-tests))
   9  (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc)
  10  (sb-ext:exit :code 1))
  11
  12 (format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc)
  13 (when (not (syntax-checker:pretty-print-check-directory "src"))
  14  (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
  15  (sb-ext:exit :code 1))
  16 (format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
  17
  18 (format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
  19 (when (not (docgen:pretty-print-validate-packages :docgen))
  20  (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
  21  (sb-ext:exit :code 1))
  22 (format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
  23
  24 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
  25 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
  26 (sb-ext:exit :code 0)