@ -47,6 +47,7 @@ sub delete_domain {
sub create_reseller {
my ( $ self , $ name , $ resellerid ) = @ _ ;
return unless $ name && $ resellerid ;
diag ( 'Go to reseller page' ) ;
$ self - > driver - > find_element ( '//*[@id="main-nav"]//*[contains(text(),"Settings")]' ) - > click ( ) ;
$ self - > driver - > find_element ( 'Resellers' , 'link_text' ) - > click ( ) ;
@ -65,6 +66,7 @@ sub create_reseller {
sub create_reseller_contract {
my ( $ self , $ resellerid ) = @ _ ;
return unless $ resellerid ;
diag ( 'Go to Reseller and Peering Contracts page' ) ;
$ self - > driver - > find_element ( '//*[@id="main-nav"]//*[contains(text(),"Settings")]' ) - > click ( ) ;
$ self - > driver - > find_element ( 'Reseller and Peering Contracts' , 'link_text' ) - > click ( ) ;
@ -90,4 +92,41 @@ sub create_reseller_contract {
$ self - > driver - > fill_element ( '//*[@id="external_id"]' , 'xpath' , $ resellerid ) ;
$ self - > driver - > find_element ( '//*[@id="save"]' ) - > click ( ) ;
}
1 ;
sub delete_reseller {
my ( $ self , $ name ) = @ _ ;
return unless $ name ;
diag ( 'Go to reseller page' ) ;
$ self - > driver - > find_element ( '//*[@id="main-nav"]//*[contains(text(),"Settings")]' ) - > click ( ) ;
$ self - > driver - > find_element ( 'Resellers' , 'link_text' ) - > click ( ) ;
diag ( 'Try to delete a reseller' ) ;
$ self - > driver - > fill_element ( '//*[@id="Resellers_table_filter"]/label/input' , 'xpath' , 'thisshouldnotexist' ) ;
ok ( $ self - > driver - > find_element_by_css ( '#Resellers_table tr > td.dataTables_empty' ) , 'Garbage text was not found' ) ;
$ self - > driver - > fill_element ( '//*[@id="Resellers_table_filter"]/label/input' , 'xpath' , $ name ) ;
ok ( $ self - > driver - > wait_for_text ( '//*[@id="Resellers_table"]/tbody/tr[1]/td[3]' , $ name ) , 'Entry found' ) ;
$ self - > driver - > move_action ( element = > $ self - > driver - > find_element ( '//*[@id="Resellers_table"]/tbody/tr[1]/td[3]' ) ) ;
$ self - > driver - > find_element ( '//*[@id="Resellers_table"]/tbody/tr[1]/td[5]/div/a[2]' ) - > click ( ) ;
$ self - > driver - > find_element ( '//*[@id="dataConfirmOK"]' ) - > click ( ) ;
}
sub delete_reseller_contract {
my ( $ self , $ resellerid ) = @ _ ;
return unless $ resellerid ;
diag ( 'Go to Reseller and Peering Contracts page' ) ;
$ self - > driver - > find_element ( '//*[@id="main-nav"]//*[contains(text(),"Settings")]' ) - > click ( ) ;
$ self - > driver - > find_element ( 'Reseller and Peering Contracts' , 'link_text' ) - > click ( ) ;
diag ( 'Try to delete a reseller contract' ) ;
$ self - > driver - > fill_element ( '//*[@id="contract_table_filter"]/label/input' , 'xpath' , 'thisshouldnotexist' ) ;
ok ( $ self - > driver - > find_element_by_css ( '#contract_table tr > td.dataTables_empty' ) , 'Garbage text was not found' ) ;
$ self - > driver - > fill_element ( '//*[@id="contract_table_filter"]/label/input' , 'xpath' , $ resellerid ) ;
ok ( $ self - > driver - > wait_for_text ( '//*[@id="contract_table"]/tbody/tr/td[2]' , $ resellerid ) , 'Entry found' ) ;
$ self - > driver - > move_action ( element = > $ self - > driver - > find_element ( '//*[@id="contract_table"]/tbody/tr[1]/td[3]' ) ) ;
$ self - > driver - > find_element ( '//*[@id="contract_table"]/tbody/tr[1]/td[7]/div/a[2]' ) - > click ( ) ;
$ self - > driver - > find_element ( '//*[@id="dataConfirmOK"]' ) - > click ( ) ;
}
1 ;