Add .gitreview, fix run-tests exit code

Change-Id: I73e61f883ad549f9582d88df71acffd3e65d47e8
This commit is contained in:
Julien Danjou 2013-06-25 17:03:55 +02:00
parent bf86f3420d
commit 770d6a7100
2 changed files with 14 additions and 1 deletions

4
.gitreview Normal file
View File

@ -0,0 +1,4 @@
[gerrit]
host=review.openstack.org
port=29418
project=stackforge/cl-openstack-client.git

View File

@ -1,4 +1,13 @@
(defun terminate (status)
#+sbcl (sb-ext:quit :unix-status status) ; SBCL
#+ccl ( ccl:quit status) ; Clozure CL
#+clisp ( ext:quit status) ; GNU CLISP
#+cmu ( unix:unix-exit status) ; CMUCL
#+abcl ( ext:quit :status status) ; Armed Bear CL
#+allegro ( excl:exit status :quiet t) ; Allegro CL
(cl-user::quit)) ; Many implementations put QUIT in the sandbox CL-USER package.
(require 'cl-openstack-client-test)
(let ((results (5am:run 5am::*suite*)))
(5am:explain! results)
(exit :code (if (eq (5am:results-status results ) t) 0 1)))
(terminate (if (eq (5am:results-status results ) t) 0 1)))