Permalink
Browse files

setting up Travis

  • Loading branch information...
1 parent 08b5535 commit 700359e930e66c8e833e15c83deea6c893f35d1c @nikodemus committed Jun 19, 2015
Showing with 72 additions and 13 deletions.
  1. +21 −0 .travis.yml
  2. +39 −0 screamer-tests.asd
  3. +0 −10 screamer.asd
  4. +12 −3 tests.lisp
View
@@ -0,0 +1,21 @@
+language: lisp
+sudo: required
+
+env:
+ matrix:
+ - LISP=sbcl
+ - LISP=ccl
+ - LISP=clisp
+
+install:
+ - curl -L https://github.com/luismbo/cl-travis/raw/master/install.sh | sh
+
+script:
+ - cl -e '(ql:quickload :screamer-tests)
+ (unless (screamer-tests:test-screamer t)
+ (uiop:quit 1))'
+
+notifications:
+ email:
+ recipients:
+ - nikodemus@random-state.net
View
@@ -0,0 +1,39 @@
+;;;; Screamer
+;;;; A portable efficient implementation of nondeterministic Common Lisp
+;;;;
+;;;; Written by:
+;;;;
+;;;; Jeffrey Mark Siskind (Department of Computer Science, University of Toronto)
+;;;; David Allen McAllester (MIT Artificial Intelligence Laboratory)
+;;;;
+;;;; Copyright 1991 Massachusetts Institute of Technology. All rights reserved.
+;;;; Copyright 1992, 1993 University of Pennsylvania. All rights reserved.
+;;;; Copyright 1993 University of Toronto. All rights reserved.
+;;;;
+;;;; Permission is hereby granted, free of charge, to any person obtaining a copy of
+;;;; this software and associated documentation files (the "Software"), to deal in
+;;;; the Software without restriction, including without limitation the rights to
+;;;; use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+;;;; the Software, and to permit persons to whom the Software is furnished to do so,
+;;;; subject to the following conditions:
+;;;;
+;;;; The above copyright and authorship notice and this permission notice shall be
+;;;; included in all copies or substantial portions of the Software.
+;;;;
+;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+;;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+;;;; FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+;;;; COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+;;;; IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+;;;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(defsystem :screamer-tests
+ :serial t
+ :licence "MIT"
+ :description "Tests for Screamer"
+ :author "Jeffrey Mark Siskind & David Allen McAllester"
+ :maintainer "Nikodemus Siivola <nikodemus@random-state.net>"
+ :version "4.0.0"
+ :depends-on (:screamer :iterate :hu.dwim.stefil)
+ :components ((:file "primordial")
+ (:file "tests")))
View
@@ -38,16 +38,6 @@
((:file "package")
(:file "screamer")))
-(defsystem :screamer-tests
- :serial t
- :licence "MIT"
- :description "Tests for Screamer"
- :author "Jeffrey Mark Siskind & David Allen McAllester"
- :maintainer "Nikodemus Siivola <nikodemus@random-state.net>"
- :depends-on (:screamer :iterate :hu.dwim.stefil)
- :components ((:file "primordial")
- (:file "tests")))
-
(defmethod perform ((o test-op) (c (eql (find-system :screamer))))
(load-system :screamer-tests)
(funcall (intern (string '#:test-screamer) :screamer-tests)))
View
15 tests.lisp 100644 → 100755
@@ -20,14 +20,23 @@
(in-package :screamer-user)
(define-screamer-package :screamer-tests
- (:use :cl :hu.dwim.stefil))
+ (:use :cl :hu.dwim.stefil)
+ (:export #:test-screamer #:screamer-tests))
(in-package :screamer-tests)
-(defsuite (test-screamer :in root-suite) ()
+(defun test-screamer (&optional no-debug)
+ (flet ((test ()
+ (eql 0 (getf (extract-test-run-statistics (screamer-tests))
+ :number-of-failures))))
+ (if no-debug
+ (without-debugging (test))
+ (test))))
+
+(defsuite (screamer-tests :in root-suite) ()
(run-child-tests))
-(in-suite test-screamer)
+(in-suite screamer-tests)
(defun eval-when/ct ()
(let ((x (either :a :b)))

0 comments on commit 700359e

Please sign in to comment.