aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 04:07:14 +03:00
Code Issues Projects Releases Wiki Activity

[tests] Fix

Browse Source
This commit is contained in:
Artyom 2016-09-03 22:03:38 +03:00
parent 4a924f4088
commit b5d73f3723
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/WebSpec.hs
View File

@ -446,9 +446,12 @@ selectDropdown
selectDropdown sel opt = void
(executeJS [JSArg sel, JSArg opt]
"sel=arguments[0];opt=arguments[1];\
\for (var i=0;i<sel.options.length;i++)\
\{if (sel.options[i]==opt)\
\{sel.selectedIndex=i;sel.onchange();break;}}" :: WD (Maybe ()))
\for (var i=0;i<sel.options.length;i++) {\
\ if (sel.options[i]==opt) {\
\ sel.selectedIndex=i;\
\ sel.onchange && sel.onchange();\
\ break; }}"
:: WD (Maybe ()))
getDescendants :: Element -> WD [Element]
getDescendants e = findElemsFrom e (ByXPath ".//*")