"{ Package: 'stx:goodies/xmlsuite/core' }"

"{ NameSpace: XMLv2 }"

AbstractW3CDOM3TestCase subclass:#W3CDOM3CoreTests

	instanceVariableNames:'doc'

	classVariableNames:''

	poolDictionaries:''

	category:'XML Suite-Tests W3C'

!

!W3CDOM3CoreTests class methodsFor:'defaults'!

module

    ^'Core'

! !

!W3CDOM3CoreTests methodsFor:'W3C tests'!

test_attrgetschematypeinfo01

	"

Call getSchemaTypeInfo on title attribute for the first acronym element.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  elem "Element"

	  elemName "String"

	  typeInfo "TypeInfo"

	  typeNS "String"

	  typeName "String"

	|

	^self. "Validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:0.

	attr := acronymElem  getAttributeNode:'title'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: ( typeName = 'CDATA' ).

	typeNS := typeInfo  typeNamespace.

	self assert: ( typeNS = 'http://www.w3.org/TR/REC-xml' ).

!

test_attrgetschematypeinfo02

	"

Call getSchemaTypeInfo on id attribute for the third acronym element.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  elem "Element"

	  elemName "String"

	  typeInfo "TypeInfo"

	  typeNS "String"

	  typeName "String"

	|

	^self. "Validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	attr := acronymElem  getAttributeNode:'id'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: ( typeName = 'ID' ).

	typeNS := typeInfo  typeNamespace.

	self assert: ( typeNS = 'http://www.w3.org/TR/REC-xml' ).

!

test_attrgetschematypeinfo03

	"

Call getSchemaTypeInfo on title attribute for the first acronym element.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  elem "Element"

	  elemName "String"

	  typeInfo "TypeInfo"

	  typeNS "String"

	  typeName "String"

	|

	^self. "Schema validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:0.

	attr := acronymElem  getAttributeNode:'title'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: ( typeName = 'string' ).

	typeNS := typeInfo  typeNamespace.

	self assert: ( typeNS = 'http://www.w3.org/2001/XMLSchema' ).

!

test_attrgetschematypeinfo04

	"

Call getSchemaTypeInfo on id attribute for the third acronym element.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  elem "Element"

	  elemName "String"

	  typeInfo "TypeInfo"

	  typeNS "String"

	  typeName "String"

	|

	^self. "Schema validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	attr := acronymElem  getAttributeNode:'id'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: ( typeName = 'ID' ).

	typeNS := typeInfo  typeNamespace.

	self assert: ( typeNS = 'http://www.w3.org/2001/XMLSchema' ).

!

test_attrgetschematypeinfo05

	"

Call getSchemaTypeInfo on class attribute for the third acronym element.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  elem "Element"

	  elemName "String"

	  typeInfo "TypeInfo"

	  typeNS "String"

	  typeName "String"

	|

	^self. "Schema validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	attr := acronymElem  getAttributeNode:'class'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: ( typeName = 'classType' ).

	typeNS := typeInfo  typeNamespace.

	self assert: ( typeNS = 'http://www.w3.org/1999/xhtml' ).

!

test_attrgetschematypeinfo06

	"

Attr.schemaTypeInfo should return null if not validating or schema validating.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeName

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#TypeInfo-typeNamespace

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  elem "Element"

	  attr "Attr"

	  typeInfo "TypeInfo"

	  typeName "String"

	  typeNS "String"

	|

	"implementationAttribute not supported: validating"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_nodtdstaff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:0.

	attr := acronymElem  getAttributeNode:'title'.

	typeInfo := attr  schemaTypeInfo.

	self assert: typeInfo notNil.

	typeName := typeInfo  typeName.

	self assert: typeName isNil.

	typeNS := typeInfo  typeNamespace.

	self assert: typeNS isNil.

!

test_attrgetschematypeinfo07

	"

	The getSchemaTypeInfo method retrieves the type information associated with this attribute. 

	Load a valid document with an XML Schema.

	Invoke getSchemaTypeInfo method on an attribute having [type definition] property.  Expose {name} and {target namespace}

	properties of the [type definition] property.  Verity that the typeName and typeNamespace of the title attribute's

	schemaTypeInfo are correct. getSchemaTypeInfo on the 'id' attribute of the fourth 'acronym' element

		Creator: IBM

		Autor Jenny Hsu

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acElem "Element"

	  attr "Attr"

	  attrTypeInfo "TypeInfo"

	  typeName "String"

	  typeNamespace "String"

	|

	^self. "Schema validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acElem := elemList  item:3.

	attr := acElem  getAttributeNode:'id'.

	attrTypeInfo := attr  schemaTypeInfo.

	self assert: attrTypeInfo notNil.

	typeName := attrTypeInfo  typeName.

	typeNamespace := attrTypeInfo  typeNamespace.

	self assert: ( typeName = 'ID' ).

	self assert: ( typeNamespace = 'http://www.w3.org/2001/XMLSchema' ).

!

