Merge pull request #88 from kingcons/tests

Tests

.gitignore

@@ -5,3 +5,4 @@ ignore/
 generated/
 .curr
 .prev
+build/

.travis.yml

@@ -0,0 +1,22 @@
+language: common-lisp
+sudo: false
+
+env:
+  global:
+    - PATH=~/.roswell/bin:$PATH
+    - ROSWELL_INSTALL_DIR=$HOME/.roswell
+  matrix:
+    - LISP=sbcl-bin
+    - LISP=ccl-bin
+
+install:
+  - curl -L https://raw.githubusercontent.com/snmsts/roswell/release/scripts/install-for-ci.sh | sh
+
+cache:
+  directories:
+    - $HOME/.roswell
+    - $HOME/.config/common-lisp
+
+script:
+  - ros -s prove -e "(ql:quickload '(coleslaw coleslaw-test))"
+                 -e '(or (prove:run :coleslaw-test) (uiop:quit -1))'

README.md

@@ -1,5 +1,8 @@
 # coleslaw
 
+[![Build Status](https://travis-ci.org/kingcons/coleslaw.svg?branch=master)](https://travis-ci.org/kingcons/coleslaw)
+[![Quicklisp](http://quickdocs.org/badge/coleslaw.svg)](http://quickdocs.org/coleslaw/)
+
 <img src="https://raw.github.com/redline6561/coleslaw/master/themes/hyde/css/logo_medium.jpg" alt="coleslaw logo" align="right"/>
 
 > [Czeslaw Milosz](http://blog.redlinernotes.com/tag/milosz.html) was the writer-in-residence at UNC c. 1992.

coleslaw.asd

@@ -26,23 +26,19 @@
                (:file "indexes")
                (:file "feeds")
                (:file "coleslaw"))
-  :in-order-to ((test-op (load-op coleslaw-tests)))
+  :in-order-to ((test-op (test-op coleslaw-test))))
-  :perform (test-op :after (op c)
-                    (funcall (intern "RUN!" :coleslaw-tests)
-                             (intern "COLESLAW-TESTS" :coleslaw-tests))))
 
-(defsystem #:coleslaw-tests
+(defsystem #:coleslaw-test
   :description "A test suite for coleslaw."
   :license "BSD"
   :author "Brit Butler <redline6561@gmail.com>"
-  :depends-on (coleslaw stefil)
+  :depends-on (:coleslaw :prove)
-  :pathname "tests/"
+  :defsystem-depends-on (:prove-asdf)
-  :serial t
+  :components ((:module "tests"
-  :components ())
+                :components
-
+                        ((:test-file "tests"))))
-(defmethod operation-done-p ((op test-op)
+  :perform (test-op :after (op c)
-                             (c (eql (find-system :coleslaw))))
+                    (uiop:symbol-call :prove 'run c)))
-  (values nil))
 
 (defpackage #:coleslaw-conf (:export #:*basedir*))
 (defparameter coleslaw-conf:*basedir*

tests/tests.lisp

@@ -0,0 +1,11 @@
+(defpackage :coleslaw-tests
+  (:use :cl :prove))
+
+(in-package :coleslaw-tests)
+
+(plan nil)
+
+(deftest 1-is-a-number
+  (is-type 1 'fixnum))
+
+(finalize)