tests/ECPQ7Tests/emfstore/Unset.test

--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _rr2EEFpSEeKcnaHGSt8OwA,_f3qEUVpSEeKcnaHGSt8OwA,_IuFcgFpZEeKcnaHGSt8OwA
Element-Name: Unset
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _IDNr4LZhEeKIbujrltRAUA
Save-Time: 6/27/13 12:09 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 | get-menu "Create new project" | click
with [get-window "Create Project"] {
    get-editbox -after [get-label "Project Name:"] | set-text UnsetTest
    get-button Finish | click
}
get-view "Model Explorer" | get-tree | select UnsetTest | get-menu "New Model Element" | click
with [get-window "Add new model element"] {
    get-tree | select "bowling/Fan"
    get-button Finish | click
}
with [get-editor Fan] {
    get-label "No text set! Click to set text." | get-property caption | equals "No text set! Click to set text." 
        | verify-true
    get-label "No date set! Click to set date." | get-property caption | equals "No date set! Click to set date." 
        | verify-true
    get-label "No boolean set! Click to set boolean." | get-property caption 
        | equals "No boolean set! Click to set boolean." | verify-true
    get-label "Not set. Click to set!" | get-property caption | equals "Not set. Click to set!" | verify-true
    get-label "No value set! Click to set value." | get-property caption | equals "No value set! Click to set value." 
        | verify-true
    get-label "No link set! Click to set link." | get-property caption | equals "No link set! Click to set link." 
        | verify-true
    get-label "Not set. Click to set!" -after [get-label "Visited Tournaments"] | get-property caption 
        | equals "Not set. Click to set!" | verify-true
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Money Spent On Tickets"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-view "Model Explorer" | get-tree | get-item "UnsetTest/Fan" | get-property childCount | equals 0 | verify-true
get-view "Model Explorer" | get-tree | select UnsetTest | get-menu Share | click
with [get-window "ECPRepository Wizard"] {
    get-button "Select existing repository" | click
    get-button "Next >" | click
    get-table | select "Local EMFStore"
    get-button Finish | click
}
try{
with [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-window "Share succeeded" | get-button OK | click
get-view "Model Repositories" | get-tree | select "Local EMFStore/UnsetTest" | get-menu "Checkout..." | click
with [get-window Checkout] {
    get-editbox -after [get-label "Project name:"] | set-text UnsetTest2
    get-button Finish | click
}
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 0\\]/Fan" | double-click
with [get-editor Fan] {
    get-label "No text set! Click to set text." | get-property caption | equals "No text set! Click to set text." 
        | verify-true
    get-label "No date set! Click to set date." | get-property caption | equals "No date set! Click to set date." 
        | verify-true
    get-label "No boolean set! Click to set boolean." | get-property caption 
        | equals "No boolean set! Click to set boolean." | verify-true
    get-label "Not set. Click to set!" | get-property caption | equals "Not set. Click to set!" | verify-true
    get-label "No value set! Click to set value." | get-property caption | equals "No value set! Click to set value." 
        | verify-true
    get-label "No link set! Click to set link." | get-property caption | equals "No link set! Click to set link." 
        | verify-true
    get-label "Not set. Click to set!" -after [get-label "Visited Tournaments"] | get-property caption 
        | equals "Not set. Click to set!" | verify-true
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Money Spent On Tickets"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-editor Fan | close
with [get-view "Model Explorer" | get-tree] {
    select "UnsetTest \\[trunk, Version 0\\]/Fan" | get-menu "Fan Merchandise Merchandise" | click
    select "UnsetTest \\[trunk, Version 0\\]/Fan" | get-menu "Favourite Merchandise Merchandise" | click
}
with [get-editor Merchandise] {
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Serial Number"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-view "Model Explorer" | get-tree | get-item "UnsetTest \\[trunk, Version 0\\]/Fan" | get-property childCount 
    | equals 2 | verify-true
get-view "Model Explorer" | get-tree | select "UnsetTest \\[trunk, Version 0\\]" | get-menu Commit | click
get-window Commit | get-button OK | click
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 0\\]" | get-menu Update | click
get-window Update | get-button OK | click
get-view "Model Explorer" | get-tree | select [get-item "UnsetTest2 \\[trunk, Version 1\\]/Fan" | get-item Merchandise 
    -index 1] | double-click
with [get-editor Merchandise] {
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Serial Number"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-view "Model Explorer" | get-tree | get-item "UnsetTest2 \\[trunk, Version 1\\]/Fan" | get-property childCount 
    | equals 2 | verify-true
get-editor Merchandise | close
get-editor Merchandise | close
get-editor Merchandise | close
with [get-editor Fan] {
    get-label "No text set! Click to set text." | click
    get-label "No date set! Click to set date." | click
    get-label "No boolean set! Click to set boolean." | click
    get-label "Not set. Click to set!" | click
    get-label "No value set! Click to set value." | click
    get-label "No link set! Click to set link." | click
    get-label "Not set. Click to set!" | click
    get-label "No number set! Click to set number." | click
    get-label "No number set! Click to set number." | click
}
with [get-editor Fan] {
    get-editbox -after [get-label Name] | get-property text | equals "" | verify-true
    get-button "Unset text" | get-property tooltip | equals "Unset text" | verify-true
}
with [get-editor Fan] {
    get-date-time | set-value "2013/5/12 18:9:46"
    get-date-time -after [get-label "Date Of Birth"] -index 1 | set-value "2013/5/13 17:9:46"
}
with [get-editor Fan] {
    get-date-time | get-property date | equals "2013/5/12" | verify-true
    get-date-time -after [get-label "Date Of Birth"] -index 1 | get-property time | equals "17:9:46" | verify-true
    get-button "Unset Date" | get-property tooltip | equals "Unset Date" | verify-true
    get-button "The Has Season Ticket of the Fan" | get-property selected | equals false | verify-true
    get-button "Unset boolean" | get-property tooltip | equals "Unset boolean" | verify-true
    get-button Unset | get-property tooltip | equals Unset | verify-true
    get-combo -after [get-label Gender] | get-property selection | equals Female | verify-true
    get-button "Unset value" | get-property tooltip | equals "Unset value" | verify-true
    get-button "Unset Link" | get-property tooltip | equals "Unset Link" | verify-true
    get-label "(Not Set)" | get-property caption | equals "(Not Set)" | verify-true
    get-button Unset -after [get-label "Visited Tournaments"] | get-property tooltip | equals Unset | verify-true
    get-editbox -after [get-label "Number Of Tournaments Visited"] | get-property text | equals 0 | verify-true
    get-button "Unset number" | get-property tooltip | equals "Unset number" | verify-true
    get-editbox -after [get-label "Money Spent On Tickets"] | get-property text | equals "0" | verify-true
    get-button "Unset number" -after [get-label "Money Spent On Tickets"] | get-property tooltip 
        | equals "Unset number" | verify-true
}
get-view "Model Explorer" | get-tree | select "UnsetTest \\[trunk, Version 1\\]/Fan/Merchandise" | double-click
with [get-editor Merchandise] {
    get-label "No number set! Click to set number." | click
    get-label "No number set! Click to set number." | click
}
with [get-editor Merchandise] {
    get-editbox -after [get-label Price] | get-property text | equals "" | verify-true
    get-editbox -after [get-label "Serial Number"] | get-property text | equals "" | verify-true
    get-button "Unset number" | get-property tooltip | equals "Unset number" | verify-true
    get-button "Unset number" -after [get-label "Serial Number"] | get-property tooltip | equals "Unset number" 
        | verify-true
}
get-view "Model Explorer" | get-tree | select "UnsetTest \\[trunk, Version 1\\]" | get-menu Commit | click
get-window Commit | get-button OK | click
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 1\\]" | get-menu Update | click
get-window Update | get-button OK | click
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 2\\]/Fan" | double-click
get-editor Fan | click
get-editor Fan | click
with [get-editor Fan] {
    get-editbox -after [get-label Name] | get-property text | equals "" | verify-true
    get-button "Unset text" | get-property caption | equals "" | verify-true
    get-date-time | get-property date | equals "2013/5/12" | verify-true
    get-date-time -after [get-label "Date Of Birth"] -index 1 | get-property time | equals "17:9:46" | verify-true
    get-button "Unset Date" | get-property caption | equals "" | verify-true
    get-button Unset | get-property tooltip | equals Unset | verify-true
    with [get-control Any -index 59] {
        get-property enablement | equals true | verify-true
        get-property containMenu | equals false | verify-true
        get-property borderWith | equals 0 | verify-true
        get-property backgroundColor | equals "#FFFFFF" | verify-true
        get-property foregroundColor | equals "#000000" | verify-true
    }
    get-combo -after [get-label Gender] | get-property selection | equals Female | verify-true
    get-button "Unset value" | get-property tooltip | equals "Unset value" | verify-true
    get-button "The Has Season Ticket of the Fan" | get-property selected | equals false | verify-true
    get-button "Unset boolean" | get-property tooltip | equals "Unset boolean" | verify-true
    get-button "Unset Link" | get-property tooltip | equals "Unset Link" | verify-true
    get-label "(Not Set)" | get-property caption | equals "(Not Set)" | verify-true
    get-button Unset -after [get-label "Visited Tournaments"] | get-property tooltip | equals Unset | verify-true
    with [get-control Any -index 95] {
        get-property enablement | equals true | verify-true
        get-property containMenu | equals false | verify-true
        get-property borderWith | equals 0 | verify-true
        get-property backgroundColor | equals "#FFFFFF" | verify-true
        get-property foregroundColor | equals "#000000" | verify-true
    }
    get-button "Unset number" | get-property tooltip | equals "Unset number" | verify-true
    get-editbox -after [get-label "Number Of Tournaments Visited"] | get-property text | equals 0 | verify-true
    get-button "Unset number" -after [get-label "Money Spent On Tickets"] | get-property tooltip 
        | equals "Unset number" | verify-true
    get-editbox -after [get-label "Money Spent On Tickets"] | get-property text | equals "0" | verify-true
}
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 2\\]/Fan/Merchandise" | double-click
with [get-editor Merchandise] {
    get-editbox -after [get-label Price] | get-property text | equals "" | verify-true
    get-button "Unset number" | get-property tooltip | equals "Unset number" | verify-true
    get-editbox -after [get-label "Serial Number"] | get-property text | equals "" | verify-true
    get-button "Unset number" -after [get-label "Serial Number"] | get-property tooltip | equals "Unset number" 
        | verify-true
}
get-editor Merchandise | close
get-editor Fan | close
get-editor Merchandise | close
with [get-editor Fan] {
    get-button "Unset text" | click
    get-button "Unset Date" | click
    get-button Unset | click
    get-button "Unset boolean" | click
    get-button "Unset Link" | click
    get-button "Unset value" | click
    get-button Unset | click
    get-button "Unset number" | click
    get-button "Unset number" | click
}
with [get-view "Model Explorer" | get-tree] {
    select "UnsetTest \\[trunk, Version 2\\]/Fan/Merchandise" | get-menu "Delete Model Element" | click
    select "UnsetTest \\[trunk, Version 2\\]/Fan/Merchandise" | get-menu "Delete Model Element" | click
}
with [get-editor Fan] {
    get-label "No text set! Click to set text." | get-property caption | equals "No text set! Click to set text." 
        | verify-true
    get-label "No date set! Click to set date." | get-property caption | equals "No date set! Click to set date." 
        | verify-true
    get-label "No boolean set! Click to set boolean." | get-property caption 
        | equals "No boolean set! Click to set boolean." | verify-true
    get-label "Not set. Click to set!" | get-property caption | equals "Not set. Click to set!" | verify-true
    get-label "No value set! Click to set value." | get-property caption | equals "No value set! Click to set value." 
        | verify-true
    get-label "No link set! Click to set link." | get-property caption | equals "No link set! Click to set link." 
        | verify-true
    get-label "Not set. Click to set!" -after [get-label "Visited Tournaments"] | get-property caption 
        | equals "Not set. Click to set!" | verify-true
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Money Spent On Tickets"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-view "Model Explorer" | get-tree | get-item "UnsetTest \\[trunk, Version 2\\]/Fan" | get-property childCount 
    | equals 0 | verify-true
get-view "Model Explorer" | get-tree | select "UnsetTest \\[trunk, Version 2\\]" | get-menu Commit | click
get-window Commit | get-button OK | click
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 2\\]" | get-menu Update | click
get-window Update | get-button OK | click
get-view "Model Explorer" | get-tree | select "UnsetTest2 \\[trunk, Version 3\\]/Fan" | double-click
with [get-editor Fan] {
    get-label "No text set! Click to set text." | get-property caption | equals "No text set! Click to set text." 
        | verify-true
    get-label "No date set! Click to set date." | get-property caption | equals "No date set! Click to set date." 
        | verify-true
    get-label "No boolean set! Click to set boolean." | get-property caption 
        | equals "No boolean set! Click to set boolean." | verify-true
    get-label "Not set. Click to set!" | get-property caption | equals "Not set. Click to set!" | verify-true
    get-label "No value set! Click to set value." | get-property caption | equals "No value set! Click to set value." 
        | verify-true
    get-label "No link set! Click to set link." | get-property caption | equals "No link set! Click to set link." 
        | verify-true
    get-label "Not set. Click to set!" -after [get-label "Visited Tournaments"] | get-property caption 
        | equals "Not set. Click to set!" | verify-true
    get-label "No number set! Click to set number." | get-property caption 
        | equals "No number set! Click to set number." | verify-true
    get-label "No number set! Click to set number." -after [get-label "Money Spent On Tickets"] | get-property caption 
        | equals "No number set! Click to set number." | verify-true
}
get-view "Model Explorer" | get-tree | get-item "UnsetTest2 \\[trunk, Version 3\\]/Fan" | get-property childCount 
    | equals 0 | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--