org.eclipse.egerrit.ui.rcptt.tests/HelperScripts.ctx - egerrit/org.eclipse.egerrit - Git at Google

 --- RCPTT testcase ---
 Format-Version: 1.0
 Context-Type: org.eclipse.rcptt.ctx.ecl
 Element-Name: HelperScripts
 Element-Type: context
 Element-Version: 2.0
 Id: _jPStUFRJEeaXLqlXvYQIgg
 Runtime-Version: 2.1.0.201605312320
 Save-Time: 5/18/17 10:42 AM

 ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998
 Content-Type: text/ecl
 Entry-Name: .ecl.context

 proc "delete-git-repos" {
 	try {
 		with [open-view "Git Repositories" "Git/Git Repositories" | get-tree] {
 			key-type "M1+a"
 			collapse-all
 		}
 	} -catch {
 		// In case the dialog does not have a tree
 	}

 	try {
 		let [val repoCount [get-view "Git Repositories" | get-tree | get-property "getItemCount()" -raw]] {
 			loop [val count $repoCount] {
 				if [$count | gt 0] {
 					with [get-view "Git Repositories" | get-tree | select ".*"] {
 						wait -ms $defaultWaitTime
 						get-quick-access | set-text "delete repo"
 						get-quick-access | key-type Enter

 						with [get-window "Delete Repository"] {
 							with [get-button "Delete Git repository data and history:"] {
 								key-type Enter
 								check
 							}
 							get-button "Also delete working tree:" | check
 							get-button OK | click
 						}
 					}
 					wait -ms $defaultWaitTime
 					recur [$count | minus 1]
 				}
 			}
 		}
 	} -catch {
 		// Nothing to do
 	}
 }

 // Initialte a local rebase by clicking rebase in the review editor and answer to prompts
 proc "initiate-remote-rebase" [val editor -input] {
 	with [$editor] {
 		with [get-button "Rebase..."] {
 			click
 			get-menu "Rebase (remotely)" | click
 		}
 	}
 	with [get-window "Code Review - Rebase Change"] {
 		get-button OK | click
 		wait -ms $defaultWaitTime
 	}

 	with [get-window "Automatic local rebase"] {
 		get-button OK | click
 		wait -ms $defaultWaitTime
 	}
 }

 // Return the dashboard view. Open it if necessary.
 proc getDashboard [] {
 	try {
 		get-view "Gerrit Dashboard (EGerrit)"
 	} -catch {
 		get-menu "Window/Show View/Other..." | click
 		with [get-window "Show View"] {
 			get-tree | select "Git/Gerrit Dashboard (EGerrit)"
 			get-button OK | click
 		}
 		get-view "Gerrit Dashboard (EGerrit)"
 	}
 }

 // Close the dashboard view
 proc closeDashboard [] {
 	try {
 		get-view "Gerrit Dashboard (EGerrit)" | close
 	}
 }

 // Enter a query in the dashboard search dialog and execute it. The query is executed against the default server.
 proc runQuery [val query] [val serverName $serverName] {
 	selectActiveServer -serverName $serverName
 	get-view "Gerrit Dashboard (EGerrit)" | get-combo | set-text $query
 	get-button Search | click
 	wait -ms $defaultWaitTime
 }

 proc selectActiveServer [val serverName] {
 	getDashboard | get-button "Select current Gerrit repository" | click -arrow
 	get-menu $serverName | click
 }

 // Run the query and open the review editor on the first match
 proc runQueryAndOpenEditor [val query] [val serverName $serverName] {
 	try {
 		runQuery [$query | get lastChangeId] -serverName $serverName
 	} -catch {
 		runQuery [$query] -serverName $serverName
 	}
 	with [getDashboard] {
 		with [get-table] {
 			get-cell -row 0 -column 1 | double-click
 		}
 	}
 	wait -ms $defaultWaitTime
 }

 proc openCompareEditor [val query] [val serverName $serverName] {
 	runQueryAndOpenEditor $query $serverName
 	wait -ms $defaultWaitTime

 	with [get-table -index 1 | get-column-header "File Path"] {
 		click
 	}
 	// Select the first file in the list
 	with [get-editor | get-table -index 1] {
 		get-cell -row 0 -column 2 | double-click
 	}
 	try {
 		wait -ms $defaultWaitTime
 		// Click ok on tip
 		get-window "EGerrit Tip" | get-button OK | click
 	} -catch {
 	}
 }

 proc switchLeftInput [val to] [val in -input] {
 	with [$in | get-button -after [get-label -index 0]] {
 		click
 		get-menu $to | click
 	}
 	wait -ms $defaultWaitTime
 }

 proc switchRightInput [val to] [val in -input] {
 	with [$in | get-button -after [get-label -index 2]] {
 		click
 		get-menu $to | click
 	}
 	wait -ms $defaultWaitTime
 }

 proc insertComment [val on] [val text] [val atLine] [val save false] [val column 0] [val in -input] {
 	if [$on | equals right] {
 		doInsertComment -idx 1 -text $text -atLine $atLine -col $column -in $in
 	} -else {
 		doInsertComment -idx 0 -text $text -atLine $atLine -col $column -in $in
 	}
 	if [$save] {
 		with [$in] {
 			key-type "M1+s"
 			wait -ms $defaultWaitTime
 		}
 	}
 }

 proc doInsertComment [val idx] [val text] [val atLine] [val col 0] [val in -input] {
 	with [$in | get-text-viewer -index $idx] {
 		set-caret-pos -line $atLine -column $col
 		type-text $text
 	}
 }

 proc "assert-that-status-in-dashboard" [val is] {
 	getDashboard | get-table | get-item "Not starred review" | get-property "columns[3]" | equals $is | verify-true
 }

 proc "assert-that-subject-in-dashboard" [val is] {
 	getDashboard | get-table | get-item "Not starred review" | get-property "columns[2]" | equals $is | verify-true
 }

 proc "assert-that-first-entry-in-history-table" [val atColumn] [val is] [val in -input] {
 	with [$in] {
 		get-tab-folder | get-tab-item History | click
 	}
 	with [get-table] {
 		get-cell -row 0 -column 1 | get-property [concat "columns[" $atColumn "]"] | contains $is | verify-true
 	}
 }

 proc "assert-that-status-in-editor-header" [val is] [val in -input] {
 	$in | get-editbox -after [get-label "ID:"] -index 1 | get-property text | equals $is | verify-true
 }

 proc "assert-that-radio-button" [val button] [val is] [val in -input] {
 	with [$in] {
 		if [$is | equals enabled] {
 			get-button $button | get-property selected | equals true | verify-true
 		}
 		if [$is | equals disabled] {
 			get-button $button | get-property selected | equals false | verify-true
 		}
 		if [$is | equals "not-present"] {
 			verify-error {
 				get-button $button
 			}
 		}
 	}
 }

 proc "assert-that-button" [val button] [val is] [val in -input] {
 	with [$in] {
 		if [$is | equals enabled] {
 			get-button $button | get-property enablement | equals true | verify-true
 		}
 		if [$is | equals disabled] {
 			get-button $button | get-property enablement | equals false | verify-true
 		}
 		if [$is | equals "not-present"] {
 			verify-error {
 				get-button $button
 			}
 		}
 	}
 }

 proc "assert-that-search-box-in-dashboard" [val is] {
 	getDashboard | get-combo | get-property selection | equals $is | verify-true
 }

 proc "assert-that-subject-in-editor" [val is] [val in -input] {
 	$in | get-editbox -after [get-label "Subject:"] | get-property text | equals $is | verify-true
 }

 proc "assert-that-patchset-counter-in-editor" [val is] [val in -input] {
 	$in | get-label "Patch Sets.*" | get-property caption | contains $is | verify-true
 }

 proc "assert-that-left-selected-patch" [val is] [val in -input] {
 	with [$in] {
 		get-label -index 1 | get-property caption | equals $is | verify-true
 	}
 }

 proc "assert-that-right-selected-patch" [val is] [val in -input] {
 	with [$in] {
 		get-label -index 3 | get-property caption | equals $is | verify-true
 	}
 }

 proc "assert-that-left-editor-content" [val is] [val in -input] {
 	with [$in] {
 		get-editbox -index 0 | get-property text | contains $is | verify-true
 	}
 }

 proc "assert-that-right-editor-content" [val is] [val in -input] {
 	with [$in] {
 		get-editbox -index 1 | get-property text | contains $is | verify-true
 	}
 }

 proc "assert-that-compare-editor-titles-are" [val left] [val right] [val in -input] {
 	with [$in] {
 		get-label $left
 		get-label $right -after [get-label $left]
 	}
 }

 proc "assert-that-no-editor-present" [] {
 	try {
 		get-editor -index 0
 		verify-true 0
 	} -catch {
 		verify-true 1
 	}
 }

 proc "assert-that-patchset-menu" [val contains] [val in -input] {
 	with [$in | get-button -after [get-label "Patch Sets.*"]] {
 		click
 		get-menu $contains
 	}
 }

 proc "assert-that-number-of-files-in-compare" [val is] [val compare -input] {
 	with [$compare] {
 		get-tree | get-property "getItems().length" | equals $is | verify-true
 	}
 }

 proc "assert-that-selected-text" [val is] [val in -input] {
 	$in | get-property -name "getSelectionText()" | equals $is | verify-true
 }

 proc "get-left-editor" [val in -input] {
 	get-text-viewer -index 0
 }

 proc "get-right-editor" [val in -input] {
 	get-text-viewer -index 1
 }

 proc "assert-that-star-in-dashboard-is-off" [val is] {
 	assert-that-star-in-dashboard -is "org.eclipse.egerrit.dashboard.ui/icons/view16/starOpen.gif"
 }

 proc "assert-that-star-in-dashboard-is-on" [val is] [val in -input] {
 	assert-that-star-in-dashboard -is "org.eclipse.egerrit.dashboard.ui/icons/view16/starFilled.gif"
 }

 proc "assert-that-star-in-dashboard" [val is] [val in -input] {
 	getDashboard | get-table | get-cell -row 0 -column 0 | get-property "cells[0].image.path" | equals $is | verify-true
 }

 proc "assert-dialog" [val named] [val containsText] [val dismiss true] {
 	get-window $named | get-label $containsText | get-property caption | equals $containsText | verify-true
 	if [$dismiss | equals true] {
 		get-window $named | get-button OK | click
 	}
 }

 proc "assert-marker-count-is" [val is] {
 	get-view Markers | get-label [concat $is " items"] | get-property caption | equals [concat $is " items"]
 		| verify-true
 }

 proc "assert-sameTopic-table" [val contains] [val in -input] {
 	$in | get-group "Same Topic" | get-table | get-cell -row 1 -column 0 | get-property "columns[0]" | equals $contains
 		| verify-true
 }

 proc "assert-noEntry-in-topic-table" [val in -input] {
 	$in | get-group "Same Topic" | get-table | get-property itemCount | equals 0 | verify-true
 }

 proc "switch-user" [val to] {
 	// Add a server connected by an anonymous user and make it the default server
 	add-gerrit-server -serverURL $serverURL -serverName $to -userName $to
 	selectActiveServer -serverName $to
 }
 proc "assert-that-itemCount-in-history-is" [val is] {
 	get-property itemCount | equals $is | verify-true
 }

 proc "assert-that-status-in-compare" [val atLine] [val is] [val in -input] {
 	with [$in | get-tree] {
 		get-item "" -index $atLine | get-property "columns[1]" | equals $is | verify-true
 	}
 }

 proc "assert-that-leftCommentCount-in-compare" [val atLine] [val is] [val in -input] {
 	with [$in | get-tree] {
 		get-item "" -index $atLine | get-property "columns[3]" | equals $is | verify-true
 	}
 }

 proc "assert-that-rightCommentCount-in-compare" [val atLine] [val is] [val in -input] {
 	with [$in | get-tree] {
 		get-item "" -index $atLine | get-property "columns[4]" | equals $is | verify-true
 	}
 }

 proc "assert-that-filename-in-compare" [val atLine] [val is] [val in -input] {
 	with [$in | get-tree] {
 		get-item "" -index $atLine | get-property "columns[2]" | equals $is | verify-true
 	}
 }

 proc "assert-that-filename-in-dialog" [val atLine] [val is] [val in -input] {
 	with [$in | get-table] {
 		get-item "" -index $atLine | get-property "columns[2]" | equals $is | verify-true
 	}
 }

 proc "activate-review" [val in -input] {
 	$in | get-button "Activate Comment Markers" | check
 	try {
 		get-window "EGerrit Tip" | get-button OK | click
 	} -times 4 -delay $defaultWaitTime
 }

 proc "assert-that-reviewed-flag-is-off" [val row] {
 	try {
 		with [get-editor | get-table -index 1] {
 			get-cell $row 0 -column 0 | get-property "cells[0]" | equals "" | verify-true
 		}
 	} -times 4 -delay $defaultWaitTime
 }

 proc "assert-that-reviewed-flag-is-on" [val row] [val in -input] {
 	assert-that-reviewed-flag-in-files -row $row -is "org.eclipse.egerrit.ui/icons/greenCheck.png"
 }

 proc "assert-that-reviewed-flag-in-files" [val row] [val is] [val in -input] {
 	try {
 		with [get-editor | get-table -index 1] {
 			get-cell $row 0 -column 0 | get-property "cells[0].image.path" | equals $is | verify-true
 		}
 	} -times 4 -delay $defaultWaitTime
 }

 // Open the Problems view.
 proc openProblemsView [] {
 	open-view Problems "General/Problems"
 }

 // Open the Markers view.
 proc openMarkersView [] {
 	open-view Markers "General/Markers"
 }

 // Look at the items in the Problems view
 proc "assert-problem-count-is" [val is] {
 	get-view Problems | get-label [concat $is " items"] | get-property caption | equals [concat $is " items"]
 		| verify-true
 }

 proc "open-view" [val viewName] [val viewPath] {
 	try {
 		get-view $viewName
 	} -catch {
 		get-menu "Window/Show View/Other..." | click
 		with [get-window "Show View"] {
 			get-tree | select $viewPath
 			get-button OK | click
 		}
 		get-view $viewName
 	}
 }

 proc "close-view" [val viewName] {
 	try {
 		get-view $viewName | close
 	} -catch {
 	}
 }

 proc "open-file" [val fileName] {
 	get-eclipse-window | key-type "M1+M2+r"
 	with [get-window "Open Resource"] {
 		get-editbox | set-text $fileName
 		get-table | select $fileName | double-click
 	}
 }

 proc "assert-that-editor" [val in -input] [val contains] [val close true] {
 	open-file $in
 	get-editor $in | get-text-viewer | get-property text | equals $contains | verify-true
 	if [$close] {
 		get-editor $in | close
 	}
 }

 proc "checkout-revision" [val in -input] [val ps] [val acceptPrompts false] {
 	with [$in] {
 		with [get-group "" | get-button -after [get-label "Patch Sets.*"]] {
 			click
 			get-menu $ps | click
 		}
 		with [get-button Download] {
 			click
 			get-menu "Checkout..." | click
 		}
 	}
 	if [$acceptPrompts] {
 		try {
 			get-window "Fetch a change from Gerrit" | get-button Finish | click
 		} -catch {
 		}
 		try {
 			get-window "EGerrit Tip" | get-button OK | click
 		} -catch {
 		}
 	}
 }

 proc "assert-colum-count-in-dashboard-is" [val is] {
 	getDashboard | get-table | get-property columnCount | equals $is | verify-true
 }

 proc "assert-colum-count-in-reviewers-is" [val is] {
 	// Test to see the number of columns in the Reviewers table includes the dynamic columns
 	with [get-editor] {
 		get-tab-folder | get-tab-item Details | click
 		get-group Reviewers | get-table | get-property columnCount | equals $is | verify-true
 	}
 }
 proc "assert-column-label-in-reviewers" [val col] [val label] {
 	// Test the column value is CR "Code-Review", V "Verified", etc
 	with [get-editor | get-group Reviewers | get-table] {
 		get-property [format "columns[%d].caption" $col] | equals $label | verify-true
 	}
 }

 proc "branch-rename" [val in -input] [val newBranchName] [val gitRepoBranch] {
 	with [$in] {
 		with [get-button Download] {
 			click
 			get-menu "Checkout..." | click
 		}
 	}

 	//Check out branch as specified
 	try {
 		with [get-window "Fetch a change from Gerrit"] {
 			get-group "Action to perform after fetch" | get-editbox -after [get-label "Branch name:"] | set-text $newBranchName
 			get-button Finish | click
 		}
 	} -catch {
 	}
 	try {
 		get-window "EGerrit Tip" | get-button OK | click
 	} -catch {
 	}

 	//Validation
 	branch-rename-validation -gitRepoBranch $gitRepoBranch -branch $newBranchName
 }

 proc "branch-rename-validation" [val gitRepoBranch] [val branch] {
 	//Validation
 	get-view "Git Repositories" | get-tree | get-item $gitRepoBranch
 			| get-property caption | contains $branch | verify-true
 }

 proc "assert-branch-rename-is" [val in -input] [val button] [val gitBranch ] [val lastBranchName] {
 	with [$in] {
 		with [get-button Download ] {
 			click
     		get-menu "Checkout..." | click
 		}
     }
     try {
 		get-window "EGerrit rename" | get-button $button | click
 	} -times 4 -delay $defaultWaitTime

 	//Validation
 	branch-rename-validation -gitRepoBranch $gitBranch -branch $lastBranchName
 }

 proc "prepare-a-server" [val serverURL] [val serverName]  {
     get-view "Gerrit Dashboard (EGerrit)" | get-button "Select current Gerrit repository" | click -arrow
     get-menu "Add\\/Modify Gerrit Repository..." | click
     with [get-window Preferences] {
         get-button "New..." | click
         with [get-window "Gerrit Server Selection"] {
             get-editbox -after [get-label "URL:"] | set-text $serverURL
             get-editbox -after [get-label "Label:"] | set-text $serverName
             get-button OK | click
         }
     }
 }

 proc "close_preference-and-dialog" [val popupLevel1] [val popupLevel2] [val buttonLevel2] {
     with [get-window Preferences] {
         with [get-window $popupLevel1 ] {
             with [get-window $popupLevel2 ] { get-button $buttonLevel2 | click }
         }
         with [get-window $popupLevel1 ] {
             get-button Cancel | click
         }
         get-button Cancel | click
     }
 }

 ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998--
	--- RCPTT testcase ---
	Format-Version: 1.0
	Context-Type: org.eclipse.rcptt.ctx.ecl
	Element-Name: HelperScripts
	Element-Type: context
	Element-Version: 2.0
	Id: _jPStUFRJEeaXLqlXvYQIgg
	Runtime-Version: 2.1.0.201605312320
	Save-Time: 5/18/17 10:42 AM

	------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998
	Content-Type: text/ecl
	Entry-Name: .ecl.context

	proc "delete-git-repos" {
	try {
	with [open-view "Git Repositories" "Git/Git Repositories" \| get-tree] {
	key-type "M1+a"
	collapse-all
	}
	} -catch {
	// In case the dialog does not have a tree
	}

	try {
	let [val repoCount [get-view "Git Repositories" \| get-tree \| get-property "getItemCount()" -raw]] {
	loop [val count $repoCount] {
	if [$count \| gt 0] {
	with [get-view "Git Repositories" \| get-tree \| select ".*"] {
	wait -ms $defaultWaitTime
	get-quick-access \| set-text "delete repo"
	get-quick-access \| key-type Enter

	with [get-window "Delete Repository"] {
	with [get-button "Delete Git repository data and history:"] {
	key-type Enter
	check
	}
	get-button "Also delete working tree:" \| check
	get-button OK \| click
	}
	}
	wait -ms $defaultWaitTime
	recur [$count \| minus 1]
	}
	}
	}
	} -catch {
	// Nothing to do
	}
	}

	// Initialte a local rebase by clicking rebase in the review editor and answer to prompts
	proc "initiate-remote-rebase" [val editor -input] {
	with [$editor] {
	with [get-button "Rebase..."] {
	click
	get-menu "Rebase (remotely)" \| click
	}
	}
	with [get-window "Code Review - Rebase Change"] {
	get-button OK \| click
	wait -ms $defaultWaitTime
	}

	with [get-window "Automatic local rebase"] {
	get-button OK \| click
	wait -ms $defaultWaitTime
	}
	}

	// Return the dashboard view. Open it if necessary.
	proc getDashboard [] {
	try {
	get-view "Gerrit Dashboard (EGerrit)"
	} -catch {
	get-menu "Window/Show View/Other..." \| click
	with [get-window "Show View"] {
	get-tree \| select "Git/Gerrit Dashboard (EGerrit)"
	get-button OK \| click
	}
	get-view "Gerrit Dashboard (EGerrit)"
	}
	}

	// Close the dashboard view
	proc closeDashboard [] {
	try {
	get-view "Gerrit Dashboard (EGerrit)" \| close
	}
	}

	// Enter a query in the dashboard search dialog and execute it. The query is executed against the default server.
	proc runQuery [val query] [val serverName $serverName] {
	selectActiveServer -serverName $serverName
	get-view "Gerrit Dashboard (EGerrit)" \| get-combo \| set-text $query
	get-button Search \| click
	wait -ms $defaultWaitTime
	}

	proc selectActiveServer [val serverName] {
	getDashboard \| get-button "Select current Gerrit repository" \| click -arrow
	get-menu $serverName \| click
	}

	// Run the query and open the review editor on the first match
	proc runQueryAndOpenEditor [val query] [val serverName $serverName] {
	try {
	runQuery [$query \| get lastChangeId] -serverName $serverName
	} -catch {
	runQuery [$query] -serverName $serverName
	}
	with [getDashboard] {
	with [get-table] {
	get-cell -row 0 -column 1 \| double-click
	}
	}
	wait -ms $defaultWaitTime
	}

	proc openCompareEditor [val query] [val serverName $serverName] {
	runQueryAndOpenEditor $query $serverName
	wait -ms $defaultWaitTime

	with [get-table -index 1 \| get-column-header "File Path"] {
	click
	}
	// Select the first file in the list
	with [get-editor \| get-table -index 1] {
	get-cell -row 0 -column 2 \| double-click
	}
	try {
	wait -ms $defaultWaitTime
	// Click ok on tip
	get-window "EGerrit Tip" \| get-button OK \| click
	} -catch {
	}
	}

	proc switchLeftInput [val to] [val in -input] {
	with [$in \| get-button -after [get-label -index 0]] {
	click
	get-menu $to \| click
	}
	wait -ms $defaultWaitTime
	}

	proc switchRightInput [val to] [val in -input] {
	with [$in \| get-button -after [get-label -index 2]] {
	click
	get-menu $to \| click
	}
	wait -ms $defaultWaitTime
	}

	proc insertComment [val on] [val text] [val atLine] [val save false] [val column 0] [val in -input] {
	if [$on \| equals right] {
	doInsertComment -idx 1 -text $text -atLine $atLine -col $column -in $in
	} -else {
	doInsertComment -idx 0 -text $text -atLine $atLine -col $column -in $in
	}
	if [$save] {
	with [$in] {
	key-type "M1+s"
	wait -ms $defaultWaitTime
	}
	}
	}

	proc doInsertComment [val idx] [val text] [val atLine] [val col 0] [val in -input] {
	with [$in \| get-text-viewer -index $idx] {
	set-caret-pos -line $atLine -column $col
	type-text $text
	}
	}

	proc "assert-that-status-in-dashboard" [val is] {
	getDashboard \| get-table \| get-item "Not starred review" \| get-property "columns[3]" \| equals $is \| verify-true
	}

	proc "assert-that-subject-in-dashboard" [val is] {
	getDashboard \| get-table \| get-item "Not starred review" \| get-property "columns[2]" \| equals $is \| verify-true
	}

	proc "assert-that-first-entry-in-history-table" [val atColumn] [val is] [val in -input] {
	with [$in] {
	get-tab-folder \| get-tab-item History \| click
	}
	with [get-table] {
	get-cell -row 0 -column 1 \| get-property [concat "columns[" $atColumn "]"] \| contains $is \| verify-true
	}
	}

	proc "assert-that-status-in-editor-header" [val is] [val in -input] {
	$in \| get-editbox -after [get-label "ID:"] -index 1 \| get-property text \| equals $is \| verify-true
	}

	proc "assert-that-radio-button" [val button] [val is] [val in -input] {
	with [$in] {
	if [$is \| equals enabled] {
	get-button $button \| get-property selected \| equals true \| verify-true
	}
	if [$is \| equals disabled] {
	get-button $button \| get-property selected \| equals false \| verify-true
	}
	if [$is \| equals "not-present"] {
	verify-error {
	get-button $button
	}
	}
	}
	}

	proc "assert-that-button" [val button] [val is] [val in -input] {
	with [$in] {
	if [$is \| equals enabled] {
	get-button $button \| get-property enablement \| equals true \| verify-true
	}
	if [$is \| equals disabled] {
	get-button $button \| get-property enablement \| equals false \| verify-true
	}
	if [$is \| equals "not-present"] {
	verify-error {
	get-button $button
	}
	}
	}
	}

	proc "assert-that-search-box-in-dashboard" [val is] {
	getDashboard \| get-combo \| get-property selection \| equals $is \| verify-true
	}

	proc "assert-that-subject-in-editor" [val is] [val in -input] {
	$in \| get-editbox -after [get-label "Subject:"] \| get-property text \| equals $is \| verify-true
	}

	proc "assert-that-patchset-counter-in-editor" [val is] [val in -input] {
	$in \| get-label "Patch Sets.*" \| get-property caption \| contains $is \| verify-true
	}

	proc "assert-that-left-selected-patch" [val is] [val in -input] {
	with [$in] {
	get-label -index 1 \| get-property caption \| equals $is \| verify-true
	}
	}

	proc "assert-that-right-selected-patch" [val is] [val in -input] {
	with [$in] {
	get-label -index 3 \| get-property caption \| equals $is \| verify-true
	}
	}

	proc "assert-that-left-editor-content" [val is] [val in -input] {
	with [$in] {
	get-editbox -index 0 \| get-property text \| contains $is \| verify-true
	}
	}

	proc "assert-that-right-editor-content" [val is] [val in -input] {
	with [$in] {
	get-editbox -index 1 \| get-property text \| contains $is \| verify-true
	}
	}

	proc "assert-that-compare-editor-titles-are" [val left] [val right] [val in -input] {
	with [$in] {
	get-label $left
	get-label $right -after [get-label $left]
	}
	}

	proc "assert-that-no-editor-present" [] {
	try {
	get-editor -index 0
	verify-true 0
	} -catch {
	verify-true 1
	}
	}

	proc "assert-that-patchset-menu" [val contains] [val in -input] {
	with [$in \| get-button -after [get-label "Patch Sets.*"]] {
	click
	get-menu $contains
	}
	}

	proc "assert-that-number-of-files-in-compare" [val is] [val compare -input] {
	with [$compare] {
	get-tree \| get-property "getItems().length" \| equals $is \| verify-true
	}
	}

	proc "assert-that-selected-text" [val is] [val in -input] {
	$in \| get-property -name "getSelectionText()" \| equals $is \| verify-true
	}

	proc "get-left-editor" [val in -input] {
	get-text-viewer -index 0
	}

	proc "get-right-editor" [val in -input] {
	get-text-viewer -index 1
	}

	proc "assert-that-star-in-dashboard-is-off" [val is] {
	assert-that-star-in-dashboard -is "org.eclipse.egerrit.dashboard.ui/icons/view16/starOpen.gif"
	}

	proc "assert-that-star-in-dashboard-is-on" [val is] [val in -input] {
	assert-that-star-in-dashboard -is "org.eclipse.egerrit.dashboard.ui/icons/view16/starFilled.gif"
	}

	proc "assert-that-star-in-dashboard" [val is] [val in -input] {
	getDashboard \| get-table \| get-cell -row 0 -column 0 \| get-property "cells[0].image.path" \| equals $is \| verify-true
	}

	proc "assert-dialog" [val named] [val containsText] [val dismiss true] {
	get-window $named \| get-label $containsText \| get-property caption \| equals $containsText \| verify-true
	if [$dismiss \| equals true] {
	get-window $named \| get-button OK \| click
	}
	}

	proc "assert-marker-count-is" [val is] {
	get-view Markers \| get-label [concat $is " items"] \| get-property caption \| equals [concat $is " items"]
	\| verify-true
	}

	proc "assert-sameTopic-table" [val contains] [val in -input] {
	$in \| get-group "Same Topic" \| get-table \| get-cell -row 1 -column 0 \| get-property "columns[0]" \| equals $contains
	\| verify-true
	}

	proc "assert-noEntry-in-topic-table" [val in -input] {
	$in \| get-group "Same Topic" \| get-table \| get-property itemCount \| equals 0 \| verify-true
	}

	proc "switch-user" [val to] {
	// Add a server connected by an anonymous user and make it the default server
	add-gerrit-server -serverURL $serverURL -serverName $to -userName $to
	selectActiveServer -serverName $to
	}
	proc "assert-that-itemCount-in-history-is" [val is] {
	get-property itemCount \| equals $is \| verify-true
	}

	proc "assert-that-status-in-compare" [val atLine] [val is] [val in -input] {
	with [$in \| get-tree] {
	get-item "" -index $atLine \| get-property "columns[1]" \| equals $is \| verify-true
	}
	}

	proc "assert-that-leftCommentCount-in-compare" [val atLine] [val is] [val in -input] {
	with [$in \| get-tree] {
	get-item "" -index $atLine \| get-property "columns[3]" \| equals $is \| verify-true
	}
	}

	proc "assert-that-rightCommentCount-in-compare" [val atLine] [val is] [val in -input] {
	with [$in \| get-tree] {
	get-item "" -index $atLine \| get-property "columns[4]" \| equals $is \| verify-true
	}
	}

	proc "assert-that-filename-in-compare" [val atLine] [val is] [val in -input] {
	with [$in \| get-tree] {
	get-item "" -index $atLine \| get-property "columns[2]" \| equals $is \| verify-true
	}
	}

	proc "assert-that-filename-in-dialog" [val atLine] [val is] [val in -input] {
	with [$in \| get-table] {
	get-item "" -index $atLine \| get-property "columns[2]" \| equals $is \| verify-true
	}
	}

	proc "activate-review" [val in -input] {
	$in \| get-button "Activate Comment Markers" \| check
	try {
	get-window "EGerrit Tip" \| get-button OK \| click
	} -times 4 -delay $defaultWaitTime
	}

	proc "assert-that-reviewed-flag-is-off" [val row] {
	try {
	with [get-editor \| get-table -index 1] {
	get-cell $row 0 -column 0 \| get-property "cells[0]" \| equals "" \| verify-true
	}
	} -times 4 -delay $defaultWaitTime
	}

	proc "assert-that-reviewed-flag-is-on" [val row] [val in -input] {
	assert-that-reviewed-flag-in-files -row $row -is "org.eclipse.egerrit.ui/icons/greenCheck.png"
	}

	proc "assert-that-reviewed-flag-in-files" [val row] [val is] [val in -input] {
	try {
	with [get-editor \| get-table -index 1] {
	get-cell $row 0 -column 0 \| get-property "cells[0].image.path" \| equals $is \| verify-true
	}
	} -times 4 -delay $defaultWaitTime
	}

	// Open the Problems view.
	proc openProblemsView [] {
	open-view Problems "General/Problems"
	}

	// Open the Markers view.
	proc openMarkersView [] {
	open-view Markers "General/Markers"
	}

	// Look at the items in the Problems view
	proc "assert-problem-count-is" [val is] {
	get-view Problems \| get-label [concat $is " items"] \| get-property caption \| equals [concat $is " items"]
	\| verify-true
	}

	proc "open-view" [val viewName] [val viewPath] {
	try {
	get-view $viewName
	} -catch {
	get-menu "Window/Show View/Other..." \| click
	with [get-window "Show View"] {
	get-tree \| select $viewPath
	get-button OK \| click
	}
	get-view $viewName
	}
	}

	proc "close-view" [val viewName] {
	try {
	get-view $viewName \| close
	} -catch {
	}
	}

	proc "open-file" [val fileName] {
	get-eclipse-window \| key-type "M1+M2+r"
	with [get-window "Open Resource"] {
	get-editbox \| set-text $fileName
	get-table \| select $fileName \| double-click
	}
	}

	proc "assert-that-editor" [val in -input] [val contains] [val close true] {
	open-file $in
	get-editor $in \| get-text-viewer \| get-property text \| equals $contains \| verify-true
	if [$close] {
	get-editor $in \| close
	}
	}

	proc "checkout-revision" [val in -input] [val ps] [val acceptPrompts false] {
	with [$in] {
	with [get-group "" \| get-button -after [get-label "Patch Sets.*"]] {
	click
	get-menu $ps \| click
	}
	with [get-button Download] {
	click
	get-menu "Checkout..." \| click
	}
	}
	if [$acceptPrompts] {
	try {
	get-window "Fetch a change from Gerrit" \| get-button Finish \| click
	} -catch {
	}
	try {
	get-window "EGerrit Tip" \| get-button OK \| click
	} -catch {
	}
	}
	}

	proc "assert-colum-count-in-dashboard-is" [val is] {
	getDashboard \| get-table \| get-property columnCount \| equals $is \| verify-true
	}

	proc "assert-colum-count-in-reviewers-is" [val is] {
	// Test to see the number of columns in the Reviewers table includes the dynamic columns
	with [get-editor] {
	get-tab-folder \| get-tab-item Details \| click
	get-group Reviewers \| get-table \| get-property columnCount \| equals $is \| verify-true
	}
	}
	proc "assert-column-label-in-reviewers" [val col] [val label] {
	// Test the column value is CR "Code-Review", V "Verified", etc
	with [get-editor \| get-group Reviewers \| get-table] {
	get-property [format "columns[%d].caption" $col] \| equals $label \| verify-true
	}
	}

	proc "branch-rename" [val in -input] [val newBranchName] [val gitRepoBranch] {
	with [$in] {
	with [get-button Download] {
	click
	get-menu "Checkout..." \| click
	}
	}

	//Check out branch as specified
	try {
	with [get-window "Fetch a change from Gerrit"] {
	get-group "Action to perform after fetch" \| get-editbox -after [get-label "Branch name:"] \| set-text $newBranchName
	get-button Finish \| click
	}
	} -catch {
	}
	try {
	get-window "EGerrit Tip" \| get-button OK \| click
	} -catch {
	}

	//Validation
	branch-rename-validation -gitRepoBranch $gitRepoBranch -branch $newBranchName
	}

	proc "branch-rename-validation" [val gitRepoBranch] [val branch] {
	//Validation
	get-view "Git Repositories" \| get-tree \| get-item $gitRepoBranch
	\| get-property caption \| contains $branch \| verify-true
	}

	proc "assert-branch-rename-is" [val in -input] [val button] [val gitBranch ] [val lastBranchName] {
	with [$in] {
	with [get-button Download ] {
	click
	get-menu "Checkout..." \| click
	}
	}
	try {
	get-window "EGerrit rename" \| get-button $button \| click
	} -times 4 -delay $defaultWaitTime

	//Validation
	branch-rename-validation -gitRepoBranch $gitBranch -branch $lastBranchName
	}

	proc "prepare-a-server" [val serverURL] [val serverName] {
	get-view "Gerrit Dashboard (EGerrit)" \| get-button "Select current Gerrit repository" \| click -arrow
	get-menu "Add\\/Modify Gerrit Repository..." \| click
	with [get-window Preferences] {
	get-button "New..." \| click
	with [get-window "Gerrit Server Selection"] {
	get-editbox -after [get-label "URL:"] \| set-text $serverURL
	get-editbox -after [get-label "Label:"] \| set-text $serverName
	get-button OK \| click
	}
	}
	}

	proc "close_preference-and-dialog" [val popupLevel1] [val popupLevel2] [val buttonLevel2] {
	with [get-window Preferences] {
	with [get-window $popupLevel1 ] {
	with [get-window $popupLevel2 ] { get-button $buttonLevel2 \| click }
	}
	with [get-window $popupLevel1 ] {
	get-button Cancel \| click
	}
	get-button Cancel \| click
	}
	}

	------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998--