RegressionTests__HTMLParserTests.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327 bf482d49aeaf
parent 2240 5a1495fa22bb
child 2341 91b141d06afa
permissions -rw-r--r--
#QUALITY by exept class: RegressionTests::StringTests added: #test82c_expanding
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
     1
"{ Encoding: utf8 }"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
     2
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 360
diff changeset
     3
"{ Package: 'stx:goodies/regression' }"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     4
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     5
"{ NameSpace: RegressionTests }"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     6
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     7
TestCase subclass:#HTMLParserTests
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     8
	instanceVariableNames:''
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
     9
	classVariableNames:''
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    10
	poolDictionaries:''
1550
419ac7b220a4 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 1447
diff changeset
    11
	category:'tests-Regression-XML'
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    12
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    13
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    14
!HTMLParserTests class methodsFor:'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
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    17
"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    18
    documentation to be added.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    19
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    20
    [author:]
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 360
diff changeset
    21
	mb (mb@SUNGSAM)
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    22
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    23
    [instance 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
    [class variables:]
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    26
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    27
    [see also:]
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
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    31
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    32
history
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    33
    "Created: / 15-01-2009 / 12:44:33 / mb"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    34
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    35
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    36
!HTMLParserTests methodsFor:'initialize / release'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    37
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    38
setUp
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    39
    "common setup - invoked before testing."
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    40
1662
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    41
    (Smalltalk classNamed:'stx_goodies_webServer_htmlTree') isNil ifTrue:[
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    42
        (Smalltalk loadPackage:'stx:goodies/webServer/htmlTree') ifFalse:[
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    43
            self error:'stx:goodies/webServer/htmlTree cannot be loaded'.
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    44
        ].
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    45
    ].
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    46
    (Smalltalk classNamed:'stx_goodies_webServer_htmlTree') load.
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    47
bf66d3880737 #BUGFIX by mawalch
mawalch
parents: 1550
diff changeset
    48
    "Modified: / 31-07-2017 / 11:40:25 / mawalch"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    49
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    50
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    51
tearDown
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    52
    "common cleanup - invoked after testing."
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    53
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    54
    super tearDown
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    55
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    56
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    57
!HTMLParserTests methodsFor:'tests'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    58
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    59
test01a
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    60
    "test the new parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    61
    
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    62
    |el|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    63
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    64
    el := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    65
<HEAD>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    66
</HEAD>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    67
'.
1677
308cf4307f5d #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 1662
diff changeset
    68
    "/ el inspect.
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    69
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
     self new test01a
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    72
    "
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    73
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    74
    "Created: / 29-03-2019 / 10:35:20 / Claus Gittinger"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    75
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
    76
2202
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    77
test01b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    78
    "test the old parser"
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|
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    81
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    82
    el := HTMLParser parseText:'
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    83
<HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    84
</HEAD>
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
    "/ el inspect.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    87
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
     self new test01b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    90
    "
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
    "Created: / 29-03-2019 / 10:35:27 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    93
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    94
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    95
test01c
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    96
    "test the old parser"
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|
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
    99
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   100
    el := HTMLParser parseText:'
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   101
<HTML>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   102
<HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   103
</HEAD>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   104
</HTML>
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
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
     self new test01c
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   109
    "
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
    "Created: / 29-03-2019 / 11:22:27 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   112
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   113
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   114
test02a
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   115
    "test the new parser"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   116
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   117
    |doc|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   118
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   119
    doc := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   120
<!!--
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   121
Copyright 2004 ThoughtWorks, Inc
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   122
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   123
 Licensed under the Apache License, Version 2.0 (the "License");
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   124
 you may not use this file except in compliance with the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   125
 You may obtain a copy of the License at
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   126
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   127
     http://www.apache.org/licenses/LICENSE-2.0
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   128
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   129
 Unless required by applicable law or agreed to in writing, software
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   130
 distributed under the License is distributed on an "AS IS" BASIS,
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   131
 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   132
 See the License for the specific language governing permissions and
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   133
 limitations under the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   134
-->
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   135
<html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   136
<head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   137
  <meta content="text/html; charset=ISO-8859-1"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   138
 http-equiv="content-type">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   139
  <title>Test Open</title>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   140
</head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   141
<body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   142
<table cellpadding="1" cellspacing="1" border="1">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   143
  <tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   144
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   145
      <td rowspan="1" colspan="3">Google Test Search<br>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   146
      </td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   147
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   148
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   149
      <td>open</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   150
      <td>http://www.google.com/webhp?hl=en</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   151
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   152
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   153
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   154
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   155
      <td>Google</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   156
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   157
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   158
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   159
      <td>type</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   160
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   161
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   162
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   163
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   164
      <td>verifyValue</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   165
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   166
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   167
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   168
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   169
      <td>clickAndWait</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   170
      <td>btnG</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   171
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   172
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   173
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   174
      <td>verifyTextPresent</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   175
      <td>openqa.org</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   176
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   177
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   178
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   179
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   180
      <td>Selenium OpenQA - Google Search</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   181
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   182
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   183
  </tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   184
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   185
</table>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   186
</body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   187
</html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   188
'.
1677
308cf4307f5d #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 1662
diff changeset
   189
    self assert:(doc children first tagName = 'head').
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   190
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
     self new test02a
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   193
    "
2202
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
    "Created: / 29-03-2019 / 10:35:45 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   196
!
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   197
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   198
test02b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   199
    "test the old parser"
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 firstMarkup|
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
    doc := HTMLParser parseText:'
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
Copyright 2004 ThoughtWorks, Inc
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   206
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   207
 Licensed under the Apache License, Version 2.0 (the "License");
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   208
 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
   209
 You may obtain a copy of the License at
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
     http://www.apache.org/licenses/LICENSE-2.0
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   212
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   213
 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
   214
 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
   215
 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
   216
 See the License for the specific language governing permissions and
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   217
 limitations under the License.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   218
-->
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   219
<html>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   220
<head>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   221
  <meta content="text/html; charset=ISO-8859-1"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   222
 http-equiv="content-type">
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   223
  <title>Test Open</title>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   224
</head>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   225
<body>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   226
<table cellpadding="1" cellspacing="1" border="1">
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   227
  <tbody>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   228
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   229
      <td rowspan="1" colspan="3">Google Test Search<br>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   230
      </td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   231
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   232
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   233
      <td>open</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   234
      <td>http://www.google.com/webhp?hl=en</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   235
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   236
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   237
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   238
      <td>verifyTitle</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   239
      <td>Google</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   240
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   241
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   242
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   243
      <td>type</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   244
      <td>q</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   245
      <td>Selenium OpenQA</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   246
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   247
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   248
      <td>verifyValue</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   249
      <td>q</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   250
      <td>Selenium OpenQA</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   251
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   252
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   253
      <td>clickAndWait</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   254
      <td>btnG</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   255
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   256
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   257
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   258
      <td>verifyTextPresent</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   259
      <td>openqa.org</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   260
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   261
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   262
    <tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   263
      <td>verifyTitle</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   264
      <td>Selenium OpenQA - Google Search</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   265
      <td>&nbsp;</td>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   266
    </tr>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   267
  </tbody>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   268
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   269
</table>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   270
</body>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   271
</html>
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   272
'.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   273
    firstMarkup := doc markup.
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   274
    firstMarkup isTextElement ifTrue:[
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   275
        firstMarkup := firstMarkup next
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
    self assert:(firstMarkup tagName = 'html').
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   278
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
     self new test02b
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   281
    "
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   282
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   283
    "Created: / 29-03-2019 / 10:35:55 / Claus Gittinger"
145d31a73d22 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 2158
diff changeset
   284
    "Modified: / 29-03-2019 / 11:54:05 / Claus Gittinger"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   285
!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   286
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   287
test03
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   288
    |doc|
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   289
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   290
    doc := HTML::HTMLParser parseText:'
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   291
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   292
<!!--
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   293
Copyright 2004 ThoughtWorks, Inc
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   294
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   295
 Licensed under the Apache License, Version 2.0 (the "License");
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   296
 you may not use this file except in compliance with the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   297
 You may obtain a copy of the License at
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   298
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   299
     http://www.apache.org/licenses/LICENSE-2.0
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   300
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   301
 Unless required by applicable law or agreed to in writing, software
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   302
 distributed under the License is distributed on an "AS IS" BASIS,
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   303
 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   304
 See the License for the specific language governing permissions and
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   305
 limitations under the License.
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   306
-->
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   307
<html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   308
<head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   309
  <meta content="text/html; charset=ISO-8859-1"
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   310
 http-equiv="content-type">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   311
  <title>Test Open</title>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   312
</head>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   313
<body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   314
<table cellpadding="1" cellspacing="1" border="1">
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   315
  <tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   316
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   317
      <td rowspan="1" colspan="3">Google Test Search<br>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   318
      </td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   319
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   320
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   321
      <td>open</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   322
      <td>http://www.google.com/webhp?hl=en</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   323
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   324
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   325
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   326
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   327
      <td>Google</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   328
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   329
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   330
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   331
      <td>type</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   332
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   333
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   334
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   335
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   336
      <td>verifyValue</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   337
      <td>q</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   338
      <td>Selenium OpenQA</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   339
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   340
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   341
      <td>clickAndWait</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   342
      <td>btnG</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   343
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   344
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   345
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   346
      <td>verifyTextPresent</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   347
      <td>openqa.org</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   348
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   349
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   350
    <tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   351
      <td>verifyTitle</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   352
      <td>Selenium OpenQA - Google Search</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   353
      <td>&nbsp;</td>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   354
    </tr>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   355
  </tbody>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   356
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   357
</table>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   358
</body>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   359
</html>
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   360
'.
360
9956901550ae caer for the docType
Claus Gittinger <cg@exept.de>
parents: 359
diff changeset
   361
    self assert:(doc children first tagName = 'head').
9956901550ae caer for the docType
Claus Gittinger <cg@exept.de>
parents: 359
diff changeset
   362
    self assert:(doc docType = '-//W3C//DTD HTML 4.01 Transitional//EN').
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   363
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   364
    "
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   365
     self new test03
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   366
    "
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   367
!
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   368
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   369
test04_style
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   370
    |doc headElement styleElement styleText|
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
    "/ verify: no ampersand escaping in style elements
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   373
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   374
    UserNotification ignoreIn:[
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   375
        doc := HTML::HTMLParser parseText:'
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   376
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   377
<html>
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
<style>foo bar &bla &froboz &amp; &amp foo</style>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   380
</head>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   381
<body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   382
</body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   383
</html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   384
'.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   385
    ].
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   386
    headElement := doc children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   387
    self assert:(headElement tagName = 'head').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   388
    styleElement := headElement children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   389
    self assert:(styleElement tagName = 'style').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   390
    styleText := HTML::TextExtractor extractTextFromElement:styleElement.
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   391
    self assert:(styleText = 'foo bar &bla &froboz & &amp foo').
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   392
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
     self new test04_style
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   395
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   396
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   397
    "Created: / 27-06-2018 / 12:58:48 / Claus Gittinger"
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   398
    "Modified: / 16-07-2018 / 19:49:23 / Claus Gittinger"
1975
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   399
!
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   400
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   401
test05_textExtraction
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   402
     |doc bodyElement p|
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
    "/ verify: no ampersand escaping in style elements
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   405
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   406
     UserNotification ignoreIn:[
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   407
        doc := HTML::HTMLParser parseText:'
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   408
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   409
<html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   410
<body>
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
foo bar &bla &froboz &amp; &amp foo
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   413
</p>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   414
</body>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   415
</html>
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   416
'.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   417
     ].
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   418
     bodyElement := doc body.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   419
     p := bodyElement children first.
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   420
     self assert:(p extractedText = 'foo bar &bla &froboz & &amp foo').
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   421
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
     self new test05_textExtraction
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   424
    "
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   425
6e10a8a87a04 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   426
    "Created: / 27-06-2018 / 15:28:31 / Claus Gittinger"
1987
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   427
!
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   428
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   429
test06_comments
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   430
     |doc bodyElement|
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
    "/ verify: no ampersand escaping in style elements
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   433
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   434
     UserNotification ignoreIn:[
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   435
        doc := HTML::HTMLParser parseText:'
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   436
<!!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   437
<html>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   438
<body>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   439
foo<!!--[foo]--><!!--bla-->bar
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
foo
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
bar
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   444
<!!--[foo]--><!!--bla-->
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
foo bar &bla &froboz &amp; &amp foo
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   447
</p>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   448
</body>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   449
</html>
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   450
'.
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   451
     ].
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   452
     bodyElement := doc body.
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   453
     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
   454
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
     self new test06_comments
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   457
    "
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   458
cefeb09f2d49 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1975
diff changeset
   459
    "Created: / 16-07-2018 / 19:43:12 / Claus Gittinger"
2240
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   460
!
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   461
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   462
test07_badAttributeInEbayPage
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   463
     |doc|
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   464
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   465
    "/ when getting ebay's innerhtml, we get the following from firefox
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   466
    "/ (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
   467
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   468
     UserNotification ignoreIn:[
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   469
        doc := HTML::HTMLParser parseText:'
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   470
<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
   471
                <div class="actPanel  vi-noborder " expeccoid="07a6de1e-afe0-4f97-a6fc-5da0c713245a">   
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   472
                <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
   473
                        <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
   474
                                <td expeccoid="9e5f8b64-7655-4e57-91bf-8651956fa738">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   475
                                <td class="vi-bboxrev-cntrcell" expeccoid="d20b7e71-f388-4d95-a28d-63fddbf7b738">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   476
        <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
   477
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   478
                                <div class="u-cb" expeccoid="e2f09742-6068-4ba9-bec3-a3ae9d77a470">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   479
                                        <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
   480
                                                <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
   481
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   482
        <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
   483
                <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
   484
        <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
   485
        <!!--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
   486
        <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
   487
        <!!-- Vat Excluded message -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   488
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   489
<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
   490
                                                <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
   491
                                                        </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   492
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   493
                                                <!!-- inserting code for another button -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   494
                                                <!!-- code ends  -->
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   495
                                                <div class="u-flL" expeccoid="32007685-f9ae-4e3b-a965-e15e349ea40d">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   496
                                                        <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
   497
                                                        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
   498
                                                        </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   499
                                                <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
   500
            <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
   501
                <div id="sbin-image-content" expeccoid="1be9cd52-8c2d-4132-8ac1-49b7b3fbcdad">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   502
                    <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
   503
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   504
                <div id="sbin-text-content" expeccoid="832f96ee-e300-48e7-97c7-29b892330546">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   505
                    <p class="sbin-title" expeccoid="2132b498-9bee-4b28-a378-88d73eaf8a36">Sessel Loungesessel Clubsessel Stoff blau Sitzmöbel Wohnmöbel Frenco</p>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   506
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   507
            </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 style="clear:both" expeccoid="a3e3867c-b660-40c3-8645-bbfc7e177d68"></div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   510
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   511
            <div id="sbin-buttons" expeccoid="0dab8f09-e50d-40a6-81bf-fe2117ba1b52">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   512
                <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
   513
                <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
   514
            </div>
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
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
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   519
                                        </div>  
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   520
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   521
                                <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
   522
                <div class="u-cb  " expeccoid="e66441e7-b1f7-4342-a97f-587b9dd314ef">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   523
                                <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
   524
                                <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
   525
                                <span expeccoid="0cf4f8df-5d53-4697-b7b5-cf0b9efbaeee">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   526
                                                        <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
   527
                                                        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
   528
                                                        </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   529
                                                </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   530
                                                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   531
                        <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
   532
                        </td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   533
                        <td expeccoid="c7d638f3-694c-492d-a1d5-460480cec889">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   534
                        </tr>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   535
                        </tbody></table>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   536
                </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   537
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   538
        <div class="watchListCmp  vi-noborder " expeccoid="07cc69f9-d1da-4716-b789-ea1b1fe6ba6f">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   539
<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
   540
                <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
   541
                        <td expeccoid="9f2682dc-ee1c-46b7-a086-88346fc64658">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   542
                        <td class="vi-bboxrev-cntrcell" expeccoid="f3084bc9-699e-4307-9242-397b6a7aef64">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   543
<div class=" " expeccoid="4d906144-37d4-4696-a1bd-e40874b36e5b">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   544
                                        <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
   545
                <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
   546
                        <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
   547
                        <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
   548
                        <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
   549
                </a>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   550
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   551
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   552
        <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
   553
                <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
   554
                        <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
   555
                </span>
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
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   559
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   560
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   561
                                <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
   562
                                <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
   563
<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
   564
                </span>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   565
                                                                <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
   566
                                                        </td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   567
                                                        <td expeccoid="a5388e20-8739-4594-9e3e-5afb826a6975">&nbsp;</td>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   568
                                                </tr>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   569
                                        </tbody></table>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   570
                                </div><div id="why2buy" expeccoid="4dd9c815-7d7b-44ed-a621-6b7f9ec05bc4"><div class="w2b w2bsls" expeccoid="794cddbf-0231-4a1d-98f5-bf5eb9eb8d40">
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   571
    <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>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   572
        <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
   573
        <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
   574
        </div>
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   575
</div></div>
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
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
     self new test07_badAttributeInEbayPage
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   581
    "
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   582
5a1495fa22bb #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
   583
    "Created: / 24-05-2019 / 14:34:10 / Claus Gittinger"
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   584
! !
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   585
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   586
!HTMLParserTests class methodsFor:'documentation'!
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   587
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   588
version
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   589
    ^ '$Header$'
1988
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   590
!
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   591
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   592
version_CVS
5960dfd0abd7 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 1987
diff changeset
   593
    ^ '$Header$'
359
6bee96fa6cc1 initial checkin
Michael Beyl <mb@exept.de>
parents:
diff changeset
   594
! !
1550
419ac7b220a4 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 1447
diff changeset
   595