--- RCPTT testcase ---
Format-Version: 1.0
Contexts: _k2NaAHwYEeaC-KGN0DI6Vw,_a10TIHwYEeaC-KGN0DI6Vw
Element-Name: Change Location with Link
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _iPQ-oLFaEealg-LeUS-zSA
Runtime-Version: 2.2.0.201706152316
Save-Time: 8/28/17 2:48 PM
Testcase-Type: ecl

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

with [get-view Navigator | get-tree] {
    select "test/shakespeare.txt" | click -default
    select "test/shakespeare.txt" | double-click
}
get-view Mapping | get-combo -after [get-label "Mapping base:"] | select test
with [get-view "Synchronization Palette" | get-tree] {
    key-type "M1+a"
    key-type Del
}
with [get-editor "shakespeare.txt" | get-text-viewer] {
    set-caret-pos 14 1
    set-caret-pos 14 2
    select-range 14 1 14 21
    get-menu "Synchronize/Add location to synchronization palette" | click
}
with [get-view "Synchronization Palette" | get-tree] {
    get-item "Shakespearean comedy" | check
    select "Shakespearean comedy"
}
with [get-editor "shakespeare.txt" | get-text-viewer] {
    set-caret-pos 20 5
    select-range 20 4 20 23
}
get-view Mapping | get-combo -after [get-label "Mapping base:"] | select test
with [get-editor "shakespeare.txt" | get-text-viewer] {
    get-menu "Synchronize/Link location as master source" | click
}
with [get-editor "shakespeare.txt" | get-text-viewer] {
    set-caret-pos 20 14
    select-range 20 12 20 15
    type-text FOR
    key-type "M1+s"
}
get-view Mapping | get-tab-folder | get-tab-item Report | click
with [get-view Mapping | get-tree] {
    get-item "\\/test\\/shakespeare.txt/\"Measure FOR Measure\"/\"Measure FOR Measure\"" | get-property "columns[0]" | equals "\"Measure FOR Measure\"" 
        | verify-true
    get-item "\\/test\\/shakespeare.txt/\"Measure FOR Measure\"/\"Measure FOR Measure\"" | get-property "columns[1]" 
        | equals "\"Shakespearean comedy\"" | verify-true
    get-item "\\/test\\/shakespeare.txt/\"Measure FOR Measure\"/\"Measure FOR Measure\"/\"Measure for Measure\" at \\(345, 364\\) has been changed to \"Measure FOR Measure\" at \\(345, 364\\)." 
        | get-property caption | equals "\"Measure for Measure\" at (345, 364) has been changed to \"Measure FOR Measure\" at (345, 364)." | verify-true
}
get-view Mapping | get-tab-folder | get-tab-item Document | click
with [get-view Mapping] {
    with [get-tree] {
        get-item "\"Measure FOR Measure\"/\"Measure FOR Measure\"" | get-property "columns[0]" 
            | equals "\"Measure FOR Measure\"" | verify-true
        get-item "\"Measure FOR Measure\"/\"Measure FOR Measure\"" | get-property "columns[1]" 
            | equals "\"Shakespearean comedy\"" | verify-true
    }
    with [get-tree -after [get-label "Outgoing Links"]] {
        get-item "\"Shakespearean comedy\"/\"Measure FOR Measure\"" | get-property "columns[0]" 
            | equals "\"Measure FOR Measure\"" | verify-true
        get-item "\"Shakespearean comedy\"/\"Measure FOR Measure\"" | get-property "columns[1]" 
            | equals "\"Shakespearean comedy\"" | verify-true
    }
}
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--