Commit dadf08a0 authored by david's avatar david

Revision: cxml--devel--1.0--patch-13

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Sat Jan 10 02:02:58 CET 2004
Standard-date: 2004-01-10 01:02:58 GMT
New-files: .arch-ids/xmlconf.lisp.id xmlconf.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-13
Summary: Testfunktion fuer XML Conformance Test Suite
Keywords: 

Testfunktion fuer XML Conformance Test Suite
(funktioniert noch nicht ganz)
parent 5f9519a2
(defpackage xmlconf
(:use :cl)
(:alias (:string-dom :dom)))
(in-package :xmlconf)
(defun test-xml-conformance (directory)
(let ((xmlconf (xml:parse-file (merge-pathnames "xmlconf.xml" directory))))
(dolist (test (dom:get-elements-by-tag-name xmlconf "test"))
(when (equal (dom:get-attribute test "TYPE") "valid")
(let* ((base (dom:get-attribute (dom:parent-node test) "xml:base"))
(uri (dom:get-attribute test "URI")))
(unless base
(inspect test))
(princ uri)
(handler-case
(progn
(xml:parse-file
(merge-pathnames uri (merge-pathnames base directory)))
(format t " ok~%"))
(serious-condition (c)
(format t " FAILED:~% ~A~%[~A]~%"
c
(dom:data (car (dom:child-nodes test)))))))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment