;;;; -*- mode: lisp -*- ;;;; ;;;; $Id: test-sxml-dom.lisp,v 1.1.1.1 2004/06/07 18:49:59 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for sxml-dom.lisp ;;;; ;;;; Copyright (C) 2002, 2004 Sven Van Caekenberghe, Beta Nine BVBA. ;;;; ;;;; You are granted the rights to distribute and use this software ;;;; as governed by the terms of the Lisp Lesser General Public License ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. (in-package :s-xml) (assert (equal (with-input-from-string (stream " ") (parse-xml stream :output-type :sxml)) '(:|foo|))) (assert (equal (parse-xml-string "this is some text" :output-type :sxml) '(:|tag1| (:|tag2| (:@ (:|att1| "one"))) "this is some text"))) (assert (equal (parse-xml-string "<foo>" :output-type :sxml) '(:TAG ""))) (assert (equal (parse-xml-string "

This is some bold text, with a leading & trailing space

" :output-type :sxml) '(:p (:index (:@ (:item "one"))) " This is some " (:b "bold") " text, with a leading & trailing space "))) (assert (consp (parse-xml-file (merge-pathnames "test/xhtml-page.xml" (asdf:component-pathname (asdf:find-system :s-xml.test))) :output-type :sxml))) (assert (consp (parse-xml-file (merge-pathnames "test/ant-build-file.xml" (asdf:component-pathname (asdf:find-system :s-xml.test))) :output-type :sxml))) (assert (consp (parse-xml-file (merge-pathnames "test/plist.xml" (asdf:component-pathname (asdf:find-system :s-xml.test))) :output-type :sxml))) (assert (string-equal (print-xml-string '(:|foo|) :input-type :sxml) "")) (assert (string-equal (print-xml-string '(:|foo| (:@ (:|bar| "1"))) :input-type :sxml) "")) (assert (string-equal (print-xml-string '(:foo "some text") :input-type :sxml) "some text")) (assert (string-equal (print-xml-string '(:|foo| (:|bar|)) :input-type :sxml) "")) ;;;; eof