"{ Encoding: utf8 }"
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#HTMLParserTests
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-XML'
!
!HTMLParserTests class methodsFor:'documentation'!
documentation
"
documentation to be added.
[author:]
mb (mb@SUNGSAM)
[instance variables:]
[class variables:]
[see also:]
"
!
history
"Created: / 15-01-2009 / 12:44:33 / mb"
! !
!HTMLParserTests methodsFor:'initialize / release'!
setUp
"common setup - invoked before testing."
(Smalltalk classNamed:'stx_goodies_webServer_htmlTree') isNil ifTrue:[
(Smalltalk loadPackage:'stx:goodies/webServer/htmlTree') ifFalse:[
self error:'stx:goodies/webServer/htmlTree cannot be loaded'.
].
].
(Smalltalk classNamed:'stx_goodies_webServer_htmlTree') load.
"Modified: / 31-07-2017 / 11:40:25 / mawalch"
!
tearDown
"common cleanup - invoked after testing."
super tearDown
! !
!HTMLParserTests methodsFor:'tests'!
test01
|el|
el := HTML::HTMLParser parseText:'
<HEAD>
</HEAD>
'.
"/ el inspect.
"
self new test01
"
!
test02
|doc|
doc := HTML::HTMLParser parseText:'
<!!--
Copyright 2004 ThoughtWorks, Inc
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-->
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="content-type">
<title>Test Open</title>
</head>
<body>
<table cellpadding="1" cellspacing="1" border="1">
<tbody>
<tr>
<td rowspan="1" colspan="3">Google Test Search<br>
</td>
</tr>
<tr>
<td>open</td>
<td>http://www.google.com/webhp?hl=en</td>
<td> </td>
</tr>
<tr>
<td>verifyTitle</td>
<td>Google</td>
<td> </td>
</tr>
<tr>
<td>type</td>
<td>q</td>
<td>Selenium OpenQA</td>
</tr>
<tr>
<td>verifyValue</td>
<td>q</td>
<td>Selenium OpenQA</td>
</tr>
<tr>
<td>clickAndWait</td>
<td>btnG</td>
<td> </td>
</tr>
<tr>
<td>verifyTextPresent</td>
<td>openqa.org</td>
<td> </td>
</tr>
<tr>
<td>verifyTitle</td>
<td>Selenium OpenQA - Google Search</td>
<td> </td>
</tr>
</tbody>
</table>
</body>
</html>
'.
self assert:(doc children first tagName = 'head').
"
self new test02
"
!
test03
|doc|
doc := HTML::HTMLParser parseText:'
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!!--
Copyright 2004 ThoughtWorks, Inc
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-->
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="content-type">
<title>Test Open</title>
</head>
<body>
<table cellpadding="1" cellspacing="1" border="1">
<tbody>
<tr>
<td rowspan="1" colspan="3">Google Test Search<br>
</td>
</tr>
<tr>
<td>open</td>
<td>http://www.google.com/webhp?hl=en</td>
<td> </td>
</tr>
<tr>
<td>verifyTitle</td>
<td>Google</td>
<td> </td>
</tr>
<tr>
<td>type</td>
<td>q</td>
<td>Selenium OpenQA</td>
</tr>
<tr>
<td>verifyValue</td>
<td>q</td>
<td>Selenium OpenQA</td>
</tr>
<tr>
<td>clickAndWait</td>
<td>btnG</td>
<td> </td>
</tr>
<tr>
<td>verifyTextPresent</td>
<td>openqa.org</td>
<td> </td>
</tr>
<tr>
<td>verifyTitle</td>
<td>Selenium OpenQA - Google Search</td>
<td> </td>
</tr>
</tbody>
</table>
</body>
</html>
'.
self assert:(doc children first tagName = 'head').
self assert:(doc docType = '-//W3C//DTD HTML 4.01 Transitional//EN').
"
self new test03
"
!
test04_style
|doc headElement styleElement styleText|
"/ verify: no ampersand escaping in style elements
UserNotification ignoreIn:[
doc := HTML::HTMLParser parseText:'
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style>foo bar &bla &froboz & & foo</style>
</head>
<body>
</body>
</html>
'.
].
headElement := doc children first.
self assert:(headElement tagName = 'head').
styleElement := headElement children first.
self assert:(styleElement tagName = 'style').
styleText := HTML::TextExtractor extractTextFromElement:styleElement.
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"
!
test05_textExtraction
|doc bodyElement p|
"/ verify: no ampersand escaping in style elements
UserNotification ignoreIn:[
doc := HTML::HTMLParser parseText:'
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<body>
<p>
foo bar &bla &froboz & & foo
</p>
</body>
</html>
'.
].
bodyElement := doc body.
p := bodyElement children first.
self assert:(p extractedText = 'foo bar &bla &froboz & & foo').
"
self new test05_textExtraction
"
"Created: / 27-06-2018 / 15:28:31 / Claus Gittinger"
! !
!HTMLParserTests class methodsFor:'documentation'!
version
^ '$Header$'
! !