[cl-xmpp-cvs] CVS cl-xmpp/test

[eenge]

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test
In directory clnet:/tmp/cvs-serv13890/test

Modified Files:
	cl-xmpp-test.asd 
Log Message:
commiting fixes from Robert Brown, thanks!


--- /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd	2005/12/14 19:04:07	1.4
+++ /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd	2006/05/12 17:45:50	1.5
@@ -1,5 +1,5 @@
 -;;;; -*- mode: lisp -*-
-;;;; $Id: cl-xmpp-test.asd,v 1.4 2005/12/14 19:04:07 eenge Exp $
+;;;; $Id: cl-xmpp-test.asd,v 1.5 2006/05/12 17:45:50 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -16,7 +16,7 @@
     :author "Erik Enge"
     :licence "MIT"
     :description "Common Lisp XMPP client implementation"
-    :depends-on (:cl-xmpp :rt)
+    :depends-on (:cl-xmpp #-sbcl :rt #+sbcl :sb-rt)
     :components ((:file "package")
                  (:file "utility-test"
                   :depends-on ("package"))
@@ -25,5 +25,6 @@
                  (:file "cl-xmpp-test"
                   :depends-on ("package"))))
 
-(defmethod perform ((operation test-op) (component (eql (find-system 'cl-xmpp-test))))
-  (cl-xmpp-test:do-tests))
+(defmethod perform ((operation test-op)
+		    (component (eql (find-system 'cl-xmpp-test))))
+  (funcall (intern "DO-TESTS" 'cl-xmpp-test)))