--- Q7 testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _Lv5cQH_rEeKzh4ksbY4F-Q,_ffbh0IFzEeKinvTtsw86yA,_tqcwUIraEeKFictDEDHejA
Element-Name: QS-1373_Q7 records set-text "" when I copy-paste text into test case description field
Element-Type: testcase
Element-Version: 3.0
External-Reference: 
Id: _l8sGwIVxEeKoJ7PviL-2Dw
Save-Time: 7/15/13 5:29 PM
Testcase-Type: ecl

------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa
Content-Type: text/plain
Entry-Name: .description

Steps to reproduce:

1. Start recording;
2. Open any test case, type something into tags field;
3. Click Ctrl+A, Ctrl+C on tags field to copy inserted text to clipboard;
4. Click into Description field and press Ctrl+A, Ctrl+V to paste text from clipboard.

The recorded script will be the following:

with [get-editor TC2] {
with [get-editbox -after [get-label "Tags:"]] { set-text tag2fdg key-type "M1+a" key-type "M1+c" }
with [get-section Description | get-editbox] { key-type "M1+a" key-type "M1+v" set-text "" }
}

And test case will fail because of unexpected set-text "" command.
------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

get-view "Q7 Explorer" | get-tree | select "MyProject/TC1" | double-click
get-editor TC1 | get-button Record | click
get-window "Q7 Control Panel.*" | minimize

//exec-process -command "\"C:\\Program Files\\Sikuli X\\Sikuli-IDE.exe\"" -args "-r \"C:\\Users\\bamboo\\Documents\\SikuliTests\\PasteIntoDescriptionField.sikuli\" -s" -ignoreExitCode
//exec-process -command "\"C:\\Program Files\\Sikuli X\\Sikuli-IDE.exe\"" -args [substitute-variables "-r \"${resource_loc:sikuli/PasteIntoDescriptionField.sikuli}\" -s"] -ignoreExitCode
exec-process "\"C:\\Program Files\\Sikuli X\\Sikuli-IDE.exe\"""-r" [substitute-variables "\"${resource_loc:sikuli/PasteIntoDescriptionField.sikuli}\""]"-s"-ignoreExitCode
get-window "Q7 Control Panel.*" | get-button Stop | click
get-window "Q7 Control Panel.*" | get-editbox | get-property text 
    | equals "with [get-view \"Q7 Explorer\" | get-tree] {\n"
    + "    select Q7Project | double-click\n"
    + "    select \"Q7Project/TestCase\" | double-click\n}\n"
    + "with [get-editor TestCase] {\n"
    + "    get-editbox -after [get-label \"Tags:\"] | type-text t\n"
    + "    get-editbox -after [get-label \"Tags:\"] | key-type \"M1+a\"\n"
    + "    get-editbox -after [get-label \"Tags:\"] | key-type \"M1+c\"\n"
    + "    with [get-section Description] {\n"
    + "        click\n"
    + "        get-text-viewer | key-type \"M1+v\"\n"
    + "    }\n"
    + "}" | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--