RegressionTests__HTMLParserTests.st
author matilk
Tue, 30 Jul 2019 16:26:19 +0200
changeset 2341 91b141d06afa
parent 2240 5a1495fa22bb
permissions -rw-r--r--
#FEATURE by Maren class: RegressionTests::HTMLParserTests added: #test08_ScriptWithCommentScript HTML with script within a comment in a script
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 360
diff changeset
     1
"{ Package: 'stx:goodies/regression' }"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     2
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     3
"{ NameSpace: RegressionTests }"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     4
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     5
TestCase subclass:#HTMLParserTests
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
1550
419ac7b220a4 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 1447
diff changeset
     9
	category:'tests-Regression-XML'
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    10
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    11
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    12
!HTMLParserTests class methodsFor:'documentation'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    13
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    14
documentation
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    15
"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    16
    documentation to be added.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    17
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    18
    [author:]
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 360
diff changeset
    19
	mb (mb@SUNGSAM)
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    20
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    21
    [instance variables:]
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    22
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    23
    [class variables:]
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    24
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    25
    [see also:]
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    26
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    27
"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    28
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    29
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    30
history
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    31
    "Created: / 15-01-2009 / 12:44:33 / mb"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    32
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    33
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    34
!HTMLParserTests methodsFor:'initialize / release'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    35
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    36
setUp
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    37
    "common setup - invoked before testing."
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    38
1662
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    39
    (Smalltalk classNamed:'stx_goodies_webServer_htmlTree') isNil ifTrue:[
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    40
        (Smalltalk loadPackage:'stx:goodies/webServer/htmlTree') ifFalse:[
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    41
            self error:'stx:goodies/webServer/htmlTree cannot be loaded'.
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    42
        ].
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    43
    ].
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    44
    (Smalltalk classNamed:'stx_goodies_webServer_htmlTree') load.
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    45
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    46
    "Modified: / 31-07-2017 / 11:40:25 / mawalch"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    47
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    48
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    49
tearDown
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    50
    "common cleanup - invoked after testing."
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    51
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    52
    super tearDown
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    53
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    54
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    55
!HTMLParserTests methodsFor:'tests'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    56
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    57
test01a
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    58
    "test the new parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    59
    
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    60
    |el|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    61
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    62
    el := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    63
<HEAD>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    64
</HEAD>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    65
'.
1677
308cf4307f5d #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 1662
diff changeset
    66
    "/ el inspect.
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    67
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    68
    "
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    69
     self new test01a
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    70
    "
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    71
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    72
    "Created: / 29-03-2019 / 10:35:20 / Claus Gittinger"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    73
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    74
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    75
test01b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    76
    "test the old parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    77
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    78
    |el|
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    79
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    80
    el := HTMLParser parseText:'
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    81
<HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    82
</HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    83
'.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    84
    "/ el inspect.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    85
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    86
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    87
     self new test01b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    88
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    89
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    90
    "Created: / 29-03-2019 / 10:35:27 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    91
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    92
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    93
test01c
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    94
    "test the old parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    95
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    96
    |el|
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    97
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    98
    el := HTMLParser parseText:'
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    99
<HTML>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   100
<HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   101
</HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   102
</HTML>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   103
'.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   104
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   105
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   106
     self new test01c
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   107
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   108
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   109
    "Created: / 29-03-2019 / 11:22:27 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   110
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   111
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   112
test02a
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   113
    "test the new parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   114
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   115
    |doc|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   116
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   117
    doc := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   118
<!!--
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   119
Copyright 2004 ThoughtWorks, Inc
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   120
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   121
 Licensed under the Apache License, Version 2.0 (the "License");
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   122
 you may not use this file except in compliance with the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   123
 You may obtain a copy of the License at
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   124
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   125
     http://www.apache.org/licenses/LICENSE-2.0
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   126
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   127
 Unless required by applicable law or agreed to in writing, software
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   128
 distributed under the License is distributed on an "AS IS" BASIS,
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   129
 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   130
 See the License for the specific language governing permissions and
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   131
 limitations under the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   132
-->
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   133
<html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   134
<head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   135
  <meta content="text/html; charset=ISO-8859-1"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   136
 http-equiv="content-type">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   137
  <title>Test Open</title>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   138
</head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   139
<body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   140
<table cellpadding="1" cellspacing="1" border="1">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   141
  <tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   142
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   143
      <td rowspan="1" colspan="3">Google Test Search<br>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   144
      </td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   145
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   146
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   147
      <td>open</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   148
      <td>http://www.google.com/webhp?hl=en</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   149
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   150
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   151
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   152
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   153
      <td>Google</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   154
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   155
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   156
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   157
      <td>type</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   158
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   159
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   160
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   161
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   162
      <td>verifyValue</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   163
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   164
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   165
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   166
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   167
      <td>clickAndWait</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   168
      <td>btnG</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   169
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   170
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   171
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   172
      <td>verifyTextPresent</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   173
      <td>openqa.org</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   174
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   175
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   176
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   177
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   178
      <td>Selenium OpenQA - Google Search</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   179
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   180
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   181
  </tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   182
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   183
</table>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   184
</body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   185
</html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   186
'.
1677
308cf4307f5d #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 1662
diff changeset
   187
    self assert:(doc children first tagName = 'head').
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   188
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   189
    "
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   190
     self new test02a
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   191
    "
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   192
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   193
    "Created: / 29-03-2019 / 10:35:45 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   194
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   195
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   196
test02b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   197
    "test the old parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   198
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   199
    |doc firstMarkup|
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   200
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   201
    doc := HTMLParser parseText:'
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   202
<!!--
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   203
Copyright 2004 ThoughtWorks, Inc
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   204
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   205
 Licensed under the Apache License, Version 2.0 (the "License");
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   206
 you may not use this file except in compliance with the License.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   207
 You may obtain a copy of the License at
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   208
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   209
     http://www.apache.org/licenses/LICENSE-2.0
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   210
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   211
 Unless required by applicable law or agreed to in writing, software
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   212
 distributed under the License is distributed on an "AS IS" BASIS,
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   213
 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   214
 See the License for the specific language governing permissions and
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   215
 limitations under the License.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   216
-->
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   217
<html>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   218
<head>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   219
  <meta content="text/html; charset=ISO-8859-1"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   220
 http-equiv="content-type">
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   221
  <title>Test Open</title>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   222
</head>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   223
<body>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   224
<table cellpadding="1" cellspacing="1" border="1">
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   225
  <tbody>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   226
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   227
      <td rowspan="1" colspan="3">Google Test Search<br>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   228
      </td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   229
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   230
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   231
      <td>open</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   232
      <td>http://www.google.com/webhp?hl=en</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   233
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   234
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   235
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   236
      <td>verifyTitle</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   237
      <td>Google</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   238
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   239
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   240
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   241
      <td>type</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   242
      <td>q</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   243
      <td>Selenium OpenQA</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   244
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   245
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   246
      <td>verifyValue</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   247
      <td>q</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   248
      <td>Selenium OpenQA</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   249
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   250
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   251
      <td>clickAndWait</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   252
      <td>btnG</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   253
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   254
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   255
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   256
      <td>verifyTextPresent</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   257
      <td>openqa.org</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   258
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   259
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   260
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   261
      <td>verifyTitle</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   262
      <td>Selenium OpenQA - Google Search</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   263
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   264
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   265
  </tbody>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   266
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   267
</table>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   268
</body>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   269
</html>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   270
'.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   271
    firstMarkup := doc markup.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   272
    firstMarkup isTextElement ifTrue:[
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   273
        firstMarkup := firstMarkup next
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   274
    ].    
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   275
    self assert:(firstMarkup tagName = 'html').
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   276
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   277
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   278
     self new test02b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   279
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   280
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   281
    "Created: / 29-03-2019 / 10:35:55 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   282
    "Modified: / 29-03-2019 / 11:54:05 / Claus Gittinger"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   283
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   284
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   285
test03
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   286
    |doc|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   287
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   288
    doc := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   289
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   290
<!!--
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   291
Copyright 2004 ThoughtWorks, Inc
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   292
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   293
 Licensed under the Apache License, Version 2.0 (the "License");
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   294
 you may not use this file except in compliance with the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   295
 You may obtain a copy of the License at
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   296
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   297
     http://www.apache.org/licenses/LICENSE-2.0
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   298
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   299
 Unless required by applicable law or agreed to in writing, software
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   300
 distributed under the License is distributed on an "AS IS" BASIS,
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   301
 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   302
 See the License for the specific language governing permissions and
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   303
 limitations under the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   304
-->
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   305
<html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   306
<head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   307
  <meta content="text/html; charset=ISO-8859-1"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   308
 http-equiv="content-type">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   309
  <title>Test Open</title>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   310
</head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   311
<body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   312
<table cellpadding="1" cellspacing="1" border="1">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   313
  <tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   314
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   315
      <td rowspan="1" colspan="3">Google Test Search<br>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   316
      </td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   317
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   318
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   319
      <td>open</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   320
      <td>http://www.google.com/webhp?hl=en</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   321
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   322
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   323
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   324
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   325
      <td>Google</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   326
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   327
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   328
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   329
      <td>type</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   330
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   331
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   332
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   333
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   334
      <td>verifyValue</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   335
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   336
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   337
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   338
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   339
      <td>clickAndWait</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   340
      <td>btnG</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   341
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   342
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   343
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   344
      <td>verifyTextPresent</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   345
      <td>openqa.org</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   346
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   347
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   348
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   349
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   350
      <td>Selenium OpenQA - Google Search</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   351
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   352
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   353
  </tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   354
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   355
</table>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   356
</body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   357
</html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   358
'.
360
9956901550ae caer for the docType
Claus Gittinger <cg@exept.de>
parents: 359
diff changeset
   359
    self assert:(doc children first tagName = 'head').
9956901550ae caer for the docType
Claus Gittinger <cg@exept.de>
parents: 359
diff changeset
   360
    self assert:(doc docType = '-//W3C//DTD HTML 4.01 Transitional//EN').
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   361
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   362
    "
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   363
     self new test03
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   364
    "
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   365
!
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   366
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   367
test04_style
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   368
    |doc headElement styleElement styleText|
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   369
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   370
    "/ verify: no ampersand escaping in style elements
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   371
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   372
    UserNotification ignoreIn:[
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   373
        doc := HTML::HTMLParser parseText:'
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   374
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   375
<html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   376
<head>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   377
<style>foo bar &bla &froboz &amp; &amp foo</style>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   378
</head>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   379
<body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   380
</body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   381
</html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   382
'.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   383
    ].
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   384
    headElement := doc children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   385
    self assert:(headElement tagName = 'head').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   386
    styleElement := headElement children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   387
    self assert:(styleElement tagName = 'style').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   388
    styleText := HTML::TextExtractor extractTextFromElement:styleElement.
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   389
    self assert:(styleText = 'foo bar &bla &froboz & &amp foo').
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   390
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   391
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   392
     self new test04_style
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   393
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   394
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   395
    "Created: / 27-06-2018 / 12:58:48 / Claus Gittinger"
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   396
    "Modified: / 16-07-2018 / 19:49:23 / Claus Gittinger"
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   397
!
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   398
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   399
test05_textExtraction
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   400
     |doc bodyElement p|
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   401
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   402
    "/ verify: no ampersand escaping in style elements
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   403
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   404
     UserNotification ignoreIn:[
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   405
        doc := HTML::HTMLParser parseText:'
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   406
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   407
<html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   408
<body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   409
<p>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   410
foo bar &bla &froboz &amp; &amp foo
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   411
</p>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   412
</body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   413
</html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   414
'.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   415
     ].
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   416
     bodyElement := doc body.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   417
     p := bodyElement children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   418
     self assert:(p extractedText = 'foo bar &bla &froboz & &amp foo').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   419
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   420
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   421
     self new test05_textExtraction
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   422
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   423
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   424
    "Created: / 27-06-2018 / 15:28:31 / Claus Gittinger"
1987
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   425
!
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   426
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   427
test06_comments
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   428
     |doc bodyElement|
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   429
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   430
    "/ verify: no ampersand escaping in style elements
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   431
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   432
     UserNotification ignoreIn:[
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   433
        doc := HTML::HTMLParser parseText:'
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   434
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   435
<html>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   436
<body>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   437
foo<!!--[foo]--><!!--bla-->bar
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   438
<!!--[foo]--><!!--bla-->
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   439
foo
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   440
<!!--[foo]--><!!--bla-->
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   441
bar
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   442
<!!--[foo]--><!!--bla-->
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   443
<p>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   444
foo bar &bla &froboz &amp; &amp foo
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   445
</p>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   446
</body>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   447
</html>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   448
'.
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   449
     ].
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   450
     bodyElement := doc body.
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   451
     self assert:(bodyElement extractedText = 'foo bar foo bar foo bar &bla &froboz & &amp foo').
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   452
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   453
    "
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   454
     self new test06_comments
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   455
    "
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   456
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   457
    "Created: / 16-07-2018 / 19:43:12 / Claus Gittinger"
2240
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   458
!
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   459
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   460
test07_badAttributeInEbayPage
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   461
     |doc|
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   462
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   463
    "/ when getting ebay's innerhtml, we get the following from firefox
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   464
    "/ (which is invalid in the '<a role="button" _sp="p2047675.l1473" ... line)
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   465
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   466
     UserNotification ignoreIn:[
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   467
        doc := HTML::HTMLParser parseText:'
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   468
<div class="c-std vi-ds3cont-box-marpad " expeccoid="5854a792-55e4-4e30-80b9-6f9256863e60">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   469
                <div class="actPanel  vi-noborder " expeccoid="07a6de1e-afe0-4f97-a6fc-5da0c713245a">   
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   470
                <table class="vi-bboxrev-tbl" expeccoid="97f87a2d-df4f-4036-a0cf-1457fddc6423" width="100%">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   471
                        <tbody expeccoid="c34fba5f-0727-4f8b-9f48-5f75c5c46025"><tr expeccoid="78e69257-8792-447e-a383-8860ed5a9181">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   472
                                <td expeccoid="9e5f8b64-7655-4e57-91bf-8651956fa738">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   473
                                <td class="vi-bboxrev-cntrcell" expeccoid="d20b7e71-f388-4d95-a28d-63fddbf7b738">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   474
        <div class="u-cb spcr  vi-bbox-spcr15 " expeccoid="694c0a74-4e12-44fc-b581-5317b823ab2d"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   475
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   476
                                <div class="u-cb" expeccoid="e2f09742-6068-4ba9-bec3-a3ae9d77a470">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   477
                                        <div class="vi-bbox-dspn u-flL lable binLable" id="prcIsum-lbl" expeccoid="e394142f-894f-479f-a7cd-c08915cbb0c6">Preis:</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   478
                                                <div id="vi-mskumap-none" style="" class="u-flL w29 vi-price " expeccoid="e3b55a6d-8605-438f-ab60-70701e7581ce">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   479
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   480
        <span class="notranslate" id="prcIsum" itemprop="price" style="" content="399.0" expeccoid="7a6c8689-32f5-4f50-a088-ff1be081d2f5">EUR 399,00</span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   481
                <span itemprop="availability" content="https://schema.org/InStock" expeccoid="3137ad87-1264-444b-9b85-98ef724ab76c"></span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   482
        <span itemprop="priceCurrency" content="EUR" expeccoid="350f8bf7-1514-4665-a94a-bf9fe97c1a05"></span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   483
        <!!--Added for VAT message - DE site. Show VAT included msg just below the price. Converted price message should come after this message.-->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   484
        <div class="vat" expeccoid="b21b28fe-b3b7-4def-963c-24a014b18adb">(inkl. MwSt.)</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   485
        <!!-- Vat Excluded message -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   486
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   487
<div id="isum-shipCostDiv" class=" sh-CostBB" style="clear: both; display: none;" expeccoid="71265b78-caf3-421b-b583-4f07b78c1492">Kostenloser Versand</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   488
                                                <span class="pdT8 " id="vi-bboxrev-othrprices" expeccoid="ad58ac0f-d6ca-4491-82a9-820c5080d953">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   489
                                                        </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   490
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   491
                                                <!!-- inserting code for another button -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   492
                                                <!!-- code ends  -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   493
                                                <div class="u-flL" expeccoid="32007685-f9ae-4e3b-a965-e15e349ea40d">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   494
                                                        <a role="button" _sp="p2047675.l1356" id="binBtn_btn" style="" class="btn btn-prim btn-m vi-VR-btnWdth-L " href="https://offer.ebay.de/ws/eBayISAPI.dll?BinConfirm&amp;rev=318&amp;fromPage=2047675&amp;item=372177206742&amp;fb=1" vib="vib" rel="nofollow" "="" expeccoid="48d25feb-7255-4db6-ac71-0236037cde12">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   495
                                                        Sofort-Kaufen<span class="clipped" expeccoid="c4033cd5-0b5a-4cdf-a84c-f25e0f69ba40"> - </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   496
                                                        </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   497
                                                <div class="oly_upnl" id="streamLineBinOly" expeccoid="eb5c3f3f-7d04-4c96-82cd-fa93a23e2ca2"><div id="streamline-bin-layer" expeccoid="af596b1f-d458-4a43-8301-7d5047c2f242">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   498
            <div id="streamline-bin-layer-content" expeccoid="b384cce2-5e1b-48a5-a8a7-ad4f7dc95ee1">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   499
                <div id="sbin-image-content" expeccoid="1be9cd52-8c2d-4132-8ac1-49b7b3fbcdad">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   500
                    <img id="sbin-image" src="" alt="Sessel-Loungesessel-Clubsessel-Stoff-blau-Sitzmoebel-Wohnmoebel-Frenco" expeccoid="da17cef8-be1f-43e4-90c4-fca6dfcec4f9">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   501
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   502
                <div id="sbin-text-content" expeccoid="832f96ee-e300-48e7-97c7-29b892330546">
2341
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   503
                    <p class="sbin-title" expeccoid="2132b498-9bee-4b28-a378-88d73eaf8a36">Sessel Loungesessel Clubsessel Stoff blau Sitzmöbel Wohnmöbel Frenco</p>
2240
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   504
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   505
            </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   506
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   507
            <div style="clear:both" expeccoid="a3e3867c-b660-40c3-8645-bbfc7e177d68"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   508
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   509
            <div id="sbin-buttons" expeccoid="0dab8f09-e50d-40a6-81bf-fe2117ba1b52">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   510
                <button id="sbin-signin-btn" type="button" expeccoid="94dc2fb8-5949-478f-aecf-d08d2357f924">Einloggen und zur Kasse gehen</button>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   511
                <button id="sbin-gxo-btn" type="button" expeccoid="f83fb1bc-8028-4e0f-b77d-331d9dbe917d">Als Gast kaufen</button>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   512
            </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   513
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   514
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   515
    </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   516
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   517
                                        </div>  
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   518
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   519
                                <div class="u-cb spcr vi-bbox-spcr10" expeccoid="c5773c82-b2e5-4406-b9cf-9f1f2ee07452"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   520
                <div class="u-cb  " expeccoid="e66441e7-b1f7-4342-a97f-587b9dd314ef">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   521
                                <div class="vi-bbox-dspn u-flL lable" expeccoid="4916b066-5ca8-4510-acad-f4ee7a5017f8">&nbsp;</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   522
                                <div class="vi-bbox-dspn u-flL w29" expeccoid="4887b323-d297-4eeb-936a-e4f4226a9899">&nbsp;</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   523
                                <span expeccoid="0cf4f8df-5d53-4697-b7b5-cf0b9efbaeee">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   524
                                                        <a role="button" _sp="p2047675.l1473" id="isCartBtn_btn" style="" class="btn btn-scnd btn-m vi-VR-btnWdth-L " href="https://cart.payments.ebay.de/sc/add?item=iid:372177206742,qty:1&amp;srt=01000400000050c9e6b4b7e8a98fa345bada6aa05c2af7b022564fa4af69bb2b1facef665ef094d1ceda6cf587b4f354495e3fde21224874629196b80aaf7e986322a17673f7dea6b072ca12d80bf48c979adbb385a72e&amp;ssPageName=CART:ATC" vib="vib" rel="nofollow" "="" expeccoid="5c24b1ee-b193-4794-890a-312def923271">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   525
                                                        In den Warenkorb<span class="clipped" expeccoid="e4f6e129-8b33-4734-b576-f374c1ee366f"> - </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   526
                                                        </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   527
                                                </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   528
                                                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   529
                        <div class="u-cb spcr" expeccoid="687b199a-e6b3-4e79-8312-92285ad6fd54"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   530
                        </td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   531
                        <td expeccoid="c7d638f3-694c-492d-a1d5-460480cec889">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   532
                        </tr>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   533
                        </tbody></table>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   534
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   535
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   536
        <div class="watchListCmp  vi-noborder " expeccoid="07cc69f9-d1da-4716-b789-ea1b1fe6ba6f">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   537
<table class="vi-bboxrev-tbl" expeccoid="961e3260-68d4-4b92-ae1b-3e1265f881fc" width="100%">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   538
                <tbody expeccoid="5fcb3674-b815-4c85-a480-f255702b01c4"><tr expeccoid="6418343d-da8c-4b9f-bf25-cbcc86060108">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   539
                        <td expeccoid="9f2682dc-ee1c-46b7-a086-88346fc64658">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   540
                        <td class="vi-bboxrev-cntrcell" expeccoid="f3084bc9-699e-4307-9242-397b6a7aef64">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   541
<div class=" " expeccoid="4d906144-37d4-4696-a1bd-e40874b36e5b">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   542
                                        <div id="vi-atl-lnk" class="vi-atw-btm-lnk  vi-cleanup-atwl " style="" expeccoid="2c4db542-baed-4fa5-b750-c817570a1611">                
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   543
                <a i="-99" n="Watch list" href="https://www.ebay.de/myb/WatchListAdd?_trksid=p2047675.l1360&amp;SubmitAction.AddToListVI=x&amp;item=372177206742&amp;rt=nc&amp;srt=01000400000050372e73209863317b49d8119703fe2fb3aaa8b66ea9efa1b79fe95e306c42112602d2e570dba2827bf74049b5375c671bde80c5ae3fa61295df5428006d35a0860ef486744ad734f9838bbb22dca3e30a&amp;wt=2177ec1ef2dd78e521c371b0d332689b&amp;ssPageName=VIP:watchlink:top:de&amp;sourcePage=4340" expeccoid="d4eb1d8d-9765-4648-aaad-9d0f5ace820b">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   544
                        <span class="vi-atw-icn" expeccoid="b526871c-5f30-4701-a2b9-d15cc864a476"></span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   545
                        <span class="vi-atw-txt" expeccoid="2b6115ed-c546-4e37-970c-c20c58bc185d">Auf die Beobachtungsliste</span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   546
                        <span class="vi-rmw-txt" expeccoid="08ac389a-394c-46dc-addf-16a3689df6ad">Beobachten beenden</span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   547
                </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   548
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   549
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   550
        <div id="vi-atw-full" class="vi-atw-btm-lnk " style="display:none;" expeccoid="dd577995-a50f-4df5-b8fa-710fc66efb24">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   551
                <span class="vi-atw-full-lnk" expeccoid="1de876fd-5971-46c9-a0cf-85e0424b499e">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   552
                        <span class="vi-atw-icn" expeccoid="64a42660-c60e-47f6-8795-6b7f13becbc9"></span><span class="vi-atw-txt" expeccoid="8cc5ee62-cdcf-4084-bcfd-1a9404ac9550">Ihre Beobachtungsliste ist voll.</span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   553
                </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   554
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   555
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   556
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   557
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   558
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   559
                                <div class="vi-bbox-dspn u-cb spcr" expeccoid="94ff49bd-a6bc-4178-8ab9-28a3a931ba98"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   560
                                <span class="vi-bbox-marLft20" expeccoid="48026109-1244-4da1-8c8d-01f2871cb1ca"><div class="vi-bbox-dspn u-flL lable" expeccoid="0611260a-c134-469e-acba-5cbe6bf87da3">&nbsp;</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   561
<div class="vi-bbox-dspn u-flL w29" expeccoid="70167017-7185-43f9-9265-fe7dcc238cbb">&nbsp;</div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   562
                </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   563
                                                                <div class="u-cb spcr vi-bbox-spcr22" expeccoid="4829f2b9-c5be-4231-8fbe-a696d1050512"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   564
                                                        </td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   565
                                                        <td expeccoid="a5388e20-8739-4594-9e3e-5afb826a6975">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   566
                                                </tr>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   567
                                        </tbody></table>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   568
                                </div><div id="why2buy" expeccoid="4dd9c815-7d7b-44ed-a621-6b7f9ec05bc4"><div class="w2b w2bsls" expeccoid="794cddbf-0231-4a1d-98f5-bf5eb9eb8d40">
2341
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   569
    <div class="w2b-cnt w2b-3 w2b-red" expeccoid="0f21cf97-b244-4591-a91f-4aebb1be933e"><span class="w2b-sgl" expeccoid="fdedce8d-4b45-46dc-bfb1-c3bf05452897">Inlandsversand und Rücksendung kostenlos</span></div>
2240
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   570
        <div class="w2b-cnt w2b-3 w2b-brdr" expeccoid="df7655ce-6661-46cb-8c9d-b449eb026c0f"><span class="w2b-sgl" expeccoid="9869da07-2f91-4392-971c-0d96e271d118">Versand aus Deutschland</span></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   571
        <div class="w2b-cnt w2b-3 w2b-brdr" expeccoid="68101fa3-aad3-474d-8556-e1024fc63832"><span class="w2b-sgl" expeccoid="fea7ce21-3bb2-4971-b7e6-945ce8e91870">9 Beobachter</span></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   572
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   573
</div></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   574
'.
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   575
     ].
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   576
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   577
    "
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   578
     self new test07_badAttributeInEbayPage
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   579
    "
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   580
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   581
    "Created: / 24-05-2019 / 14:34:10 / Claus Gittinger"
