--- RCPTT testcase ---
Format-Version: 1.0
Contexts: _DysjgCPgEeWMU9qdIQ2Zdw
Element-Name: BasicCopyPasteDeleteStuff
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _l9hvsGteEeW6Pd5E4Whelw
Runtime-Version: 2.0.0.201506120617
Save-Time: 11/3/15 7:39 PM
Testcase-Type: ecl

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

get-button "Create workflow (M1+M2+N)" | click
with [get-window "New Workflow"] {
    get-editbox -after [get-label "Workflow name:"] | type-text 123
    get-button Finish | click
}
with [get-editor "123.wf"] {
    with [get-palette | get-palette-entry Joiner] {
        mouse-move 21 7 button1 -height 23 -width 125
        mouse-press 21 7 button1 -height 23 -width 125
        get-figure "0/0" | drag-start 5 4
    }
    with [get-diagram -index 1 | get-edit-part -className WorkflowPart] {
        drag-enter 1151 333 -detail move
        drag-over 183 280 -detail copy
        drag-exit
        drag-accept 183 280 -detail copy
    }
    get-palette | drag-set-data
    get-diagram -index 1 | get-edit-part -className WorkflowPart | drop 183 280 -detail copy
    with [get-palette] {
        drag-end -detail move
        with [get-palette-entry Script] {
            mouse-move 22 13 button1 -height 23 -width 125
            mouse-press 22 13 button1 -height 23 -width 125
            get-figure "0/0" | drag-start 6 10
        }
    }
    with [get-diagram -index 1 | get-edit-part -className WorkflowPart] {
        drag-enter 1190 441 -detail move
        drag-over 516 156 -detail copy
        drag-exit
        drag-accept 516 156 -detail copy
    }
    get-palette | drag-set-data
    get-diagram -index 1 | get-edit-part -className WorkflowPart | drop 516 156 -detail copy
    get-palette | drag-end -detail move
    with [get-diagram -index 1] {
        mouse-move 118 79 button1 -height 625 -width 1203
        mouse-press 118 79 button1 -height 625 -width 1203
        mouse-move 121 86 -mask 524288 -height 625 -width 1203
        mouse-drag 127 92 -mask 524288 -height 625 -width 1203
        with [get-edit-part -className WorkflowPart] {
            mouse-drag 741 484 button1 524288 -height 625 -width 1203
            mouse-release 741 484 button1 524288 -height 625 -width 1203
        }
        mouse-hover 726 484 -height 625 -width 1203
        mouse-move 505 380 button1 -height 625 -width 1203
        mouse-press 505 380 button1 -height 625 -width 1203
        mouse-release 505 380 button1 524288 -height 625 -width 1203
    }
}
get-editor "123.wf" | get-diagram -index 1 | get-edit-part -className WorkflowPart | get-property childrenCount 
    | equals 2 | verify-true
with [get-editor "123.wf"] {
    with [get-diagram -index 1] {
        key-type "M1+a"
        key-type "M1+c"
        key-type "M1+v"
    }
    get-diagram -index 1 | key-type "M1+v"
    get-diagram -index 1 | key-type "M1+v"
    get-diagram -index 1 | key-type "M1+v"
}
get-editor "123.wf" | get-diagram -index 1 | get-edit-part -className WorkflowPart | get-property childrenCount 
    | equals 10 | verify-true
with [get-editor "123.wf" | get-diagram -index 1] {
    key-type "M1+a"
    key-type Del
}
get-editor "123.wf" | get-diagram -index 1 | get-edit-part -className WorkflowPart | get-property childrenCount | equals 0 | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--
