511cbc7555d5ee41b0cb61b03eb454e95689c770
[clnl] / bin / travis.lisp
1 (setf *compile-print* nil)
2 (require 'asdf)
3 (setf asdf:*central-registry* (list #p"deps/"))
4 (asdf:load-system :clnl.internal)
5 (asdf:load-system :clnl-test.internal)
6
7 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
8 (when (not (clnl-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
20             :clnl :clnl-parser :clnl-random :clnl-transpiler :clnl-nvm :clnl-lexer :clnl-interface :clnl-cli))
21  (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
22  (sb-ext:exit :code 1))
23 (format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
24
25 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
26 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
27 (sb-ext:exit :code 0)