Pharo
/
WebDriver
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More API implementation

This commit is contained in:
Daniel Ziltener 2022-05-17 02:37:54 +02:00
parent 4729a95bc9
commit fb36efdc5e
4 changed files with 114 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/WebDriver/WDElement.class.st
View File

@ -34,13 +34,34 @@ Class {
{ #category : #accessing } { #category : #accessing }
WDElement >> attribute: attr [ WDElement >> attribute: attr [
| result |
^ self driver result := self driver
sendWithSession: { } sendWithSession: { }
to: to:
'element/' , element , '/attribute/' 'element/' , element , '/attribute/'
, attr , attr
using: #GET using: #GET.
^ result = 'true' ifTrue: [ true ] ifFalse: [ result ].
]
{ #category : #accessing }
WDElement >> attributes [
| script result |
script := 'var items = {}; for (index = 0; index < arguments[0].attributes.length; ++index) { items[arguments[0].attributes[index].name] = arguments[0].attributes[index].value }; return items;'.
result := driver sendWithSession: { #script -> script }
to: 'element/' , element , '/execute/sync'
using: #POST.
^ result.
]
{ #category : #simulating }
WDElement >> clear [
self driver
sendWithSession: { }
to: 'element/' , element , '/clear'
using: #POST
] ]
{ #category : #simulating } { #category : #simulating }
@ -52,7 +73,7 @@ WDElement >> click [
using: #POST using: #POST
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> computedLabel [ WDElement >> computedLabel [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -60,7 +81,7 @@ WDElement >> computedLabel [
using: #GET using: #GET
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> computedRole [ WDElement >> computedRole [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -68,31 +89,31 @@ WDElement >> computedRole [
using: #GET using: #GET
] ]
{ #category : #accessing } { #category : #'private - utilities' }
WDElement >> driver [ WDElement >> driver [
^ driver ^ driver
] ]
{ #category : #accessing } { #category : #'private - utilities' }
WDElement >> driver: anObject [ WDElement >> driver: anObject [
driver := anObject driver := anObject
] ]
{ #category : #accessing } { #category : #'private - utilities' }
WDElement >> element [ WDElement >> element [
^ element ^ element
] ]
{ #category : #accessing } { #category : #'private - utilities' }
WDElement >> element: anObject [ WDElement >> element: anObject [
element := anObject element := anObject
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> isEnabled [ WDElement >> isEnabled [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -100,7 +121,7 @@ WDElement >> isEnabled [
using: #GET using: #GET
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> isSelected [ WDElement >> isSelected [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -108,7 +129,7 @@ WDElement >> isSelected [
using: #GET using: #GET
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> name [ WDElement >> name [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -127,7 +148,7 @@ WDElement >> property: attr [
using: #GET using: #GET
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> rect [ WDElement >> rect [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }
@ -135,7 +156,7 @@ WDElement >> rect [
using: #GET using: #GET
] ]
{ #category : #testing } { #category : #accessing }
WDElement >> text [ WDElement >> text [
^ self driver ^ self driver
sendWithSession: { } sendWithSession: { }

140
src/WebDriver/WDKeys.class.st
View File

@ -7,352 +7,352 @@ Class {
#category : #'WebDriver-Constants' #category : #'WebDriver-Constants'
} }
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> altLeft [ WDKeys class >> altLeft [
^ Character codePoint: 16rE00A asString ^ Character codePoint: 16rE00A asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> altRight [ WDKeys class >> altRight [
^ Character codePoint: 16rE0052 asString ^ Character codePoint: 16rE0052 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> arrowDown [ WDKeys class >> arrowDown [
^ Character codePoint: 16rE0015 asString ^ Character codePoint: 16rE0015 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> arrowLeft [ WDKeys class >> arrowLeft [
^ Character codePoint: 16rE0012 asString ^ Character codePoint: 16rE0012 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> arrowRight [ WDKeys class >> arrowRight [
^ Character codePoint: 16rE0014 asString ^ Character codePoint: 16rE0014 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> arrowUp [ WDKeys class >> arrowUp [
^ Character codePoint: 16rE0013 asString ^ Character codePoint: 16rE0013 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> backspace [ WDKeys class >> backspace [
^ Character codePoint: 16rE003 asString ^ Character codePoint: 16rE003 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> cancel [ WDKeys class >> cancel [
^ Character codePoint: 16rE001 asString ^ Character codePoint: 16rE001 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> clear [ WDKeys class >> clear [
^ Character codePoint: 16rE005 asString ^ Character codePoint: 16rE005 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> controlLeft [ WDKeys class >> controlLeft [
^ Character codePoint: 16rE009 asString ^ Character codePoint: 16rE009 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> controlRight [ WDKeys class >> controlRight [
^ Character codePoint: 16rE0051 asString ^ Character codePoint: 16rE0051 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> delete [ WDKeys class >> delete [
^ Character codePoint: 16rE0017 asString ^ Character codePoint: 16rE0017 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> end [ WDKeys class >> end [
^ Character codePoint: 16rE0010 asString ^ Character codePoint: 16rE0010 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> enter [ WDKeys class >> enter [
^ Character codePoint: 16rE007 asString ^ Character codePoint: 16rE007 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> equal [ WDKeys class >> equal [
^ Character codePoint: 16rE0019 asString ^ Character codePoint: 16rE0019 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> escape [ WDKeys class >> escape [
^ Character codePoint: 16rE00C asString ^ Character codePoint: 16rE00C asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f1 [ WDKeys class >> f1 [
^ Character codePoint: 16rE0031 asString ^ Character codePoint: 16rE0031 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f10 [ WDKeys class >> f10 [
^ Character codePoint: 16rE003A asString ^ Character codePoint: 16rE003A asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f11 [ WDKeys class >> f11 [
^ Character codePoint: 16rE003B asString ^ Character codePoint: 16rE003B asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f12 [ WDKeys class >> f12 [
^ Character codePoint: 16rE003C asString ^ Character codePoint: 16rE003C asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f2 [ WDKeys class >> f2 [
^ Character codePoint: 16rE0032 asString ^ Character codePoint: 16rE0032 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f3 [ WDKeys class >> f3 [
^ Character codePoint: 16rE0033 asString ^ Character codePoint: 16rE0033 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f4 [ WDKeys class >> f4 [
^ Character codePoint: 16rE0034 asString ^ Character codePoint: 16rE0034 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f5 [ WDKeys class >> f5 [
^ Character codePoint: 16rE0035 asString ^ Character codePoint: 16rE0035 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f6 [ WDKeys class >> f6 [
^ Character codePoint: 16rE0036 asString ^ Character codePoint: 16rE0036 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f7 [ WDKeys class >> f7 [
^ Character codePoint: 16rE0037 asString ^ Character codePoint: 16rE0037 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f8 [ WDKeys class >> f8 [
^ Character codePoint: 16rE0038 asString ^ Character codePoint: 16rE0038 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> f9 [ WDKeys class >> f9 [
^ Character codePoint: 16rE0039 asString ^ Character codePoint: 16rE0039 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> help [ WDKeys class >> help [
^ Character codePoint: 16rE002 asString ^ Character codePoint: 16rE002 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> home [ WDKeys class >> home [
^ Character codePoint: 16rE0011 asString ^ Character codePoint: 16rE0011 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> insert [ WDKeys class >> insert [
^ Character codePoint: 16rE0016 asString ^ Character codePoint: 16rE0016 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> metaLeft [ WDKeys class >> metaLeft [
^ Character codePoint: 16rE003D asString ^ Character codePoint: 16rE003D asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> metaRight [ WDKeys class >> metaRight [
^ Character codePoint: 16rE0053 asString ^ Character codePoint: 16rE0053 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num0 [ WDKeys class >> num0 [
^ Character codePoint: 16rE001A asString ^ Character codePoint: 16rE001A asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num1 [ WDKeys class >> num1 [
^ Character codePoint: 16rE001B asString ^ Character codePoint: 16rE001B asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num2 [ WDKeys class >> num2 [
^ Character codePoint: 16rE001C asString ^ Character codePoint: 16rE001C asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num3 [ WDKeys class >> num3 [
^ Character codePoint: 16rE001D asString ^ Character codePoint: 16rE001D asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num4 [ WDKeys class >> num4 [
^ Character codePoint: 16rE001E asString ^ Character codePoint: 16rE001E asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num5 [ WDKeys class >> num5 [
^ Character codePoint: 16rE001F asString ^ Character codePoint: 16rE001F asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num6 [ WDKeys class >> num6 [
^ Character codePoint: 16rE0020 asString ^ Character codePoint: 16rE0020 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num7 [ WDKeys class >> num7 [
^ Character codePoint: 16rE0021 asString ^ Character codePoint: 16rE0021 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num8 [ WDKeys class >> num8 [
^ Character codePoint: 16rE0022 asString ^ Character codePoint: 16rE0022 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> num9 [ WDKeys class >> num9 [
^ Character codePoint: 16rE0023 asString ^ Character codePoint: 16rE0023 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numArrowDown [ WDKeys class >> numArrowDown [
^ Character codePoint: 16rE005B asString ^ Character codePoint: 16rE005B asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numArrowLeft [ WDKeys class >> numArrowLeft [
^ Character codePoint: 16rE0058 asString ^ Character codePoint: 16rE0058 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numArrowRight [ WDKeys class >> numArrowRight [
^ Character codePoint: 16rE005A asString ^ Character codePoint: 16rE005A asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numArrowUp [ WDKeys class >> numArrowUp [
^ Character codePoint: 16rE0059 asString ^ Character codePoint: 16rE0059 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numComma [ WDKeys class >> numComma [
^ Character codePoint: 16rE0026 asString ^ Character codePoint: 16rE0026 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numDelete [ WDKeys class >> numDelete [
^ Character codePoint: 16rE005D asString ^ Character codePoint: 16rE005D asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numDot [ WDKeys class >> numDot [
^ Character codePoint: 16rE0028 asString ^ Character codePoint: 16rE0028 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numEnd [ WDKeys class >> numEnd [
^ Character codePoint: 16rE0056 asString ^ Character codePoint: 16rE0056 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numHome [ WDKeys class >> numHome [
^ Character codePoint: 16rE0057 asString ^ Character codePoint: 16rE0057 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numInsert [ WDKeys class >> numInsert [
^ Character codePoint: 16rE005C asString ^ Character codePoint: 16rE005C asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numMinus [ WDKeys class >> numMinus [
^ Character codePoint: 16rE0027 asString ^ Character codePoint: 16rE0027 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numPagedown [ WDKeys class >> numPagedown [
^ Character codePoint: 16rE0055 asString ^ Character codePoint: 16rE0055 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numPageup [ WDKeys class >> numPageup [
^ Character codePoint: 16rE0054 asString ^ Character codePoint: 16rE0054 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numPlus [ WDKeys class >> numPlus [
^ Character codePoint: 16rE0025 asString ^ Character codePoint: 16rE0025 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numSlash [ WDKeys class >> numSlash [
^ Character codePoint: 16rE0029 asString ^ Character codePoint: 16rE0029 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> numStar [ WDKeys class >> numStar [
^ Character codePoint: 16rE0024 asString ^ Character codePoint: 16rE0024 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> pagedown [ WDKeys class >> pagedown [
^ Character codePoint: 16rE00F asString ^ Character codePoint: 16rE00F asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> pageup [ WDKeys class >> pageup [
^ Character codePoint: 16rE00E asString ^ Character codePoint: 16rE00E asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> pause [ WDKeys class >> pause [
^ Character codePoint: 16rE00B asString ^ Character codePoint: 16rE00B asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> return [ WDKeys class >> return [
^ Character codePoint: 16rE006 asString ^ Character codePoint: 16rE006 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> semicolon [ WDKeys class >> semicolon [
^ Character codePoint: 16rE0018 asString ^ Character codePoint: 16rE0018 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> shiftLeft [ WDKeys class >> shiftLeft [
^ Character codePoint: 16rE008 asString ^ Character codePoint: 16rE008 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> shiftRight [ WDKeys class >> shiftRight [
^ Character codePoint: 16rE0050 asString ^ Character codePoint: 16rE0050 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> space [ WDKeys class >> space [
^ Character codePoint: 16rE00D asString ^ Character codePoint: 16rE00D asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> tab [ WDKeys class >> tab [
^ Character codePoint: 16rE004 asString ^ Character codePoint: 16rE004 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> unidentified [ WDKeys class >> unidentified [
^ Character codePoint: 16rE000 asString ^ Character codePoint: 16rE000 asString
] ]
{ #category : #'accessing - token' } { #category : #constants }
WDKeys class >> zenkakuhankaku [ WDKeys class >> zenkakuhankaku [
^ Character codePoint: 16rE0040 asString ^ Character codePoint: 16rE0040 asString
] ]

10
src/WebDriver/WDLocationStrategy.class.st
View File

@ -7,27 +7,27 @@ Class {
#category : #'WebDriver-Constants' #category : #'WebDriver-Constants'
} }
{ #category : #'as yet unclassified' } { #category : #constants }
WDLocationStrategy class >> cssSelector [ WDLocationStrategy class >> cssSelector [
^'css selector'. ^'css selector'.
] ]
{ #category : #'as yet unclassified' } { #category : #constants }
WDLocationStrategy class >> linkText [ WDLocationStrategy class >> linkText [
^'link text'. ^'link text'.
] ]
{ #category : #'as yet unclassified' } { #category : #constants }
WDLocationStrategy class >> partialLinkText [ WDLocationStrategy class >> partialLinkText [
^'partial link text'. ^'partial link text'.
] ]
{ #category : #accessing } { #category : #constants }
WDLocationStrategy class >> tagName [ WDLocationStrategy class >> tagName [
^'tag name'. ^'tag name'.
] ]
{ #category : #'as yet unclassified' } { #category : #constants }
WDLocationStrategy class >> xPath [ WDLocationStrategy class >> xPath [
^'xpath'. ^'xpath'.
] ]

5
src/WebDriver/WebDriver.class.st
View File

@ -206,6 +206,11 @@ WebDriver >> session: capabilities [
^ sessionId ] ^ sessionId ]
] ]
{ #category : #'private - utilities' }
WebDriver >> sessionId [
^ sessionId
]
{ #category : #accessing } { #category : #accessing }
WebDriver >> source [ WebDriver >> source [