Commit dadf08a0 authored by david's avatar david

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

Creator: David Lichteblau <>
Date: Sat Jan 10 02:02:58 CET 2004
Standard-date: 2004-01-10 01:02:58 GMT
New-files: .arch-ids/ xmlconf.lisp
Summary: Testfunktion fuer XML Conformance Test Suite

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)
(merge-pathnames uri (merge-pathnames base directory)))
(format t " ok~%"))
(serious-condition (c)
(format t " FAILED:~% ~A~%[~A]~%"
(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