rcpttTests/platform_tests/q7Explorer/CheckResourceModifications.test

--- RCPTT testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _tlWZcGphEeCzId1Gnkds9A,_4zI9AWpgEeCzId1Gnkds9A
Element-Name: CheckResourceModifications
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _BRzvUauEEeCWRZbw2IzBOQ
Q7-Runtime-Version: 1.5.0.201406131029
Save-Time: 6/13/14 7:10 PM
Tags: Create, Delete, Q7Explorer
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
--------------------------------------------------------------------------------
------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

with [get-view "Test Explorer" | get-tree] {
    get-item TestQ7Prj | get-property caption | equals TestQ7Prj | verify-true
    get-item TestQ7Prj | get-property childCount | equals 1 | verify-true
}
get-view "Test Explorer" | get-tree | select TestQ7Prj | get-menu "New/Test Case" | click
with [get-window "New Test Case"] {
    get-editbox -after [get-label "Name:"] | set-text asd
    get-button Finish | click
}
with [get-view "Test Explorer" | get-tree] {
    get-item "TestQ7Prj/asd" | get-property caption | equals asd | verify-true
    get-item "TestQ7Prj/asd" | get-property index | equals 1 | verify-true
}
get-view "Test Explorer" | get-tree | select TestQ7Prj | get-menu "New/Project..." | click
with [get-window "New Project"] {
    get-tree | select "General/Project"
    get-button "Next >" | click
    get-editbox -after [get-label "Project name:"] | set-text genProject
    get-button Finish | click
}
with [get-view "Test Explorer" | get-tree] {
    get-item genProject | get-property caption | equals genProject | verify-true
    get-item genProject | get-property index | equals 0 | verify-true
}
get-view "Test Explorer" | get-tree | select genProject | get-menu "New/Other..." | click
with [get-window New] {
    get-tree | select "General/File"
    get-button "Next >" | click
}
with [get-window "New File"] {
    get-editbox -after [get-label "File name:"] | set-text file
    get-button Finish | click
}
with [get-view "Test Explorer" | get-tree] {
    get-item "genProject/file" | get-property caption | equals file | verify-true
    get-item "genProject/file" | get-property index | equals 0 | verify-true
}
get-view "Test Explorer" | get-tree | select genProject
get-view "Test Explorer" | get-tree | select "genProject/file" | get-menu Delete | click
get-window "Delete Resources" | get-button OK | click
get-view "Test Explorer" | get-tree | get-item genProject | get-property childCount | equals 0 | verify-true
get-view "Test Explorer" | get-tree | select genProject | get-menu Delete | click
with [get-window "Delete Resources"] {
    get-button "Delete project contents on disk (cannot be undone)" | click
    get-button OK | click
}
get-view "Test Explorer" | get-tree | get-property itemCount | equals 1 | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--