Permalink
Browse files

Added cleric-test unit test system.

  • Loading branch information...
Kamil Shakirov
Kamil Shakirov committed Apr 26, 2011
1 parent 0b76991 commit b1ccd375af5348c2c1d918dcad20b3e04ce689cd
Showing with 41 additions and 2 deletions.
  1. +15 −2 cleric.asd
  2. +4 −0 test/cleric.lisp
  3. +22 −0 test/tests.lisp
View
@@ -1,10 +1,10 @@
(defpackage :common-lisp-erlang-interface-system
(:nicknames :cleric-system)
- (:use :cl :asdf))
+ (:use :cl))
(in-package :cleric-system)
-(defsystem :cleric
+(asdf:defsystem :cleric
:description "Common Lisp Erlang Interface - An implementation of the Erlang distribution protocol."
:author "Markus Flambard <mflambard@common-lisp.net>"
:version "0.0.8"
@@ -103,3 +103,16 @@
"control-message"
"remote-node"))
))))
+
+(asdf:defsystem :cleric-test
+ :description "Unit tests for CLERIC."
+ :depends-on (:cleric :eos)
+ :components
+ ((:module :test
+ :components
+ ((:file "tests")
+ (:file "cleric" :depends-on ("tests"))))))
+
+(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :cleric))))
+ (asdf:load-system :cleric-test)
+ (asdf:test-system :cleric-test))
View
@@ -0,0 +1,4 @@
+(in-package #:cleric-test)
+
+#+nil(def-suite cleric :in cleric)
+(in-suite cleric)
View
@@ -0,0 +1,22 @@
+(in-package #:cl-user)
+
+(defpackage #:cleric-test
+ (:use #:cl #:cleric))
+
+(in-package #:cleric-test)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (import '(eos:def-suite eos:in-suite eos:run! eos:signals
+ eos:is eos:is-false eos:is-true eos:is-every))
+ (export 'run-all-tests))
+
+(defmacro test (name &body body)
+ `(eos:test ,name ,@body))
+
+(def-suite cleric)
+
+(defun run-all-tests ()
+ (run! 'cleric))
+
+(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :cleric-test))))
+ (run-all-tests))

0 comments on commit b1ccd37

Please sign in to comment.