Mihaela Mihaljevic
89f8ccc95a
Slice 3 of #92. The DTD validator's imperative walk becomes declared Validation values over a DTDSchema document: - DTDSchema is now just the schema (content models + attribute declarations) and serves as the rules' Document context; its validate/walk methods are gone. - contentModel and attributeDeclarations are Validation<Element, DTDSchema>, so every content-model and attribute violation is now located by coding path ("... at path: r/a"). undeclaredElement is added only in strict mode. - identifierIntegrity is a Validation<Node, DTDSchema> gated to the root, doing the document-wide ID-uniqueness and IDREF-resolution checks in one pass. - DTD.validator(strict:) assembles the rule set; validateAgainstInternalDTD runs it and returns [ValidationError] instead of [Issue]. A new test pins the located result. Schema (XSD) and Schematron validators still use Issue and migrate in the following slices.
37 lines
1.5 KiB
Swift
37 lines
1.5 KiB
Swift
@testable import PureXML
|
|
import Testing
|
|
|
|
@Suite("DTD ID and IDREF validation")
|
|
struct DTDIdentifierTests {
|
|
private func issues(_ xml: String) throws -> [PureXML.Validation.ValidationError] {
|
|
try PureXML.validateAgainstInternalDTD(xml)
|
|
}
|
|
|
|
private let idDTD = "<!DOCTYPE root [<!ELEMENT root (item)*><!ELEMENT item EMPTY>"
|
|
+ "<!ATTLIST item id ID #IMPLIED ref IDREF #IMPLIED refs IDREFS #IMPLIED>]>"
|
|
|
|
@Test("Unique IDs validate; duplicate IDs are rejected")
|
|
func test_idUniqueness() throws {
|
|
try #expect(issues("\(idDTD)<root><item id=\"a\"/><item id=\"b\"/></root>").isEmpty)
|
|
try #expect(!issues("\(idDTD)<root><item id=\"a\"/><item id=\"a\"/></root>").isEmpty)
|
|
}
|
|
|
|
@Test("IDREF resolves to an ID anywhere in the document, including forward")
|
|
func test_idrefForwardReference() throws {
|
|
try #expect(issues("\(idDTD)<root><item ref=\"b\"/><item id=\"b\"/></root>").isEmpty)
|
|
}
|
|
|
|
@Test("A dangling IDREF is rejected")
|
|
func test_danglingIdref() throws {
|
|
try #expect(!issues("\(idDTD)<root><item ref=\"x\"/><item id=\"b\"/></root>").isEmpty)
|
|
}
|
|
|
|
@Test("IDREFS resolves each token; a dangling token is rejected")
|
|
func test_idrefs() throws {
|
|
let valid = "\(idDTD)<root><item id=\"a\"/><item id=\"b\"/><item refs=\"a b\"/></root>"
|
|
try #expect(issues(valid).isEmpty)
|
|
let dangling = "\(idDTD)<root><item id=\"a\"/><item refs=\"a z\"/></root>"
|
|
try #expect(!issues(dangling).isEmpty)
|
|
}
|
|
}
|