--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _rr2EEFpSEeKcnaHGSt8OwA,_f3qEUVpSEeKcnaHGSt8OwA,_IuFcgFpZEeKcnaHGSt8OwA
Element-Name: CreateRemoteProject
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _24jooW-REeKndsdNMEr_UQ
Save-Time: 3/27/13 3:31 PM
Testcase-Type: ecl

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

get-view "Model Repositories" | get-tree | select "Local EMFStore" | get-menu Login | click
try { 
	with [get-window "Progress Information" | get-window "Authentication required"] {
	    get-combo -after [get-label Username] | set-text super
	    get-editbox -after [get-label Password] | set-text super
	    get-button | click
	    get-button OK | click
	}
} -catch {}
get-view "Model Repositories" | get-tree | select "Local EMFStore" | get-menu "Create new project..." | click
get-window "Remote Project Name" | get-label "Please enter a name" | get-property caption 
    | equals "Please enter a name" | verify-true
with [get-window "Remote Project Name"] {
    get-editbox -after [get-label "Please enter a name"] | set-text TestProject
    get-button OK | click
}
with [get-view "Model Repositories" | get-tree] {
    get-item "Local EMFStore/TestProject" | get-property caption | equals TestProject | verify-true
    get-item "Local EMFStore" | get-property childCount | equals 1 | verify-true
}
get-view "Model Repositories" | get-tree | select "Local EMFStore/TestProject" | get-menu "Checkout..." | click
get-window Checkout | get-button Finish | click
get-view "Model Explorer" | get-tree | get-property itemCount | equals 1 | verify-true
get-view "Model Explorer" | get-tree | get-item "TestProject \\[trunk, Version 0\\]" | get-property caption | equals "TestProject \\[trunk, Version 0\\]" | verify-true
get-view "Model Explorer" | get-tree | get-item "TestProject \\[trunk, Version 0\\]" | get-property childCount | equals 0 | verify-true


------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--