plugins/org.eclipse.sirius.tests.rcptt/context/CreatePropertiesTestsModel.ctx

--- RCPTT testcase ---
Format-Version: 1.0
Context-Type: org.eclipse.rcptt.ctx.ecl
Element-Name: CreatePropertiesTestsModel
Element-Type: context
Element-Version: 2.0
Id: _cuIksAheEea7hcZ9Jto1HQ
Runtime-Version: 2.0.2.201511100828
Save-Time: 4/22/16 9:56 AM

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

get-menu "File/New/Project..." | click
with [get-window "New Project"] {
    get-tree | select "Eclipse Modeling Framework/Empty EMF Project"
    get-button "Next >" | click
}
with [get-window "New Empty EMF Project"] {
    get-editbox -after [get-label "Project name:"] | set-text "org.eclipse.sirius.tests.rcptt.properties.model"
    get-button Finish | click
}
get-view "Project Explorer" | get-tree | select "org.eclipse.sirius.tests.rcptt.properties.model/model" 
    | get-menu "New/Other..." | click
with [get-window New] {
    get-tree | select "Eclipse Modeling Framework/Ecore Model"
    get-button "Next >" | click
    get-editbox -after [get-label "File name:"] | set-text "PropertiesTests.ecore"
    get-button Finish | click
}
with [get-editor "PropertiesTests.ecore" | get-tree] {
    get-item "platform:\\/resource\\/org.eclipse.sirius.tests.rcptt.properties.model\\/model\\/PropertiesTests.ecore/" 
        | click
    select "platform:\\/resource\\/org.eclipse.sirius.tests.rcptt.properties.model\\/model\\/PropertiesTests.ecore/" 
        | get-menu "Show Properties View" | click
    get-item "platform:\\/resource\\/org.eclipse.sirius.tests.rcptt.properties.model\\/model\\/PropertiesTests.ecore/" 
        | click
}
with [get-view Properties | get-tree] {
    get-item Name | click
    select Name | activate-cell-edit -column 1
    get-cell 0 1 | mouse up -count 1
    with [get-editbox] {
        set-text propertiestests
        key-type "TRAVERSE_TAB_NEXT"
    }
    apply-cell-edit
    select "Ns Prefix" | activate-cell-edit -column 1
    get-editbox | set-text "http://www.obeo.fr/propertiestests"
    select "Ns URI" | apply-cell-edit
    select "Ns URI" | activate-cell-edit -column 1
    activate-cell-edit -column 1
    apply-cell-edit -deactivate
    select "Ns Prefix" | activate-cell-edit -column 1
    with [get-editbox] {
        key-type "M1+x"
        set-text ""
    }
    select "Ns URI" | apply-cell-edit
    select "Ns URI" | activate-cell-edit -column 1
    deactivate-cell-edit
    select "Ns URI" | activate-cell-edit -column 1
    get-editbox | key-type "M1+v"
    select "Ns Prefix" | apply-cell-edit
    select "Ns Prefix" | activate-cell-edit -column 1
    deactivate-cell-edit
    select "Ns Prefix" | activate-cell-edit -column 1
    get-editbox | set-text propertiestests
}
get-button "Save (M1+S)" | click
get-view Properties | get-tree | apply-cell-edit
get-editor "PropertiesTests.ecore" | get-tree 
    | select "platform:\\/resource\\/org.eclipse.sirius.tests.rcptt.properties.model\\/model\\/PropertiesTests.ecore/propertiestests" 
    | get-menu "New Child/EClass" | click
with [get-view Properties | get-tree] {
    get-item Name | click
    select Name | activate-cell-edit -column 1
    get-cell 5 1 | mouse up -count 1
    get-editbox | set-text Root
}
get-button "Save (M1+S)" | click
get-view Properties | get-tree | apply-cell-edit
------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998--