Skip to content
This repository
Browse code

Added cleric-test unit test system.

  • Loading branch information...
commit b1ccd375af5348c2c1d918dcad20b3e04ce689cd 1 parent 0b76991
Kamil Shakirov authored April 26, 2011
17  cleric.asd
... ...
@@ -1,10 +1,10 @@
1 1
 (defpackage :common-lisp-erlang-interface-system
2 2
   (:nicknames :cleric-system)
3  
-  (:use :cl :asdf))
  3
+  (:use :cl))
4 4
 
5 5
 (in-package :cleric-system)
6 6
 
7  
-(defsystem :cleric
  7
+(asdf:defsystem :cleric
8 8
   :description "Common Lisp Erlang Interface - An implementation of the Erlang distribution protocol."
9 9
   :author "Markus Flambard <mflambard@common-lisp.net>"
10 10
   :version "0.0.8"
@@ -103,3 +103,16 @@
103 103
                                  "control-message"
104 104
                                  "remote-node"))
105 105
              ))))
  106
+
  107
+(asdf:defsystem :cleric-test
  108
+  :description "Unit tests for CLERIC."
  109
+  :depends-on (:cleric :eos)
  110
+  :components
  111
+  ((:module :test
  112
+            :components
  113
+            ((:file "tests")
  114
+             (:file "cleric" :depends-on ("tests"))))))
  115
+
  116
+(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :cleric))))
  117
+  (asdf:load-system :cleric-test)
  118
+  (asdf:test-system :cleric-test))
4  test/cleric.lisp
... ...
@@ -0,0 +1,4 @@
  1
+(in-package #:cleric-test)
  2
+
  3
+#+nil(def-suite cleric :in cleric)
  4
+(in-suite cleric)
22  test/tests.lisp
... ...
@@ -0,0 +1,22 @@
  1
+(in-package #:cl-user)
  2
+
  3
+(defpackage #:cleric-test
  4
+  (:use #:cl #:cleric))
  5
+
  6
+(in-package #:cleric-test)
  7
+
  8
+(eval-when (:compile-toplevel :load-toplevel :execute)
  9
+  (import '(eos:def-suite eos:in-suite eos:run! eos:signals
  10
+            eos:is eos:is-false eos:is-true eos:is-every))
  11
+  (export 'run-all-tests))
  12
+
  13
+(defmacro test (name &body body)
  14
+  `(eos:test ,name ,@body))
  15
+
  16
+(def-suite cleric)
  17
+
  18
+(defun run-all-tests ()
  19
+  (run! 'cleric))
  20
+
  21
+(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :cleric-test))))
  22
+  (run-all-tests))

0 notes on commit b1ccd37

Please sign in to comment.
Something went wrong with that request. Please try again.