From 5fe0467ada28eaa01f4643b19c0b491bff630c15 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 27 Nov 2005 00:40:13 +0000 Subject: [PATCH] -ibm/not-wf/P42/ibm42n05.xml [not-wf?] FAILED: - well-formedness violation not detected -[ - Tests ETag with a wrong structure. The ETag of the element "root" - contains an Attribute (attr1="any"). - ] --- XMLCONF | 9 ++------- xml/xml-parse.lisp | 4 +++- 2 files changed, 5 insertions(+), 8 deletions(-) diff --git a/XMLCONF b/XMLCONF index 61f1319..30bb890 100644 --- a/XMLCONF +++ b/XMLCONF @@ -1094,12 +1094,7 @@ ibm/not-wf/P42/ibm42n01.xml [not-wf?] not-wf ibm/not-wf/P42/ibm42n02.xml [not-wf?] not-wf ibm/not-wf/P42/ibm42n03.xml [not-wf?] not-wf ibm/not-wf/P42/ibm42n04.xml [not-wf?] not-wf -ibm/not-wf/P42/ibm42n05.xml [not-wf?] FAILED: - well-formedness violation not detected -[ - Tests ETag with a wrong structure. The ETag of the element "root" - contains an Attribute (attr1="any"). - ] +ibm/not-wf/P42/ibm42n05.xml [not-wf?] not-wf ibm/not-wf/P43/ibm43n01.xml [not-wf?] not-wf ibm/not-wf/P43/ibm43n02.xml [not-wf?] not-wf ibm/not-wf/P43/ibm43n04.xml [not-wf?] not-wf @@ -1818,4 +1813,4 @@ ibm/valid/P86/ibm86v01.xml [not validating:] input [validating:] input ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input -6/1786 tests failed; 376 tests were skipped \ No newline at end of file +5/1786 tests failed; 376 tests were skipped \ No newline at end of file diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 5c8c785..3b7e256 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -2644,7 +2644,9 @@ (multiple-value-bind (cat2 sem2) (read-token input) (unless (and (eq cat2 :etag) (eq (car sem2) name)) - (perror input "Bad nesting. ~S / ~S" (mu name) (mu (cons cat2 sem2))))) + (perror input "Bad nesting. ~S / ~S" (mu name) (mu (cons cat2 sem2)))) + (when sem2 + (wf-error "no attributes allowed in end tag"))) (sax:end-element (handler *ctx*) ns-uri local-name name)) (t