--- a/RegressionTests__HTMLParserTests.st Mon Jul 16 19:47:29 2018 +0200
+++ b/RegressionTests__HTMLParserTests.st Mon Jul 16 19:49:33 2018 +0200
@@ -254,14 +254,14 @@
styleElement := headElement children first.
self assert:(styleElement tagName = 'style').
styleText := HTML::TextExtractor extractTextFromElement:styleElement.
- self assert:(styleText = 'foo bar &bla &froboz & & foo').
+ self assert:(styleText = 'foo bar &bla &froboz & & foo').
"
self new test04_style
"
"Created: / 27-06-2018 / 12:58:48 / Claus Gittinger"
- "Modified: / 27-06-2018 / 15:22:00 / Claus Gittinger"
+ "Modified: / 16-07-2018 / 19:49:23 / Claus Gittinger"
!
test05_textExtraction
@@ -329,5 +329,9 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !