--- RCPTT testcase ---
Format-Version: 1.0
Contexts: __ZTV8Au2EeOLiPM97zhEfw,_4zI9AWpgEeCzId1Gnkds9A
Element-Name: Comment 2-lines
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _pLJ3kCbQEeSJvYFSUnsXEQ
Runtime-Version: 2.5.0.201907142359
Save-Time: 7/18/19 2:32 PM
Testcase-Type: ecl

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

get-view "Test Explorer" | get-tree | select "MyProject/New Java Class Procs" | double-click
with [get-editor "New Java Class Procs" | get-section Script | get-text-viewer] {
    set-caret-pos 27 1
    key-type Enter
    type-text "// Description of create-java-class procedure"
    key-type Enter
    type-text "// Second description line"
    key-type "M1+END"
    type-text "create-java-class"
    key-type Enter
}
get-editor "New Java Class Procs" | get-section Script | get-text-viewer | hover-text 36 9 -with Left
with [get-window -from "Information Window" | get-control Browser | get-property text -raw | invoke toLowerCase ] {
	invoke contains "procedure <b>create-java-class</b>" | verify-true
	invoke contains "description of create-java-class procedure second description line" | verify-true
}

// Adds linebreak
with [get-editor "New Java Class Procs" | get-section Script | get-text-viewer] {
    set-caret-pos 28 46
    key-type Enter
}
get-editor "New Java Class Procs" | get-section Script | get-text-viewer | hover-text 36 9 -with Left
with [get-window -from "Information Window" | get-control Browser | get-property text -raw | invoke toLowerCase ] {
	invoke contains "procedure <b>create-java-class</b>"
	invoke contains "description of create-java-class procedure second description line" | verify-false
	invoke contains "second description line" | verify-true
}

//"Procedure <b>create-java-class</b>\\n"
 //   + "<br /> Description of create-java-class procedure Second description line\\n"

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