--- RCPTT testcase ---
Format-Version: 1.0
Contexts: _4zI9AWpgEeCzId1Gnkds9A
Element-Name: CreateNewObjectFromToolbar
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _MOxZYM71EeCw4ppgsBRMGg
Runtime-Version: 1.5.3.201409120955
Save-Time: 9/16/14 11:41 AM
Tags: Toolbar, Create, Context, TestCase, TestSuite, Folder, Project
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. Press "New" button on toolbar
2. Select Q7 Project, set name and press "Finish" button
3. Make sure that project is created
4. Press "New Test Case" on toolbar
5. Press "New Context" on toolbar
6. Make sure that objects are created
------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

get-button New | click
with [get-window New] {
    get-label "Select a wizard" | get-property caption | equals "Select a wizard" | verify-true
    get-tree | get-item "RCP Testing Tool" | get-property caption | equals "RCP Testing Tool" | verify-true
}
get-window New | get-editbox -after [get-label "Wizards:"] | set-text "RCP Testing"
get-window New | get-tree | get-property itemCount | equals 1 | verify-true
with [get-window New] {
    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 TestProject
    get-button Finish | click
}
with [get-view "Test Explorer" | get-tree] {
    get-property itemCount | equals 1 | verify-true
    get-item TestProject | get-property caption | equals TestProject | verify-true
}
get-button New | click -arrow
get-menu "Test Case" | click
with [get-window "New Test Case"] {
    get-editbox -after [get-label "Name:"] | set-text testcase
    get-button Finish | click
}
with [get-tab-folder] {
    get-property pages -index 0 | equals testcase | verify-true
    get-property tabCount | equals 1 | verify-true
}
with [get-view "Test Explorer" | get-tree] {
    get-item TestProject | get-property caption | equals TestProject | verify-true
    get-item TestProject | get-property childCount | equals 2 | verify-true
    get-item "TestProject/testcase" | get-property caption | equals testcase | verify-true
}
get-button New | click -arrow
get-menu Context | click
with [get-window "New Context Wizard"] {
    with [get-table] {
        select Workspace | key-type "M2+w"
        select Workbench | key-type "M2+s"
    }
    get-editbox -after [get-label "Name:"] | set-text WS
    get-button "Browse..." | click
    with [get-window "Select Location"] {
        get-tree | select TestProject
        get-button OK | click
    }
    get-button Finish | click
}
//with [get-tab-folder] {
//    get-property pages -index 0 | equals testcase | verify-true
//    get-property pages -index 1 | equals WS | verify-true
//    get-property tabCount | equals 2 | verify-true
//}
with [get-view "Test Explorer" | get-tree] {
    get-property itemCount | equals 1 | verify-true
    get-item TestProject | get-property caption | equals TestProject | verify-true
    get-item TestProject | get-property childCount | equals 3 | verify-true
    get-item "TestProject/WS" | get-property caption | equals WS | verify-true
    get-item "TestProject/WS" | get-property childCount | equals 0 | verify-true
    get-item "TestProject/testcase" | get-property caption | equals testcase | verify-true
    get-item "TestProject/testcase" | get-property index | equals 2 | verify-true
}
get-button New | click -arrow
get-menu Folder | click
with [get-window "New Folder"] {
    get-tree | select TestProject
    get-editbox -after [get-label "Folder name:"] | set-text Folder
    get-button Finish | click
}
with [get-view "Test Explorer" | get-tree] {
    get-item TestProject | get-property childCount | equals 4 | verify-true
    get-property itemCount | equals 1 | verify-true
    get-item "TestProject/Folder" | get-property caption | equals Folder | verify-true
}
get-button New | click -arrow
get-menu "Test Suite" | click
with [get-window "New Test Suite"] {
    get-button "Browse..." | click
    with [get-window "Select Location"] {
        get-tree | select "TestProject/Folder"
        get-button OK | click
    }
    get-editbox -after [get-label "Name:"] | set-text TestSuite
    get-button Finish | click
}
with [get-tab-folder -index 1] {
    get-property pages -index 0 | equals testcase | verify-true
    get-property pages -index 1 | equals WS | verify-true
    get-property pages -index 2 | equals TestSuite | verify-true
    get-property activePage | equals TestSuite | verify-true
    get-property tabCount | equals 3 | verify-true
}
with [get-view "Test Explorer" | get-tree] {
    get-item TestProject | get-property childCount | equals 4 | verify-true
    get-property itemCount | equals 1 | verify-true
    get-item "TestProject/Folder" | get-property childCount | equals 1 | verify-true
    get-item "TestProject/Folder/TestSuite" | get-property caption | equals TestSuite | verify-true
}
get-editor TestSuite | get-editbox -after [get-label "Name:"] | key-type "M1+M2+w"
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--