namespace-tests an

This commit is contained in:
dlichteblau
2005-11-27 21:02:53 +00:00
parent 44ff96c68e
commit e45c6465da
2 changed files with 83 additions and 2 deletions

View File

@ -18,7 +18,8 @@
((not (and (let ((version (get-attribute test "RECOMMENDATION")))
(cond
((or (equal version "") ;XXX
(equal version "XML1.0"))
(equal version "XML1.0")
(equal version "NS1.0"))
(cond
((equal (get-attribute test "NAMESPACE") "no")
(format t "~A: test applies to parsers without namespace support, skipping~%"