The Trunk: XML-Parser-ar.32.mcz

Andreas Raab uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-ar.32.mcz

==================== Summary ====================

Name: XML-Parser-ar.32
Author: ar
Time: 10 August 2010, 1:25:41.615 pm
UUID: 00d928a6-ebba-104d-a598-b96b4445f2e7
Ancestors: XML-Parser-mtf.30

Fix printing of XMLElements; add tests for behavior.

=============== Diff against XML-Parser-mtf.30 ===============

Item was added:
+ ----- Method: XMLParserTest>>testPrintElements (in category 'tests') -----
+ testPrintElements
+ | node |
+ node:= (XMLElement new) name: 'foo';
+ setAttributes: (Dictionary new);
+ yourself.
+ self assert: node asString withBlanksTrimmed = '<foo/>'.
+
+ node:= (XMLElement new) name: 'foo';
+ setAttributes: (Dictionary newFromPairs: {'id'. '123'});
+ yourself.
+ self assert: node asString withBlanksTrimmed = '<foo id="123"/>'.
+
+ node:= (XMLElement new) name: 'foo';
+ addContent: (XMLStringNode string: 'Hello World');
+ setAttributes: (Dictionary new);
+ yourself.
+ self assert: node asString withBlanksTrimmed = '<foo>Hello World</foo>'.
+
+ node:= (XMLElement new) name: 'foo';
+ addContent: (XMLStringNode string: 'Hello World');
+ setAttributes: (Dictionary newFromPairs: {'id'. '123'});
+ yourself.
+ self assert: node asString withBlanksTrimmed = '<foo id="123">Hello World</foo>'.
+
+ !

Item was changed:
  ----- Method: XMLElement>>isEmpty (in category 'testing') -----
  isEmpty
+ "Answer true if the receiver is empty"
+
+ ^self elementsAndContents isEmpty!
- ^self elements isEmpty!

Item was changed:
  ----- Method: XMLElement>>printXMLOn: (in category 'printing') -----
  printXMLOn: writer
+ "Print the receiver in XML form"
+
  writer startElement: self name attributeList: self attributes.
  (writer canonical not
+ and: [self isEmpty])
- and: [self isEmpty and: [self attributes isEmpty not]])
  ifTrue: [writer endEmptyTag: self name]
  ifFalse: [
  writer endTag.
  self elementsAndContentsDo: [:content | content printXMLOn: writer].
  writer endTag: self name]!