[cl-xmpp-cvs] CVS update: cl-xmpp/test/result-test.lisp

[Erik Enge]

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