@ -99,6 +99,18 @@ diag('Check if language has been applied');
$ d - > scroll_to_element ( $ d - > find_element ( '//*[@id="preference_groups"]//div//a[contains(text(),"Internals")]' ) ) ;
ok ( $ d - > find_element_by_xpath ( '//table//tr/td[contains(text(), "language")]/../td/select/option[contains(text(), "German") and @selected="selected"]' ) , '"German" has been selected' ) ;
diag ( 'Trying to enable call recording' ) ;
$ d - > find_element ( "NAT and Media Flow Control" , 'link_text' ) - > click ( ) ;
$ d - > scroll_to_element ( $ d - > find_element ( '//table//tr/td[contains(text(), "record_call")]' ) ) ;
$ d - > move_and_click ( '//table//tr/td[contains(text(), "record_call")]/..//td//a[contains(text(), "Edit")]' , 'xpath' ) ;
diag ( 'Enable call recording' ) ;
$ d - > select_if_unselected ( '//*[@id="record_call"]' ) ;
$ d - > find_element ( '//*[@id="save"]' ) - > click ( ) ;
diag ( 'Check if call recording was enabled' ) ;
ok ( $ d - > find_element_by_xpath ( '//table//tr/td[contains(text(), "record_call")]/../td//input[@checked="checked"]' ) , "Call recording was enabled" ) ;
diag ( 'Trying to add a simple call forward' ) ;
$ d - > find_element ( "Call Forwards" , 'link_text' ) - > click ( ) ;
$ d - > move_and_click ( '//*[@id="preferences_table_cf"]/tbody/tr/td[contains(text(), "Unconditional")]/../td/div/a[contains(text(), "Edit")]' , 'xpath' ) ;