X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=bin%2Ftravis.lisp;fp=bin%2Ftravis.lisp;h=489212025ef3010eee1f89fcde8245226ed1be0b;hp=0000000000000000000000000000000000000000;hb=88cc07a6e633f2e8921f47f935bf2428154369d6;hpb=fb2b62902f65524fab0e86a3555b0071a0983e02

diff --git a/bin/travis.lisp b/bin/travis.lisp
new file mode 100644
index 0000000..4892120
--- /dev/null
+++ b/bin/travis.lisp
@@ -0,0 +1,18 @@
+(setf *compile-print* nil)
+(require 'asdf)
+(setf asdf:*central-registry* (list #p"deps/"))
+(asdf:load-system :style-checker.internal)
+(asdf:load-system :style-checker-test.internal)
+
+(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;32mSuccess!~c[0m~%" #\Esc #\Esc)
+(sb-ext:exit :code 0)