OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

-eduni/namespaces/1.0/015.xml [not validating:] FAILED:

Browse Source 
-  well-formedness violation not detected
-[
-Bad QName syntax: colon at start
-]
This commit is contained in:
dlichteblau
2005-12-03 21:31:30 +00:00
parent 59fec24c15
commit eff3a932e7
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMLCONF
View File

@ -1799,11 +1799,7 @@ eduni/namespaces/1.0/011.xml [not validating:] not-wf [validating:] not-wf
eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf
eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid
eduni/namespaces/1.0/014.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/014.xml [not validating:] not-wf [validating:] invalid
eduni/namespaces/1.0/015.xml [not validating:] FAILED: eduni/namespaces/1.0/015.xml [not validating:] not-wf [validating:] invalid
well-formedness violation not detected
[
Bad QName syntax: colon at start
]
eduni/namespaces/1.0/016.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/016.xml [not validating:] not-wf [validating:] invalid
eduni/namespaces/1.0/017.xml [not validating:] input [validating:] invalid eduni/namespaces/1.0/017.xml [not validating:] input [validating:] invalid
eduni/namespaces/1.0/018.xml [not validating:] input [validating:] invalid eduni/namespaces/1.0/018.xml [not validating:] input [validating:] invalid
@ -1851,4 +1847,4 @@ eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED:
[ [
Colon in ID attribute name Colon in ID attribute name
] ]
5/1829 tests failed; 333 tests were skipped 4/1829 tests failed; 333 tests were skipped

2
xml/xml-parse.lisp
View File

@ -3326,6 +3326,8 @@
(if pos (if pos
(let ((prefix (subseq qname 0 pos)) (let ((prefix (subseq qname 0 pos))
(local-name (subseq qname (1+ pos)))) (local-name (subseq qname (1+ pos))))
(when (zerop pos)
(wf-error nil "empty namespace prefix"))
(if (nc-name-p local-name) (if (nc-name-p local-name)
(values prefix local-name) (values prefix local-name)
(wf-error nil "~S is not a valid NcName." (wf-error nil "~S is not a valid NcName."