X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=bin%2Ftravis.lisp;h=0430056967141f4024eb10cd07a85f9902627edb;hp=42ff8332a6115e4637d0ff5c8f839b43a1688572;hb=471de83db1aee70065808cbc061867e3320bf4b7;hpb=9621a2a05ca412a91fae1df8e43715f7579cd34c

diff --git a/bin/travis.lisp b/bin/travis.lisp
index 42ff833..0430056 100644
--- a/bin/travis.lisp
+++ b/bin/travis.lisp
@@ -3,4 +3,16 @@
 (setf asdf:*central-registry* (list #p"deps/"))
 (asdf:load-system :clnl.internal)
 (asdf:load-system :clnl-test.internal)
-(sb-ext:quit :unix-status (if (clnl-test:run-all-tests) 0 1))
+
+(format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
+(when (not (clnl-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;32mSuccess!~c[0m~%" #\Esc #\Esc)
+(sb-ext:exit :code 0)