Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv28518/test
Modified Files: result-test.lisp Log Message: more tests
Date: Sun Nov 13 03:45:42 2005 Author: eenge
Index: cl-xmpp/test/result-test.lisp diff -u cl-xmpp/test/result-test.lisp:1.1 cl-xmpp/test/result-test.lisp:1.2 --- cl-xmpp/test/result-test.lisp:1.1 Sun Nov 13 03:36:11 2005 +++ cl-xmpp/test/result-test.lisp Sun Nov 13 03:45:41 2005 @@ -1,10 +1,17 @@ -;;;; $Id: result-test.lisp,v 1.1 2005/11/13 02:36:11 eenge Exp $ +;;;; $Id: result-test.lisp,v 1.2 2005/11/13 02:45:41 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/result-test.lisp,v $
;;;; See the LICENSE file for licensing information.
(in-package :xmpp-test)
-(defvar *empty-element* #.(make-instance 'xmpp:xml-element :name :test)) +(defvar *empty-element* (make-instance 'xmpp:xml-element :name :test)) +(defvar *sub-element* (make-instance 'xmpp:xml-element :name :subtest)) +(defvar *element+subelement* + (make-instance 'xmpp:xml-element + :name :test + :elements (list *sub-element*)))
-(deftest get-element.1 (xmpp:get-element *empty-element* :x) nil) \ No newline at end of file +(deftest get-element.1 (xmpp:get-element *empty-element* :x) nil) +(deftest get-element.2 (xmpp:get-element *element+subelement* :x) nil) +(deftest get-element.3 (xmpp:get-element *element+subelement* :subtest) #.*sub-element*)