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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 AbstractW3CDOM3TestCase subclass:#W3CDOM3CoreTests

     6 	instanceVariableNames:'doc'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-Tests W3C'

    10 !

    11 

    12 

    13 !W3CDOM3CoreTests class methodsFor:'defaults'!

    14 

    15 module

    16     ^'Core'

    17 ! !

    18 

    19 !W3CDOM3CoreTests methodsFor:'W3C tests'!

    20 

    21 test_attrgetschematypeinfo01

    22 	"

    23 Call getSchemaTypeInfo on title attribute for the first acronym element.

    24 

    25 		Creator: Curt Arnold

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

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

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

    29 	"

    30 	|

    31 	  doc "Document"

    32 	  elemList "NodeList"

    33 	  acronymElem "Element"

    34 	  attr "Attr"

    35 	  elem "Element"

    36 	  elemName "String"

    37 	  typeInfo "TypeInfo"

    38 	  typeNS "String"

    39 	  typeName "String"

    40 	|

    41 	^self. "Validation not supported"

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

    43 	elemList := doc  getElementsByTagName: 'acronym'.

    44 	acronymElem := elemList  item:0.

    45 	attr := acronymElem  getAttributeNode:'title'.

    46 	typeInfo := attr  schemaTypeInfo.

    47 	self assert: typeInfo notNil.

    48 	typeName := typeInfo  typeName.

    49 	self assert: ( typeName = 'CDATA' ).

    50 	typeNS := typeInfo  typeNamespace.

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

    52 

    53 !

    54 

    55 test_attrgetschematypeinfo02

    56 	"

    57 Call getSchemaTypeInfo on id attribute for the third acronym element.

    58 

    59 		Creator: Curt Arnold

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

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

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

    63 	"

    64 	|

    65 	  doc "Document"

    66 	  elemList "NodeList"

    67 	  acronymElem "Element"

    68 	  attr "Attr"

    69 	  elem "Element"

    70 	  elemName "String"

    71 	  typeInfo "TypeInfo"

    72 	  typeNS "String"

    73 	  typeName "String"

    74 	|

    75 	^self. "Validation not supported"

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

    77 	elemList := doc  getElementsByTagName: 'acronym'.

    78 	acronymElem := elemList  item:2.

    79 	attr := acronymElem  getAttributeNode:'id'.

    80 	typeInfo := attr  schemaTypeInfo.

    81 	self assert: typeInfo notNil.

    82 	typeName := typeInfo  typeName.

    83 	self assert: ( typeName = 'ID' ).

    84 	typeNS := typeInfo  typeNamespace.

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

    86 

    87 !

    88 

    89 test_attrgetschematypeinfo03

    90 	"

    91 Call getSchemaTypeInfo on title attribute for the first acronym element.

    92 

    93 		Creator: Curt Arnold

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

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

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

    97 	"

    98 	|

    99 	  doc "Document"

   100 	  elemList "NodeList"

   101 	  acronymElem "Element"

   102 	  attr "Attr"

   103 	  elem "Element"

   104 	  elemName "String"

   105 	  typeInfo "TypeInfo"

   106 	  typeNS "String"

   107 	  typeName "String"

   108 	|

   109 	^self. "Schema validation not supported"

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

   111 	elemList := doc  getElementsByTagName: 'acronym'.

   112 	acronymElem := elemList  item:0.

   113 	attr := acronymElem  getAttributeNode:'title'.

   114 	typeInfo := attr  schemaTypeInfo.

   115 	self assert: typeInfo notNil.

   116 	typeName := typeInfo  typeName.

   117 	self assert: ( typeName = 'string' ).

   118 	typeNS := typeInfo  typeNamespace.

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

   120 

   121 !

   122 

   123 test_attrgetschematypeinfo04

   124 	"

   125 Call getSchemaTypeInfo on id attribute for the third acronym element.

   126 

   127 		Creator: Curt Arnold

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

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

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

   131 	"

   132 	|

   133 	  doc "Document"

   134 	  elemList "NodeList"

   135 	  acronymElem "Element"

   136 	  attr "Attr"

   137 	  elem "Element"

   138 	  elemName "String"

   139 	  typeInfo "TypeInfo"

   140 	  typeNS "String"

   141 	  typeName "String"

   142 	|

   143 	^self. "Schema validation not supported"

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

   145 	elemList := doc  getElementsByTagName: 'acronym'.

   146 	acronymElem := elemList  item:2.

   147 	attr := acronymElem  getAttributeNode:'id'.

   148 	typeInfo := attr  schemaTypeInfo.

   149 	self assert: typeInfo notNil.

   150 	typeName := typeInfo  typeName.

   151 	self assert: ( typeName = 'ID' ).

   152 	typeNS := typeInfo  typeNamespace.

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

   154 

   155 !

   156 

   157 test_attrgetschematypeinfo05

   158 	"

   159 Call getSchemaTypeInfo on class attribute for the third acronym element.

   160 

   161 		Creator: Curt Arnold

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

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

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

   165 	"

   166 	|

   167 	  doc "Document"

   168 	  elemList "NodeList"

   169 	  acronymElem "Element"

   170 	  attr "Attr"

   171 	  elem "Element"

   172 	  elemName "String"

   173 	  typeInfo "TypeInfo"

   174 	  typeNS "String"

   175 	  typeName "String"

   176 	|

   177 	^self. "Schema validation not supported"

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

   179 	elemList := doc  getElementsByTagName: 'acronym'.

   180 	acronymElem := elemList  item:2.

   181 	attr := acronymElem  getAttributeNode:'class'.

   182 	typeInfo := attr  schemaTypeInfo.

   183 	self assert: typeInfo notNil.

   184 	typeName := typeInfo  typeName.

   185 	self assert: ( typeName = 'classType' ).

   186 	typeNS := typeInfo  typeNamespace.

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

   188 

   189 !

   190 

   191 test_attrgetschematypeinfo06

   192 	"

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

   194 

   195 		Creator: Curt Arnold

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

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

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

   199 	"

   200 	|

   201 	  doc "Document"

   202 	  elemList "NodeList"

   203 	  acronymElem "Element"

   204 	  elem "Element"

   205 	  attr "Attr"

   206 	  typeInfo "TypeInfo"

   207 	  typeName "String"

   208 	  typeNS "String"

   209 	|

   210 	"implementationAttribute not supported: validating"

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

   212 	elemList := doc  getElementsByTagName: 'acronym'.

   213 	acronymElem := elemList  item:0.

   214 	attr := acronymElem  getAttributeNode:'title'.

   215 	typeInfo := attr  schemaTypeInfo.

   216 	self assert: typeInfo notNil.

   217 	typeName := typeInfo  typeName.

   218 	self assert: typeName isNil.

   219 	typeNS := typeInfo  typeNamespace.

   220 	self assert: typeNS isNil.

   221 

   222 !

   223 

   224 test_attrgetschematypeinfo07

   225 	"

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

   227      

   228 	Load a valid document with an XML Schema.

   229         

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

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

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

   233 

   234 		Creator: IBM

   235 		Autor Jenny Hsu

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

   237 	"

   238 	|

   239 	  doc "Document"

   240 	  elemList "NodeList"

   241 	  acElem "Element"

   242 	  attr "Attr"

   243 	  attrTypeInfo "TypeInfo"

   244 	  typeName "String"

   245 	  typeNamespace "String"

   246 	|

   247 	^self. "Schema validation not supported"

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

   249 	elemList := doc  getElementsByTagName: 'acronym'.

   250 	acElem := elemList  item:3.

   251 	attr := acElem  getAttributeNode:'id'.

   252 	attrTypeInfo := attr  schemaTypeInfo.

   253 	self assert: attrTypeInfo notNil.

   254 	typeName := attrTypeInfo  typeName.

   255 	typeNamespace := attrTypeInfo  typeNamespace.

   256 	self assert: ( typeName = 'ID' ).

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

   258 

   259 !

   260 

   261 test_attrgetschematypeinfo08

   262 	"

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

   264 

   265 	Load a valid document with an XML Schema. 

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

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

   268 	schemaTypeInfo are correct.

   269 

   270 		Creator: IBM

   271 		Autor Jenny Hsu

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

   273 	"

   274 	|

   275 	  doc "Document"

   276 	  elemList "NodeList"

   277 	  acElem "Element"

   278 	  attr "Attr"

   279 	  attrTypeInfo "TypeInfo"

   280 	  typeName "String"

   281 	  typeNamespace "String"

   282 	|

   283 	^self. "Schema validation not supported"

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

   285 	elemList := doc  getElementsByTagName: 'acronym'.

   286 	acElem := elemList  item:0.

   287 	attr := acElem  getAttributeNode:'title'.

   288 	attrTypeInfo := attr  schemaTypeInfo.

   289 	typeName := attrTypeInfo  typeName.

   290 	typeNamespace := attrTypeInfo  typeNamespace.

   291 	self assert: ( typeName = 'string' ).

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

   293 

   294 !

   295 

   296 test_attrisid01

   297 	"

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

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

   300 

   301 		Creator: IBM

   302 		Autor Neil Delima

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

   304 	"

   305 	|

   306 	  doc "Document"

   307 	  elemList "NodeList"

   308 	  acronymElem "Element"

   309 	  attr "Attr"

   310 	  id "Boolean"

   311 	  elem "Element"

   312 	  elemName "String"

   313 	|

   314 	id := false.

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

   316 	elemList := doc  getElementsByTagName: 'acronym'.

   317 	acronymElem := elemList  item:2.

   318 	attr := acronymElem  getAttributeNode:'class'.

   319 	id := attr  isId.

   320 	self deny: id.

   321 

   322 !

   323 

   324 test_attrisid02

   325 	"

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

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

   328 	value returned is true.

   329 

   330 		Creator: IBM

   331 		Autor Neil Delima

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

   333 	"

   334 	|

   335 	  doc "Document"

   336 	  elemList "NodeList"

   337 	  acronymElem "Element"

   338 	  attributesMap "NamedNodeMap"

   339 	  attr "Attr"

   340 	  id "Boolean"

   341 	  elem "Element"

   342 	  elemName "String"

   343 	  xmlNS "String"

   344 	|

   345 	id := false.

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

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

   348 	elemList := doc  getElementsByTagName: 'acronym'.

   349 	acronymElem := elemList  item:2.

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

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

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

   353 	id := attr  isId.

   354 	self assert: id.

   355 

   356 !

   357 

   358 test_attrisid03

   359 	"

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

   361 

   362 		Creator: IBM

   363 		Autor Neil Delima

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

   365 	"

   366 	|

   367 	  doc "Document"

   368 	  elemList "NodeList"

   369 	  acronymElem "Element"

   370 	  attributesMap "NamedNodeMap"

   371 	  attr "Attr"

   372 	  id "Boolean"

   373 	  elem "Element"

   374 	  elemName "String"

   375 	  xmlNS "String"

   376 	|

   377 	id := false.

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

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

   380 	elemList := doc  getElementsByTagName: 'acronym'.

   381 	acronymElem := elemList  item:2.

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

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

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

   385 	id := attr  isId.

   386 	self deny: id.

   387 

   388 !

   389 

   390 test_attrisid04

   391 	"

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

   393 since its type is ID.

   394 

   395 		Creator: IBM

   396 		Autor Neil Delima

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

   398 	"

   399 	|

   400 	  doc "Document"

   401 	  elemList "NodeList"

   402 	  acronymElem "Element"

   403 	  clonedacronymElem "Element"

   404 	  attributesMap "NamedNodeMap"

   405 	  attr "Attr"

   406 	  id "Boolean"

   407 	  elem "Element"

   408 	  elemName "String"

   409 	|

   410 	^self. "Validation not supported"

   411 	id := false.

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

   413 	elemList := doc  getElementsByTagName: 'acronym'.

   414 	acronymElem := elemList  item:3.

   415 	attr := acronymElem  getAttributeNode:'id'.

   416 	id := attr  isId.

   417 	self assert: id.

   418 

   419 !

   420 

   421 test_attrisid05

   422 	"

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

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

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

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

   427 

   428 		Creator: IBM

   429 		Autor Neil Delima

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

   431 	"

   432 	|

   433 	  doc "Document"

   434 	  elemList "NodeList"

   435 	  acronymElem "Element"

   436 	  clonedacronymElem "Element"

   437 	  acronymParentElem "Element"

   438 	  appendedNode "Node"

   439 	  attributesMap "NamedNodeMap"

   440 	  attr "Attr"

   441 	  id "Boolean"

   442 	  elem "Element"

   443 	  elemName "String"

   444 	|

   445 	^self. "Validation not supported"

   446 	id := false.

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

   448 	elemList := doc  getElementsByTagName: 'acronym'.

   449 	acronymElem := elemList  item:3.

   450 	acronymParentElem := acronymElem  parentNode.

   451 	clonedacronymElem := acronymElem  cloneNode:true.

   452 	appendedNode := acronymParentElem  appendChild:clonedacronymElem.

   453 	attr := acronymElem  getAttributeNode:'id'.

   454 	id := attr  isId.

   455 	self assert: id.

   456 

   457 !

   458 

   459 test_attrisid06

   460 	"

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

   462 

   463 		Creator: IBM

   464 		Autor Neil Delima

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

   466 	"

   467 	|

   468 	  doc "Document"

   469 	  attr "Attr"

   470 	  id "Boolean"

   471 	|

   472 	id := false.

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

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

   475 	id := attr  isId.

   476 	self deny: id.

   477 

   478 !

   479 

   480 test_attrisid07

   481 	"

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

   483 	

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

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

   486 	Import the newly created attribute node into this document.  

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

   488         returns false on the imported attribute node.        

   489 

   490 

   491 		Creator: IBM

   492 		Autor Neil Delima

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

   494 	"

   495 	|

   496 	  doc "Document"

   497 	  elemList "NodeList"

   498 	  acronymElem "Element"

   499 	  attributesMap "NamedNodeMap"

   500 	  attr "Attr"

   501 	  attrImported "Attr"

   502 	  id "Boolean"

   503 	  elem "Element"

   504 	  elemName "String"

   505 	|

   506 	"implementationAttribute not supported: namespaceAware"

   507 	id := false.

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

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

   510 	acronymElem := elemList  item:2.

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

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

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

   514 	id := attr  isId.

   515 	self assert: id.

   516 	attrImported := doc  importNode:attr deep:false.

   517 	id := attrImported  isId.

   518 	self deny: id.

   519 

   520 !

   521 

   522 test_canonicalform01

   523 	"

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

   525 entity references are expanded and unused entity declaration are maintained.

   526 

   527 		Creator: Curt Arnold

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

   529 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   530 	"

   531 	|

   532 	  doc "Document"

   533 	  pList "NodeList"

   534 	  pElem "Element"

   535 	  domConfig "DOMConfiguration"

   536 	  canSet "Boolean"

   537 	  canSetValidate "Boolean"

   538 	  errorMonitor "DOMErrorMonitor"

   539 	  child "Node"

   540 	  childName "String"

   541 	  entRef "EntityReference"

   542 	  childValue "String"

   543 	  entities "NamedNodeMap"

   544 	  ent2 "Entity"

   545 	  doctype "DocumentType"

   546 	|

   547 	"implementationAttribute not supported: namespaceAware"

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

   549 	domConfig := doc domConfig.

   550 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   551 	"if"

   552 	(canSet) ifTrue: [

   553 																	].

   554 

   555 !

   556 

   557 test_canonicalform02

   558 	"

   559 Normalize document with normalize-characters set to false, check that

   560 characters are not normalized.

   561 

   562 		Creator: Curt Arnold

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

   564 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   565 		Subject http://www.w3.org/TR/2003/WD-charmod-20030822/

   566 	"

   567 	|

   568 	  doc "Document"

   569 	  docElem "Element"

   570 	  domConfig "DOMConfiguration"

   571 	  errorMonitor "DOMErrorMonitor"

   572 	  pList "NodeList"

   573 	  pElem "Element"

   574 	  text "Text"

   575 	  textValue "String"

   576 	  retval "Node"

   577 	  canSet "Boolean"

   578 	|

   579 	"implementationAttribute not supported: namespaceAware"

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

   581 	domConfig := doc domConfig.

   582 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   583 	"if"

   584 	(canSet) ifTrue: [

   585 														].

   586 

   587 !

   588 

   589 test_canonicalform03

   590 	"

   591 Normalize a document with the 'canonical-form' parameter set to true and

   592 check that a CDATASection has been eliminated.

   593 

   594 		Creator: Curt Arnold

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

   596 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   597 	"

   598 	|

   599 	  doc "Document"

   600 	  elemList "NodeList"

   601 	  elemName "Element"

   602 	  cdata "CDATASection"

   603 	  text "Text"

   604 	  nodeName "String"

   605 	  domConfig "DOMConfiguration"

   606 	  errorMonitor "DOMErrorMonitor"

   607 	  canSet "Boolean"

   608 	|

   609 	"implementationAttribute not supported: namespaceAware"

   610 	"implementationAttribute not supported: coalescing"

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

   612 	elemList := doc  getElementsByTagName: 'strong'.

   613 	elemName := elemList  item:1.

   614 	cdata := elemName  lastChild.

   615 	nodeName := cdata  nodeName.

   616 	self assert: ( nodeName = '#cdata-section' ).

   617 	domConfig := doc domConfig.

   618 	domConfig setParameter: 'error-handler' value: errorMonitor.

   619 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   620 	"if"

   621 	(canSet) ifTrue: [

   622 									].

   623 

   624 !

   625 

   626 test_canonicalform04

   627 	"

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

   629 namespace declaration attributes are maintained.

   630 

   631 		Creator: Curt Arnold

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

   633 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   634 	"

   635 	|

   636 	  doc "Document"

   637 	  docElem "Element"

   638 	  domConfig "DOMConfiguration"

   639 	  errorMonitor "DOMErrorMonitor"

   640 	  xmlnsAttr "Attr"

   641 	  canSet "Boolean"

   642 	|

   643 	"implementationAttribute not supported: namespaceAware"

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

   645 	domConfig := doc domConfig.

   646 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   647 	"if"

   648 	(canSet) ifTrue: [

   649 								].

   650 

   651 !

   652 

   653 test_canonicalform05

   654 	"

   655 Add a L1 element to a L2 namespace aware document and perform namespace normalization.  Should result

   656 in an error.

   657 

   658 		Creator: Curt Arnold

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

   660 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/namespaces-algorithms#normalizeDocumentAlgo

   661 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   662 	"

   663 	|

   664 	  doc "Document"

   665 	  elem "Element"

   666 	  domConfig "DOMConfiguration"

   667 	  pList "NodeList"

   668 	  newChild "Element"

   669 	  retval "Element"

   670 	  errorMonitor "DOMErrorMonitor"

   671 	  errors "List"

   672 	  error "DOMError"

   673 	  errorCount "SmallInteger"

   674 	  severity "SmallInteger"

   675 	  problemNode "Node"

   676 	  location "DOMLocator"

   677 	  lineNumber "SmallInteger"

   678 	  columnNumber "SmallInteger"

   679 	  byteOffset "SmallInteger"

   680 	  utf16Offset "SmallInteger"

   681 	  uri "String"

   682 	  type "String"

   683 	  message "String"

   684 	  relatedException "DOMObject"

   685 	  relatedData "DOMObject"

   686 	  length "SmallInteger"

   687 	  canSet "Boolean"

   688 	|

   689 	"implementationAttribute not supported: namespaceAware"

   690 	errorCount := 0.

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

   692 	pList := doc  getElementsByTagName: 'p'.

   693 	elem := pList  item:0.

   694 	newChild := doc  createElement:'br'.

   695 	retval := elem  appendChild:newChild.

   696 	domConfig := doc domConfig.

   697 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   698 	"if"

   699 	(canSet) ifTrue: [

   700 						severity := error  severity.

   701 	"if"

   702 	( severity = 2 ) ifTrue: [

   703 																	self assert:false description:'Method "greater" is not supported yet'.

   704 					].

   705 		].

   706 

   707 !

   708 

   709 test_canonicalform06

   710 	"

   711 Create a document with an XML 1.1 valid but XML 1.0 invalid element and

   712 normalize document with canonical-form set to true.

   713 

   714 		Creator: Curt Arnold

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

   716 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   717 	"

   718 	|

   719 	  domImpl "DOMImplementation"

   720 	  nullString "String"

   721 	  nullDoctype "DocumentType"

   722 	  doc "Document"

   723 	  elem "Element"

   724 	  retval "Node"

   725 	  domConfig "DOMConfiguration"

   726 	  errorMonitor "DOMErrorMonitor"

   727 	  errors "List"

   728 	  error "DOMError"

   729 	  severity "SmallInteger"

   730 	  type "String"

   731 	  locator "DOMLocator"

   732 	  relatedNode "Node"

   733 	  canSet "Boolean"

   734 	|

   735 	nullString := nil.

   736 	nullDoctype := nil.

   737 	domImpl := DOMImplementationRegistry getDOMImplementation:'XML 3.0'.

   738 	doc := domImpl createDocumentNS: nullString qualifiedName: nullString doctype: nullDoctype.

   739 	"assertDOMException..."

   740 	self should:[

   741 	elem := doc  createElement:'LegalNameࢎ' ns:'http://www.example.org/domts/wellformed01'.

   742 	] raise: DOMException.

   743 	self assert: (lastException code == DOMException INVALID_CHARACTER_ERR).

   744 	"end of assertDOMException..."

   745 	"try"

   746 	[

   747 	] on: DOMException do: [:ex|	].

   748 	"end of try"

   749 	elem := doc  createElement:'LegalNameࢎ' ns:'http://www.example.org/domts/wellformed01'.

   750 	retval := doc  appendChild:elem.

   751 	domConfig := doc domConfig.

   752 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   753 	"if"

   754 	(canSet) ifTrue: [

   755 						severity := error  severity.

   756 	self assert: ( severity = 2 ).

   757 	type := error  type.

   758 	self assert: ( type = 'wf-invalid-character-in-node-name' ).

   759 	locator := error  location.

   760 	relatedNode := locator  relatedNode.

   761 	self assert: relatedNode == elem.

   762 		].

   763 

   764 !

   765 

   766 test_canonicalform07

   767 	"

   768 Normalize document with canonical-form set to true and validation set to true, check that

   769 whitespace in element content is preserved.

   770 

   771 		Creator: Curt Arnold

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

   773 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   774 	"

   775 	|

   776 	  doc "Document"

   777 	  bodyList "NodeList"

   778 	  body "Element"

   779 	  domConfig "DOMConfiguration"

   780 	  canSet "Boolean"

   781 	  canSetValidate "Boolean"

   782 	  errorMonitor "DOMErrorMonitor"

   783 	  child "Node"

   784 	  childName "String"

   785 	  text "Text"

   786 	|

   787 	"implementationAttribute not supported: namespaceAware"

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

   789 	domConfig := doc domConfig.

   790 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   791 	"if"

   792 	(canSet) ifTrue: [

   793 				^self. "ignoringElementContentWhitespace supported"

   794 	bodyList := doc  getElementsByTagName: 'body'.

   795 	body := bodyList  item:0.

   796 	child := body  firstChild.

   797 	text := doc  createTextNode:'    '.

   798 	body  insert:text before: child.

   799 													].

   800 

   801 !

   802 

   803 test_canonicalform08

   804 	"

   805 Normalize document based on section 3.1 with canonical-form set to true and check normalized document.

   806 

   807 		Creator: Curt Arnold

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

   809 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   810 	"

   811 	|

   812 	  doc "Document"

   813 	  bodyList "NodeList"

   814 	  body "Element"

   815 	  domConfig "DOMConfiguration"

   816 	  canSet "Boolean"

   817 	  canSetValidate "Boolean"

   818 	  errorMonitor "DOMErrorMonitor"

   819 	  node "Node"

   820 	  nodeName "String"

   821 	  nodeValue "String"

   822 	  nodeType "SmallInteger"

   823 	  length "SmallInteger"

   824 	  text "Text"

   825 	|

   826 	"implementationAttribute not supported: namespaceAware"

   827 	"implementationAttribute not supported: validating"

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

   829 	domConfig := doc domConfig.

   830 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   831 	"if"

   832 	(canSet) ifTrue: [

   833 																																																			].

   834 

   835 !

   836 

   837 test_canonicalform09

   838 	"

   839 Normalize document based on section 3.1 with canonical-form set to true 

   840 and comments to false and check normalized document.

   841 

   842 		Creator: Curt Arnold

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

   844 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   845 	"

   846 	|

   847 	  doc "Document"

   848 	  bodyList "NodeList"

   849 	  body "Element"

   850 	  domConfig "DOMConfiguration"

   851 	  canSet "Boolean"

   852 	  canSetValidate "Boolean"

   853 	  errorMonitor "DOMErrorMonitor"

   854 	  node "Node"

   855 	  nodeName "String"

   856 	  nodeValue "String"

   857 	  nodeType "SmallInteger"

   858 	  length "SmallInteger"

   859 	  text "Text"

   860 	|

   861 	"implementationAttribute not supported: namespaceAware"

   862 	"implementationAttribute not supported: validating"

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

   864 	domConfig := doc domConfig.

   865 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   866 	"if"

   867 	(canSet) ifTrue: [

   868 																																		].

   869 

   870 !

   871 

   872 test_canonicalform10

   873 	"

   874 Check elimination of unnecessary namespace prefixes when

   875 normalized with canonical-form = true.

   876 

   877 		Creator: Curt Arnold

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

   879 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   880 	"

   881 	|

   882 	  doc "Document"

   883 	  divList "NodeList"

   884 	  div "Element"

   885 	  domConfig "DOMConfiguration"

   886 	  canSet "Boolean"

   887 	  errorMonitor "DOMErrorMonitor"

   888 	  node "Node"

   889 	|

   890 	"implementationAttribute not supported: namespaceAware"

   891 	"implementationAttribute not supported: validating"

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

   893 	domConfig := doc domConfig.

   894 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   895 	"if"

   896 	(canSet) ifTrue: [

   897 											].

   898 

   899 !

   900 

   901 test_canonicalform11

   902 	"

   903 Check that default attributes are made explicitly specified.

   904 

   905 		Creator: Curt Arnold

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

   907 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   908 	"

   909 	|

   910 	  doc "Document"

   911 	  elemList "NodeList"

   912 	  elem "Element"

   913 	  domConfig "DOMConfiguration"

   914 	  canSet "Boolean"

   915 	  errorMonitor "DOMErrorMonitor"

   916 	  attr "Attr"

   917 	  attrValue "String"

   918 	  attrSpecified "Boolean"

   919 	|

   920 	"implementationAttribute not supported: namespaceAware"

   921 	"implementationAttribute not supported: validating"

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

   923 	domConfig := doc domConfig.

   924 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   925 	"if"

   926 	(canSet) ifTrue: [

   927 													].

   928 

   929 !

   930 

   931 test_canonicalform12

   932 	"

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

   934 DocumentType nodes are removed.

   935 

   936 		Creator: Curt Arnold

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

   938 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-canonical-form

   939 	"

   940 	|

   941 	  doc "Document"

   942 	  domConfig "DOMConfiguration"

   943 	  canSet "Boolean"

   944 	  errorMonitor "DOMErrorMonitor"

   945 	  doctype "DocumentType"

   946 	|

   947 	"implementationAttribute not supported: namespaceAware"

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

   949 	domConfig := doc domConfig.

   950 	canSet := domConfig canSetParameter: 'canonical-form' value: true.

   951 	"if"

   952 	(canSet) ifTrue: [

   953 							].

   954 

   955 !

   956 

   957 test_cdatasections01

   958 	"

   959 Normalize a document using Node.normalize and check that

   960 the value of the 'cdata-sections' parameter is ignored.

   961 

   962 		Creator: Curt Arnold

   963 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#ID-normalize

   964 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-cdata-sections

   965 	"

   966 	|

   967 	  doc "Document"

   968 	  elem "Element"

   969 	  newCdata "CDATASection"

   970 	  cdata "CDATASection"

   971 	  text "Node"

   972 	  nodeName "String"

   973 	  nodeValue "String"

   974 	  appendedChild "Node"

   975 	  domConfig "DOMConfiguration"

   976 	  pList "NodeList"

   977 	  errorMonitor "DOMErrorMonitor"

   978 	|

   979 	"implementationAttribute not supported: namespaceAware"

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

   981 	pList := doc  getElementsByTagName: 'p'.

   982 	elem := pList  item:0.

   983 	newCdata := doc  createCDATASection:'CDATA'.

   984 	appendedChild := elem  appendChild:newCdata.

   985 	domConfig := doc domConfig.

   986 	domConfig setParameter: 'cdata-sections' value: false.

   987 	domConfig setParameter: 'error-handler' value: errorMonitor.

   988 	doc  normalize.

   989 	errorMonitor  assertLowerSeverityFor: self message:'normalizationError' severity: DOMErrorMonitor SEVERITY_ERROR.

   990 	pList := doc  getElementsByTagName: 'p'.

   991 	elem := pList  item:0.

   992 	cdata := elem  lastChild.

   993 	nodeName := cdata  nodeName.

   994 	self assert: ( nodeName = '#cdata-section' ).

   995 

   996 !

   997 

   998 test_checkcharacternormalization01

   999 	"

  1000 Normalize document with check-character-normalization set to false, check that

  1001 no errors are dispatched.

  1002 

  1003 		Creator: Curt Arnold

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

  1005 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-check-character-normalization

  1006 		Subject http://www.w3.org/TR/2003/WD-charmod-20030822/

  1007 	"

  1008 	|

  1009 	  doc "Document"

  1010 	  docElem "Element"

  1011 	  domConfig "DOMConfiguration"

  1012 	  errorMonitor "DOMErrorMonitor"

  1013 	  pList "NodeList"

  1014 	  pElem "Element"

  1015 	  text "Text"

  1016 	  textValue "String"

  1017 	  retval "Node"

  1018 	|

  1019 	"implementationAttribute not supported: namespaceAware"

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

  1021 	domConfig := doc domConfig.

  1022 	domConfig setParameter: 'error-handler' value: errorMonitor.

  1023 	domConfig setParameter: 'check-character-normalization' value: false.

  1024 	pList := doc  getElementsByTagName: 'p'.

  1025 	pElem := pList  item:0.

  1026 	text := doc  createTextNode:'suçon'.

  1027 	retval := pElem  appendChild:text.

  1028 	doc  normalizeDocument.

  1029 	errorMonitor  assertLowerSeverityFor: self message:'normalizeError' severity: DOMErrorMonitor SEVERITY_ERROR.

  1030 	pList := doc  getElementsByTagName: 'p'.

  1031 	pElem := pList  item:0.

  1032 	text := pElem  firstChild.

  1033 	textValue := text  nodeValue.

  1034 	self assert: ( textValue = 'barsuçon' ).

  1035 

  1036 !

  1037 

  1038 test_checkcharacternormalization02

  1039 	"

  1040 Normalize document with check-character-normalization set to true, check that

  1041 non-normalized characters are signaled.

  1042 

  1043 		Creator: Curt Arnold

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

  1045 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-check-character-normalization

  1046 		Subject http://www.w3.org/TR/2003/WD-charmod-20030822/

  1047 	"

  1048 	|

  1049 	  doc "Document"

  1050 	  docElem "Element"

  1051 	  domConfig "DOMConfiguration"

  1052 	  errorMonitor "DOMErrorMonitor"

  1053 	  pList "NodeList"

  1054 	  pElem "Element"

  1055 	  text "Text"

  1056 	  textValue "String"

  1057 	  retval "Node"

  1058 	  canSet "Boolean"

  1059 	  errors "List"

  1060 	  error "DOMError"

  1061 	  severity "SmallInteger"

  1062 	  locator "DOMLocator"

  1063 	  relatedNode "Node"

  1064 	  errorCount "SmallInteger"

  1065 	  errorType "String"

  1066 	|

  1067 	"implementationAttribute not supported: namespaceAware"

  1068 	errorCount := 0.

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

  1070 	domConfig := doc domConfig.

  1071 	canSet := domConfig canSetParameter: 'check-character-normalization' value: true.

  1072 	"if"

  1073 	(canSet) ifTrue: [

  1074 										severity := error  severity.

  1075 	"if"

  1076 	( severity = 2 ) ifTrue: [

  1077 							].

  1078 		].

  1079 

  1080 !

  1081 

  1082 test_checkcharacternormalization03

  1083 	"

  1084 Normalize document using Node.normalize checking that  check-character-normalization 

  1085 is ignored.

  1086 

  1087 		Creator: Curt Arnold

  1088 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#ID-normalize

  1089 		Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-check-character-normalization

  1090 		Subject http://www.w3.org/TR/2003/WD-charmod-20030822/

  1091 	"

  1092 	|

  1093 	  doc "Document"

  1094 	  docElem "Element"

  1095 	  domConfig "DOMConfiguration"

  1096 	  errorMonitor "DOMErrorMonitor"

  1097 	  pList "NodeList"

  1098 	  pElem "Element"

  1099 	  text "Text"

  1100 	  textValue "String"

  1101 	  retval "Node"

  1102 	  canSet "Boolean"

  1103 	|

  1104 	"implementationAttribute not supported: namespaceAware"

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

  1106 	domConfig := doc domConfig.

  1107 	canSet := domConfig canSetParameter: 'check-character-normalization' value: true.

  1108 	"if"

  1109 	(canSet) ifTrue: [

  1110 														].

  1111 

  1112 !

  1113 

  1114 test_comments01

  1115         "

  1116 Check that Node.normalize ignores the setting of configuration parameter 'comments'.

  1117 

  1118                 Creator: Curt Arnold

  1119                 Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#ID-normalize

  1120                 Subject http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core#parameter-comments

  1121         "

  1122         |

  1123           doc "Document"

  1124           elem "Element"

  1125           newComment "Comment"

  1126           lastChild "Node"

  1127           text "Text"

  1128           nodeName "String"

  1129           appendedChild "Node"

  1130           domConfig "DOMConfiguration"

  1131           errorMonitor "DOMErrorMonitor"

  1132           pList "NodeList"

  1133         |

  1134         "implementationAttribute not supported: namespaceAware"

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