| --- RCPTT testcase --- |
| Format-Version: 1.0 |
| Context-Type: org.eclipse.rcptt.ctx.ecl |
| Element-Name: ECL_Procedure |
| Element-Type: context |
| Element-Version: 2.0 |
| Id: _procedurestotestclassdiagram |
| Runtime-Version: 2.0.2.201511100828 |
| Save-Time: 6/23/16 4:11 PM |
| |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998 |
| Content-Type: text/ecl |
| Entry-Name: .ecl.context |
| |
| // This function creates a Papyrus project. |
| proc "create-project" [val nameProject] { |
| |
| // Define the new project name. |
| get-menu "File/New/Papyrus Project" | click |
| with [get-window "New Papyrus Project"] { |
| get-button "Next >" | click |
| with [get-editbox -after [get-label "Project name:"]] { |
| set-text $nameProject |
| } |
| get-button "Next >" | click |
| } |
| |
| // Validate the creation of the Papyrus project. |
| get-window "New Papyrus Project" | get-button Finish | click |
| |
| // Verify if the Papyrus project has been created. |
| get-view "Project Explorer" | get-tree | get-item $nameProject | get-property caption | equals $nameProject | verify-true |
| } |
| |
| |
| //This function renames a RootElement. |
| proc "rename-rootElement" [val currentNameRootE] [val newNameRootE] { |
| with [get-view "Model Explorer" | get-tree] { |
| get-item $currentNameRootE | click |
| select $currentNameRootE | get-menu Rename | click |
| } |
| with [get-window "Rename..."] { |
| get-editbox -after [get-label "New name:"] | set-text $newNameRootE |
| get-button OK | click |
| } |
| |
| get-view "Model Explorer" | get-tree | get-item $newNameRootE | get-property caption | equals $newNameRootE | verify-true |
| } |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998-- |
