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*)