@ -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