--- RCPTT testcase ---
Format-Version: 1.0
Element-Name: AddRemoveServer
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _5G0PMP37EeafFNNlK-v8pg
Runtime-Version: 2.1.0.201605312320
Save-Time: 2/28/17 4:29 PM
Testcase-Type: ecl

------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

proc "add-gerrit-server-through-ui" [val serverURL] [val serverName] [val userName] [val userPwd] {
	get-preferences-menu | click
	with [get-window Preferences] {
		get-tree | select "Team/Gerrit Servers"
		get-button "New..." | click
		with [get-window "Gerrit Server Selection"] {
			get-editbox -after [get-label "URL:"] | set-text $serverURL

			with [get-editbox -after [get-label "Label:"]] {
				set-text $serverName
			}
			try {
				get-editbox -after [get-label "User:"] | set-text $userName
			}
			get-button OK | click
		}
		get-button Apply | click
		get-button OK | click
	}
}

proc "remove-gerrit-server-through-ui" [val serverName] {
	// delete server if present
	get-preferences-menu | click
	with [get-window Preferences] {
		get-editbox | set-text gerrit
		get-tree | select "Team/Gerrit Servers" | double-click
		try {
			get-table | select $serverName
			get-button Remove | click
			get-button Apply | click
		} -catch {
		}
		get-button OK | click
	}
}

remove-gerrit-server-through-ui -serverName $serverName
add-gerrit-server-through-ui -serverURL $serverURL -serverName $serverName -userName $defaultUser

let [val review [create-review -server $serverURL]] {
	runQueryAndOpenEditor $review
}

------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--