tests/ECPQ7Tests/file/UndoLastCommand.test

--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _rr2EEFpSEeKcnaHGSt8OwA,_f3qEUVpSEeKcnaHGSt8OwA,_WoYXsKEnEeKX8e34E6tWIg,_7kKq0KEjEeKX8e34E6tWIg
Element-Name: UndoLastCommandWorkspaceProject
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _7dPmoKEnEeKX8e34E6tWIg
Save-Time: 5/2/13 4:19 PM
Tags: skipExecution
Testcase-Type: ecl

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

get-view "Model Explorer" | get-tree | select "TestProject/Tournament Pro/Matchup/Game" | double-click
with [get-editor Game] {
    get-button "Add Entry" | click
    get-editbox -after [get-label Frames] | set-text 5
    get-button "Add Entry" | click
    get-editbox -after [get-label Frames] -index 1 | set-text 5
    get-editbox -after [get-label Frames] | set-text 4
    get-editbox -after [get-label Frames] -index 1 | click-text 2
    get-button "Add Entry" | click
    get-editbox -after [get-label Frames] -index 2 | set-text 3
    get-editbox -after [get-label Frames] -index 1 | click-text 1
}
get-view "Model Explorer" | get-tree | select TestProject
with [get-editor Game] {
    get-control Any -index 56 | get-property "getChildren().length" | equals 3 | verify-true
    get-editbox -after [get-label Frames] | get-property text | equals 4 | verify-true
    get-editbox -after [get-label Frames] -index 1 | get-property text | equals 5 | verify-true
    get-editbox -after [get-label Frames] -index 2 | get-property text | equals 3 | verify-true
}
with [get-view "Model Explorer" | get-tree] {
    select TestProject | get-menu "Undo Last Command" | click
    select TestProject | get-menu "Undo Last Command" | click
}
with [get-editor Game] {
    get-control Any -index 56 | get-property "getChildren().length" | equals 2 | verify-true
    get-editbox -after [get-label Frames] | get-property text | equals 4 | verify-true
    get-editbox -after [get-label Frames] -index 1 | get-property text | equals 5 | verify-true
}
get-button "Save Project" | click
get-view "Model Explorer" | get-tree | get-item "TestProject/Tournament Pro" | get-item Matchup -index 2 
    | get-property childCount | equals 1 | verify-true
get-view "Model Explorer" | get-tree | select [get-item "TestProject/Tournament Pro" | get-item Matchup -index 2] 
    | get-menu Game | click

get-view "Model Explorer" | get-tree | get-item "TestProject/Tournament Pro" | get-item Matchup -index 2 
    | get-property childCount | equals 2 | verify-true
get-view "Model Explorer" | get-tree | select TestProject | get-menu "Undo Last Command" | click
get-view "Model Explorer" | get-tree | get-item "TestProject/Tournament Pro" | get-item Matchup -index 2 
    | get-property childCount | equals 1 | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--