'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 9 March 2010 at 8:59:34 am'! TestCase subclass: #HtmlTokenizerTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Network-HTML-Tests'! !HtmlTokenizerTest methodsFor: 'Running' stamp: 'FBS 11/7/2003 23:09'! testEmptyTag | tok tag | tok := HtmlTokenizer on: ''. tag := tok next. self assert: (tag name = 'html'). self assert: (tag isNegated not). self assert: (tok atEnd).! !