The Trunk: XML-Parser-fbs.36.mcz

Frank Shearar uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-fbs.36.mcz

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

Name: XML-Parser-fbs.36
Author: fbs
Time: 6 November 2013, 6:44:04.952 pm
UUID: a2d9791a-c341-564b-9b57-a0fe9f42b66f
Ancestors: XML-Parser-ael.35

More #shouldnt:raise: Error fixes.

=============== Diff against XML-Parser-ael.35 ===============

Item was changed:
  ----- Method: XMLParserTest>>testExampleAddressBook (in category 'tests') -----
  testExampleAddressBook
  | tokenizer |
  "self debug: #testExampleAddressBook"
 
  tokenizer := XMLTokenizer on: self addressBookXML readStream.
 
  "We enumerate the first characters of the addressbook example. The file being parsed begins with <addressbook"
  self assert: tokenizer next = $<.
  self assert: tokenizer next = $a.
  self assert: tokenizer next = $d.
  self assert: tokenizer next = $d.
  self assert: tokenizer next = $r.
 
+ "This should not raise an exception."
+ [tokenizer next notNil] whileTrue: [].!
- self shouldnt: ([tokenizer next notNil] whileTrue: []) raise: Error. !

Item was changed:
  ----- Method: XMLParserTest>>testExampleAddressBookWithDTD (in category 'tests') -----
  testExampleAddressBookWithDTD
  | tokenizer |
  "XMLTokenizer exampleAddressBookWithDTD"
 
  tokenizer := XMLTokenizer on: self addressBookXMLWithDTD readStream.
+
+ "This should not raise an exception."
+ [tokenizer next notNil] whileTrue: [].!
- self shouldnt: ([tokenizer next notNil] whileTrue: []) raise: Error!