tests/ECPQ7Tests/Editor/Link.test

--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _rr2EEFpSEeKcnaHGSt8OwA,_IuFcgFpZEeKcnaHGSt8OwA,_f3qEUVpSEeKcnaHGSt8OwA,__UtTgD-XEeK-yuKsz0Lang
Element-Name: Link
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _yMGr8HHTEeKndsdNMEr_UQ
Save-Time: 5/16/13 9:38 PM
Testcase-Type: ecl

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

get-view "Model Explorer" | get-tree | select "TestProject \\[trunk, Version 0\\]/Tournament Pro/Matchup/Game" | double-click
get-editor Game | get-link "<a>Player Jonas</a>" | get-property caption | equals "<a>Player Jonas</a>" | verify-true
get-editor Game | get-link "<a>Player Jonas</a>" | click-link
with [get-editor "Player Jonas"] {
    get-label "Player Jonas [Player]" | get-property caption | equals "Player Jonas [Player]" | verify-true
    get-editbox -after [get-label Name] | get-property text | equals Jonas | verify-true
}
get-editor "Player Jonas" | close
get-editor Game | get-button "Delete Reference" -after [get-link "<a>Player Jonas</a>"] | click
get-editor Game | get-label "(Not Set)" | get-property caption | equals "(Not Set)" | verify-true
get-editor Game | get-button "Link Player" | click
with [get-window "Select Elements"] {
    get-table | select "Player Maximilian"
    get-button OK | click
}
get-editor Game | get-link "<a>Player Maximilian</a>" | get-property caption | equals "<a>Player Maximilian</a>" 
    | verify-true
get-editor Game | get-link "<a>Player Maximilian</a>" | click-link
with [get-editor "Player Maximilian"] {
    get-label "Player Maximilian [Player]" | get-property caption | equals "Player Maximilian [Player]" | verify-true
    get-editbox -after [get-label Name] | get-property text | equals Maximilian | verify-true
}
with [get-editor Game] {
    click
    get-button "Create and link new Player" | click
}
with [get-window "New Reference Element"] {
    get-tree | select Player
    get-button Finish | click
}
get-editor Player | get-label "Player [Player]" | get-property caption | equals "Player [Player]" | verify-true
get-editor Game | click
get-editor Game | get-link "<a>Player</a>" | get-property caption | equals "<a>Player</a>" | verify-true
get-view "Model Explorer" | get-tree | select "TestProject \\[trunk, Version 0\\]/Player"
get-editor Player | get-editbox -after [get-label Name] | set-text Hans
get-editor "Player Hans" | get-label "Player Hans [Player]" | get-property caption | equals "Player Hans [Player]" 
    | verify-true
get-editor Game | click
get-editor Game | get-link "<a>Player Hans</a>" | get-property caption | equals "<a>Player Hans</a>" | verify-true
with [get-editor Game] {
    get-button "Delete Reference" -after [get-link "<a>Player Hans</a>"] | click
    get-button "Create and link new Player" | click
}
get-window "New Reference Element" | get-tree | get-item Player | get-property caption | equals Player | verify-true
with [get-window "New Reference Element"] {
    get-tree | select Player
    get-button Finish | click
}
get-editor Player | get-label "Player [Player]" | get-property caption | equals "Player [Player]" | verify-true
with [get-editor Player] {
    get-editbox -after [get-label Name] | set-text Walter
    get-editbox -after [get-label Height] | click-text 1
}
get-editor "Player Walter" | get-editbox -after [get-label Height] | click-text 1
get-editor "Player Walter" | get-label "Player Walter [Player]" | get-property caption 
    | equals "Player Walter [Player]" | verify-true
get-editor Game | click
get-editor Game | get-link "<a>Player Walter</a>" | get-property caption | equals "<a>Player Walter</a>" | verify-true
get-view "Model Explorer" | get-tree | select "TestProject \\[trunk, Version 0\\]" | get-menu "Revert All Operations" | click
get-window Confirmation | get-button Yes | click
get-window Revert | get-button OK | click
get-view "Model Explorer" | get-tree | select "TestProjectSecondCheckOut \\[trunk, Version 0\\]/Tournament Pro/Matchup/Game" | double-click
get-editor Game | get-button "Delete Reference" -after [get-link "<a>Player Jonas</a>"] | click
get-view "Model Explorer" | get-tree | select "TestProjectSecondCheckOut \\[trunk, Version 0\\]" | get-menu Commit | click
get-window Commit | get-button OK | click

get-editor Game | close
get-editor "Player Maximilian" | close
get-editor Game | close
get-view "Model Explorer" | get-tree | select "TestProject \\[trunk, Version 0\\]/Tournament Pro/Matchup/Game" | double-click
get-editor Game | get-link "<a>Player Jonas</a>" | get-property caption | equals "<a>Player Jonas</a>" | verify-true
get-view "Model Explorer" | get-tree | select "TestProject \\[trunk, Version 0\\]" | get-menu Update | click
get-window Update | get-button OK | click
get-editor Game | get-label "(Not Set)" | get-property caption | equals "(Not Set)" | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--