@ -108,34 +108,34 @@ $d->scroll_to_element($d->find_element("Remote Authentication", 'link_text'));
$ d - > find_element ( "Remote Authentication" , 'link_text' ) - > click ( ) ;
diag ( 'Edit peer_auth_user' ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [1]/td/ /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [1]/td/ /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_user")]/../td /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_user")]/../td /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > fill_element ( '//*[@id="peer_auth_user"]' , 'xpath' , 'peeruser1' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
diag ( 'Check if peer_auth_user value has been set' ) ;
$ d - > find_element ( "Remote Authentication" , 'link_text' ) - > click ( ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr [1] /td[4]', 'peeruser1' ) , 'peer_auth_user value has been set' ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_user")]/.. /td[4]', 'peeruser1' ) , 'peer_auth_user value has been set' ) ;
diag ( 'Edit peer_auth_pass' ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [2]/td/ /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [2]/td/ /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_pass")]/../td /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_pass")]/../td /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > fill_element ( '//*[@id="peer_auth_pass"]' , 'xpath' , 'peerpass1' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
diag ( 'Check if peer_auth_pass value has been set' ) ;
$ d - > find_element ( "Remote Authentication" , 'link_text' ) - > click ( ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr [2] /td[4]', 'peerpass1' ) , 'peer_auth_pass value has been set' ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_pass")]/.. /td[4]', 'peerpass1' ) , 'peer_auth_pass value has been set' ) ;
diag ( 'Edit peer_auth_realm' ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [3]/td/ /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr [3]/td/ /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > move_action ( element = > $ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_realm")]/../td /div//a[contains(text(), "Edit")]') ) ;
$ d - > find_element ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_realm")]/../td /div//a[contains(text(), "Edit")]') - > click ( ) ;
$ d - > fill_element ( '//*[@id="peer_auth_realm"]' , 'xpath' , 'testpeering.com' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
diag ( 'Check if peer_auth_realm value has been set' ) ;
$ d - > find_element ( "Remote Authentication" , 'link_text' ) - > click ( ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr [3] /td[4]', 'testpeering.com' ) , 'peer_auth_realm value has been set' ) ;
ok ( $ d - > wait_for_text ( '//*[@id="preferences_table6"]/tbody/tr /td[contains(text(), "peer_auth_realm")]/.. /td[4]', 'testpeering.com' ) , 'peer_auth_realm value has been set' ) ;
diag ( "Go back to Servers/Rules" ) ;
$ d - > get ( $ server_rules_uri ) ;