test_attrgetschematypeinfo08

	"

	The getSchemaTypeInfo method retrieves the type information associated with this attribute. 

	Load a valid document with an XML Schema. 

	Invoke getSchemaTypeInfo method on an attribute having [type definition] property.  Expose {name} and {target namespace}

	properties of the [type definition] property.  Verity that the typeName and typeNamespace of the 'title' attribute's (of first 'acronym' element)

	schemaTypeInfo are correct.

		Creator: IBM

		Autor Jenny Hsu

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-schemaTypeInfo

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acElem "Element"

	  attr "Attr"

	  attrTypeInfo "TypeInfo"

	  typeName "String"

	  typeNamespace "String"

	|

	^self. "Schema validation not supported"

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acElem := elemList  item:0.

	attr := acElem  getAttributeNode:'title'.

	attrTypeInfo := attr  schemaTypeInfo.

	typeName := attrTypeInfo  typeName.

	typeNamespace := attrTypeInfo  typeNamespace.

	self assert: ( typeName = 'string' ).

	self assert: ( typeNamespace = 'http://www.w3.org/2001/XMLSchema' ).

!

test_attrisid01

	"

	Retrieve the third acronyms element's class attribute, whose type is not ID.  

	Invoke isID on the class attribute, this should return false.

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attr "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	|

	id := false.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	attr := acronymElem  getAttributeNode:'class'.

	id := attr  isId.

	self deny: id.

!

test_attrisid02

	"

	Invoke setIdAttribute on the third acronym element's new attribute and set 

	isID=true.  Verify by calling isID on the new attribute and check if the 

	value returned is true.

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attributesMap "NamedNodeMap"

	  attr "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	  xmlNS "String"

	|

	id := false.

	xmlNS := 'http://www.w3.org/XML/1998/namespace'.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	acronymElem  setAttribute: 'xml:lang' ns: xmlNS value: 'FR-fr'.

	acronymElem  setIdAttribute: 'lang' ns: xmlNS isId:true.

	attr := acronymElem  getAttributeNode: 'lang' ns: xmlNS.

	id := attr  isId.

	self assert: id.

!

test_attrisid03

	"

	Invoke setIdAttribute(false) on a newly created attribute and then check Attr.isID.

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attributesMap "NamedNodeMap"

	  attr "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	  xmlNS "String"

	|

	id := false.

	xmlNS := 'http://www.w3.org/XML/1998/namespace'.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:2.

	acronymElem  setAttribute: 'xml:lang' ns: xmlNS value: 'FR-fr'.

	acronymElem  setIdAttribute: 'lang' ns: xmlNS isId:false.

	attr := acronymElem  getAttributeNode: 'lang' ns: xmlNS.

	id := attr  isId.

	self deny: id.

!

test_attrisid04

	"

Attr.isID should return true for the id attribute on the fourth acronym node

since its type is ID.

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  clonedacronymElem "Element"

	  attributesMap "NamedNodeMap"

	  attr "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	|

	^self. "Validation not supported"

	id := false.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:3.

	attr := acronymElem  getAttributeNode:'id'.

	id := attr  isId.

	self assert: id.

!

test_attrisid05

	"

	Retrieve the fourth acronym element's id attribute, whose type is ID.  

	Deep clone the element node and append it as a sibling of the acronym node.

	We now have two id attributes of type ID with identical values.   

	Invoke isID on the class attribute, should this return true???

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  clonedacronymElem "Element"

	  acronymParentElem "Element"

	  appendedNode "Node"

	  attributesMap "NamedNodeMap"

	  attr "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	|

	^self. "Validation not supported"

	id := false.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym'.

	acronymElem := elemList  item:3.

	acronymParentElem := acronymElem  parentNode.

	clonedacronymElem := acronymElem  cloneNode:true.

	appendedNode := acronymParentElem  appendChild:clonedacronymElem.

	attr := acronymElem  getAttributeNode:'id'.

	id := attr  isId.

	self assert: id.

!

test_attrisid06

	"

	Invoke isId on a new Attr node.  Check if the value returned is false.

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  attr "Attr"

	  id "Boolean"

	|

	id := false.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	attr := doc  createAttribute:'xml:lang' ns:'http://www.w3.org/XML/1998/namespace'.

	id := attr  isId.

	self deny: id.

!

test_attrisid07

	"

	The method isId returns whether this attribute is known to be of type ID or not.

	Add a new attribute of type ID to the third acronym element node of this document. Verify that the method

        isId returns true. The use of Element.setIdAttributeNS() makes 'isId' a user-determined ID attribute.

	Import the newly created attribute node into this document.  

        Since user data assocated to the imported node is not carried over, verify that the method isId

        returns false on the imported attribute node.        

		Creator: IBM

		Autor Neil Delima

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Attr-isId

	"

	|

	  doc "Document"

	  elemList "NodeList"

	  acronymElem "Element"

	  attributesMap "NamedNodeMap"

	  attr "Attr"

	  attrImported "Attr"

	  id "Boolean"

	  elem "Element"

	  elemName "String"

	|

	"implementationAttribute not supported: namespaceAware"

	id := false.

	doc :=  Parser forDOM3 processDocumentInFilename:(self xmlFilenameFor:'hc_staff').

	elemList := doc  getElementsByTagName: 'acronym' ns: '*'.

	acronymElem := elemList  item:2.

	acronymElem  setAttribute: 'dom3:newAttr' ns: 'http://www.w3.org/DOM' value: 'null'.

	acronymElem  setIdAttribute: 'newAttr' ns: 'http://www.w3.org/DOM' isId:true.

	attr := acronymElem  getAttributeNode: 'newAttr' ns: 'http://www.w3.org/DOM'.

	id := attr  isId.

	self assert: id.

	attrImported := doc  importNode:attr deep:false.

	id := attrImported  isId.

	self deny: id.

!

test_canonicalform01

	"

Normalize document with 'canonical-form' set to true, check that

entity references are expanded and unused entity declaration are maintained.

		Creator: Curt Arnold

		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#Document3-normalizeDocument