--- RCPTT testcase ---
Format-Version: 1.0
Element-Name: ModifyDeleteDraft
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _fMMZYGpEEeaYodJQ29TS-A
Runtime-Version: 2.1.0.201605312320
Save-Time: 12/8/16 10:16 AM
Testcase-Type: ecl

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

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

// Type a comment save it, and then modify it
with [get-editor "Compare.*"] {
	insertComment -on right -text comment -atLine 1 -save
	wait -ms $defaultWaitTime
	insertComment -on right -text "hi " -atLine 3 -column 9
	assert-that-right-editor-content -is "hi comment"
	key-type "M1+s"
	assert-that-right-editor-content -is "hi comment"
}

// Now delete the draft
with [get-editor "Compare.*"] {
	with [get-right-editor] {
		set-caret-pos 3 1
		key-type "M1+d"
		get-property text | contains "hi comment" | verify-false
		key-type "M1+s"
		get-property text | contains "hi comment" | verify-false
	}
}
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--