ECPQ7Tests/Editor/Table/SetDouble.test

--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _rr2EEFpSEeKcnaHGSt8OwA,_IuFcgFpZEeKcnaHGSt8OwA,_f3qEUVpSEeKcnaHGSt8OwA,__UtTgD-XEeK-yuKsz0Lang
Element-Name: SetDouble
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _zSJeQIpOEeK80-dAVHg-DA
Save-Time: 3/11/13 2:52 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/League America" | double-click
with [get-editor "League America" | get-table] {
    select Jonas | activate-cell-edit -column 2
    with [get-editbox] {
        set-text "1.76"
        key-type Enter
    }
    apply-cell-edit
}
get-view "Model Explorer" | get-tree | select "TestProject/League America/Player Jonas" | double-click
get-editor "Player Jonas" | get-editbox -after [get-label Height] | get-property text | equals "1.76" | verify-true
with [get-editor "Player Jonas" | get-editbox -after [get-label Height]] {
    set-text "1.86"
    key-type Enter
}
get-view "Model Explorer" | get-tree | select "TestProject/League America" | double-click
get-editor "League America" | get-table | get-item Jonas | get-property columns -index 2 | equals "1.86" | verify-true
get-view "Model Explorer" | get-tree | select TestProject | get-menu Commit | click
get-window Commit | get-button OK | click
with [get-view "Model Explorer" | get-tree] {
    select "TestProjectSecondCheckOut/League America/Player Jonas" | double-click
    select TestProjectSecondCheckOut | get-menu Update | click
}
get-window Update | get-button OK | click
get-editor "Player Jonas" | get-editbox -after [get-label Height] | get-property text | equals "1.86" | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--