2341
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   582
!
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   583
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   584
test08_ScriptWithCommentScript
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   585
     |doc|
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   586
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   587
    "/ when getting ebay's innerhtml, we get the following from firefox
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   588
    "/ (which is invalid in the '<a role="button" _sp="p2047675.l1473" ... line)
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   589
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   590
     UserNotification ignoreIn:[
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   591
        doc := HTML::HTMLParser parseText:'
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   592
<html expeccoid="c8f07039-eaad-48b3-adbd-1a40c564043e"><head expeccoid="5c26724b-2ef1-45a8-bbc8-73fc68139187"></head>
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   593
<body>
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   594
        <script type="text/javascript" expeccoid="3fb6832a-6f1d-40e2-b21c-ba6c620b2a1e">
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   595
            <!!--
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   596
            document.write(''<script type="text/javascript" src=""></script>'');
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   597
            //-->
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   598
        </script>
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   599
</body></html>
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   600
'.
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   601
     ].
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   602
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   603
    "
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   604
     self new test08_ScriptWithCommentScript
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   605
    "
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   606
91b141d06afa #FEATURE by Maren
matilk
parents: 2240
diff changeset
   607
    "Created: / 30-07-2019 / 16:24:14 / Maren"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   608
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   609
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   610
!HTMLParserTests class methodsFor:'documentation'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   611
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   612
version
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   613
    ^ '$Header$'
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   614
!
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   615
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   616
version_CVS
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   617
    ^ '$Header$'
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   618
! !
1550
419ac7b220a4 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 1447
diff changeset
   619