@ -50,6 +50,7 @@ sub ctr_billing {
diag ( "Edit Test Profile" ) ;
$ d - > fill_element ( '#interval_charge' , 'css' , '3.2' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Billing profile successfully updated")]' ) , "Label 'Billing profile successfully updated' was shown" ) ;
diag ( 'Open "Fees" for Test Profile' ) ;
$ d - > fill_element ( '//*[@id="billing_profile_table_filter"]//input' , 'xpath' , 'thisshouldnotexist' ) ;
@ -81,6 +82,7 @@ sub ctr_billing {
$ d - > fill_element ( '#zone' , 'css' , 'testingzone' ) ;
$ d - > fill_element ( '#detail' , 'css' , 'testingdetail' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Billing Zone successfully created")]' ) , "Label 'Billing Zone successfully created' was shown" ) ;
diag ( "Back to orignial form (create billing fees)" ) ;
$ d - > select_if_unselected ( '//div[contains(@class,"modal")]//div[contains(@class,"dataTables_wrapper")]//td[contains(text(),"testingzone")]/..//input[@type="checkbox"]' ) ;
@ -88,6 +90,7 @@ sub ctr_billing {
$ d - > fill_element ( '#destination' , 'css' , '.+' ) ;
$ d - > find_element ( '//*[@id="direction"]/option[@value="in"]' ) - > click ( ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Billing Fee successfully created!")]' ) , "Label 'Billing Fee successfully created!' was shown" ) ;
diag ( "Check if billing fee values are correct" ) ;
$ d - > fill_element ( '//*[@id="billing_fee_table_filter"]//input' , 'xpath' , 'thisshouldnotexist' ) ;
@ -102,9 +105,9 @@ sub ctr_billing {
$ d - > move_and_click ( '//*[@id="billing_fee_table"]/tbody/tr[1]/td//div//a[contains(text(), "Delete")]' , 'xpath' , '//*[@id="billing_fee_table_filter"]//input' ) ;
ok ( $ d - > find_text ( "Are you sure?" ) , 'Delete dialog appears' ) ;
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
ok ( $ d - > find_text ( "successfully deleted" ) , 'Text "successfully deleted" appears' ) ;
diag ( "Check if billing fee was deleted" ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Billing fee successfully deleted!")]' ) , "Label 'Billing fee successfully deleted!' was shown" ) ;
$ d - > find_element ( '//*[@id="billing_fee_table_filter"]//input' ) - > clear ( ) ;
$ d - > fill_element ( '//*[@id="billing_fee_table_filter"]//input' , 'xpath' , '.+' ) ;
ok ( $ d - > find_element_by_css ( '#billing_fee_table tr > td.dataTables_empty' ) , 'Billing fee was deleted' ) ;
@ -126,6 +129,7 @@ sub ctr_billing {
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
diag ( "Check if Billing zone was deleted" ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Billing zone successfully deleted")]' ) , "Label 'Billing zone successfully deleted' was shown" ) ;
$ d - > find_element ( '//*[@id="billing_zone_table_filter"]//input' ) - > clear ( ) ;
$ d - > fill_element ( '//*[@id="billing_zone_table_filter"]//input' , 'xpath' , 'testingdetail' ) ;
ok ( $ d - > find_element_by_css ( '#billing_zone_table tr > td.dataTables_empty' ) , 'Billing zone was deleted' ) ;
@ -180,6 +184,7 @@ sub ctr_billing {
$ d - > fill_element ( '#start' , 'css' , "2008-02-28 04:20:00" ) ;
$ d - > fill_element ( '#end' , 'css' , "2008-02-28 13:37:00" ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Special offpeak entry successfully created")]' ) , "Label 'Special offpeak entry successfully created' was shown" ) ;
diag ( "Check if created date definition is correct" ) ;
$ d - > scroll_to_element ( $ d - > find_element ( '//div[contains(@class, "dataTables_filter")]//input' ) ) ;
@ -194,6 +199,10 @@ sub ctr_billing {
ok ( $ d - > find_text ( "Are you sure?" ) , 'Delete dialog appears' ) ;
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
diag ( "Check if created date definition was deleted" ) ;
ok ( $ d - > find_element_by_xpath ( '//*[@id="content"]//div[contains(text(), "Special offpeak entry successfully deleted")]' ) , "Label 'Special offpeak entry successfully deleted' was shown" ) ;
ok ( $ d - > find_element_by_css ( '#date_definition_table tr > td.dataTables_empty' ) , 'Table is empty' ) ;
diag ( "Open delete dialog and press cancel" ) ;
$ c - > delete_billing_profile ( $ billingname , 1 ) ;