rcpttTests/platform_tests/Editing/ProjectAndFolder/Create/CancelCreationProject.test

--- RCPTT testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _4zI9AWpgEeCzId1Gnkds9A,_C0SR0GphEeCzId1Gnkds9A
Element-Name: CancelCreationProject
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _qugvAMlzEeCVO9X7TqWdlg
Q7-Runtime-Version: 1.5.0.qualifier
Save-Time: 6/14/14 2:09 PM
Tags: Project, Create
Testcase-Type: ecl

------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa
Content-Type: text/plain
Entry-Name: .description

Copyright (c) 2009, 2014 Xored Software Inc and others.
All rights reserved. This program and the accompanying materials
are made available under the terms of the Eclipse Public License v1.0
which accompanies this distribution, and is available at
http://www.eclipse.org/legal/epl-v10.html

Contributors:
    Xored Software Inc - initial creation and/or initial documentation
--------------------------------------------------------------------------------

1. Open "New Project" window
2. Set name and press "Cancel" button
3. Make sure that project is not created, it is not displayed in Q7 Explorer
------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

get-view "Test Explorer" | get-tree | get-menu "New/RCP Testing Tool Project" | click
with [get-window "New Project"] {
    get-editbox -after [get-label "Project name:"] | get-property value | equals "" | verify-true
    get-button Finish | get-property enablement | equals false | verify-true
}
get-window "New Project" | get-editbox -after [get-label "Project name:"] | set-text q7project
get-window "New Project" | get-button Cancel | click
get-view "Test Explorer" | get-tree | get-property itemCount | equals 0 | verify-true
get-view "Test Explorer" | get-tree | get-menu "New/Other..." | click
with [get-window New] {
    get-tree | select "RCP Testing Tool/RCP Testing Tool Project"
    get-button "Next >" | click
}
with [get-window "New Project"] {
    with [get-editbox -after [get-label "Project name:"]] {
        set-text q7project
        key-type "TRAVERSE_ESCAPE"
    }
}
get-view "Test Explorer" | get-tree | get-property itemCount | equals 0 | verify-true
get-view "Test Explorer" | get-tree | key-type "M1+n"
with [get-window New] {
    get-editbox -after [get-label "Wizards:"] | set-text ""
    get-tree | select "RCP Testing Tool/RCP Testing Tool Project"
    get-button "Next >" | click
}
with [get-window "New Project"] {
    get-editbox -after [get-label "Project name:"] | set-text q7project
    close
}
get-view "Test Explorer" | get-tree | get-property itemCount | equals 0 | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--