@ -33,7 +33,7 @@ $d->scroll_to_element($elem);
$ d - > select_if_unselected ( '//table[@id="billing_profileidtable"]/tbody/tr[1]//input[@type="checkbox"]' ) ;
$ d - > find_element ( '//div[contains(@class,"modal-body")]//div//select[@id="status"]/option[@value="active"]' ) - > click ( ) ;
$ d - > find_element ( '//div[contains(@class,"modal")]//input[@type="submit"]' ) - > click ( ) ;
$ d - > find_text ( 'Create Peering Group ') ; # Should go back to prev form
ok ( $ d - > find_text ( 'Create Peering Group ') , 'Succesfully went back to previous form ') ; # Should go back to prev form
$ d - > fill_element ( '#name' , 'css' , 'testinggroup' ) ;
$ d - > fill_element ( '#description' , 'css' , 'A group created for testing purposes' ) ;
@ -63,8 +63,7 @@ $d->fill_element('#name', 'css', 'mytestserver');
$ d - > fill_element ( '#ip' , 'css' , '10.0.0.100' ) ;
$ d - > fill_element ( '#host' , 'css' , 'sipwise.com' ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
$ d - > find_text ( 'Peering server successfully created' ) ;
ok ( $ d - > find_text ( 'Peering server successfully created' ) , 'Text "Peering server successfully created" appears' ) ;
my $ server_rules_uri = $ d - > get_current_url ( ) ;
diag ( 'Edit Preferences for "mytestserver".' ) ;
@ -93,7 +92,7 @@ $edit_link->click();
diag ( 'Change to "P-Asserted-Identity' ) ;
$ d - > find_element ( '//div[contains(@class,"modal-body")]//select[@id="inbound_upn"]/option[@value="pai_user"]' ) - > click ( ) ;
$ d - > find_element ( '#save' , 'css' ) - > click ( ) ;
$ d - > find_text ( 'Preference inbound_upn successfully updated ') ;
ok ( $ d - > find_text ( 'Preference inbound_upn successfully updated ') , 'Text "Preference inbound_upn successfully updated" appears ') ;
diag ( "Go back to Servers/Rules" ) ;
$ d - > get ( $ server_rules_uri ) ;
@ -111,9 +110,9 @@ $delete_link = $d->find_child_element($row, '(./td//a)[contains(text(),"Delete")
ok ( $ delete_link ) ;
$ d - > move_action ( element = > $ row ) ;
$ delete_link - > click ( ) ;
$ d - > find_text ( "Are you sure?" ) ;
ok ( $ d - > find_text ( "Are you sure?" ) , 'Delete dialog appears' ) ;
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
$ d - > find_text ( "successfully deleted" ) ; # delete does not work
ok ( $ d - > find_text ( "successfully deleted" ) , 'Text "successfully deleted" appears' ) ;
diag ( "Delete the previously created Peering Rule" ) ;
diag ( " - searching garbage (waiting for AJAX to load)" ) ;
@ -130,11 +129,11 @@ $delete_link = $d->find_child_element($row, '(./td//a)[contains(text(),"Delete")
ok ( $ delete_link ) ;
$ d - > move_action ( element = > $ row ) ;
$ delete_link - > click ( ) ;
$ d - > find_text ( "Are you sure?" ) ;
ok ( $ d - > find_text ( "Are you sure?" ) , 'Delete dialog appears' ) ;
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
diag ( 'skip was here' ) ;
ok ( $ d - > find_text ( "successfully deleted" ) );
ok ( $ d - > find_text ( "successfully deleted" ) , 'Text "successfully deleted" appears' );
diag ( 'Go back to "SIP Peering Groups".' ) ;
$ d - > get ( $ peerings_uri ) ;
@ -146,11 +145,11 @@ $delete_link = $d->find_child_element($row, '(./td//a)[contains(text(),"Delete")
ok ( $ delete_link ) ;
$ d - > move_action ( element = > $ row ) ;
$ delete_link - > click ( ) ;
$ d - > find_text ( "Are you sure?" ) ;
ok ( $ d - > find_text ( "Are you sure?" ) , 'Delete dialog appears' ) ;
$ d - > find_element ( '#dataConfirmOK' , 'css' ) - > click ( ) ;
diag ( 'skip was here' ) ;
ok ( $ d - > find_text ( "successfully deleted" ) );
ok ( $ d - > find_text ( "successfully deleted" ) , 'Text "successfully deleted" appears' );
done_testing ;
# vim: filetype=perl