rcpttTests/ECL_IDE_module/editors/ScenarioEditor/ScriptViewer/NavigationOnScriptViewer.test

--- RCPTT testcase ---
Format-Version: 1.0
Contexts: _ymiyse5IEeCU6db9MgIBkA,__2fEACC3EeGpvKMy1SUvBw
Element-Name: NavigationOnScriptViewer
Element-Type: testcase
Element-Version: 3.0
External-Reference: http://jira4.xored.com/browse/QS-1741
Id: _3SkmQEu5EeG_ScHaVV2s7w
Runtime-Version: 2.5.0.201910180844
Save-Time: 10/21/19 3:11 AM
Tags: ECL_IDE_module, TestCase
Testcase-Type: ecl

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

Copyright (c) 2009, 2014 Xored Software Inc and others.
All rights reserved. This program and the accompanying materials
are made available under the terms of the Eclipse Public License v1.0
which accompanies this distribution, and is available at
http://www.eclipse.org/legal/epl-v10.html

Contributors:
    Xored Software Inc - initial creation and/or initial documentation
--------------------------------------------------------------------------------

Test Steps:
1. Open test case
2. Put cursor in script editor
3. Make sure that position is displayed correctly
4. Press "Ctrl+Left" and make sure that position of cursor is changed
5. Press "Ctrl+Right" and make sure that position of cursor is changed
------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

get-view "Test Explorer" | get-tree | select "MyProject/WorkspaceIsEmpty" | double-click
get-editor WorkspaceIsEmpty | get-section Script | get-text-viewer | set-caret-pos 1 1
get-label -after [get-label "Smart Insert"] -index 1| get-property caption | equals "1 : 1 : 0" | verify-true
with [get-editor WorkspaceIsEmpty | get-section Script | get-text-viewer] {
    key-type "M1+ARROW_RIGHT"
}
get-label -after [get-label "Smart Insert"] -index 1| get-property caption | equals [get-by-os -macosx "1 : 84 : 83" -win "1 : 4" -linux "1 : 86"] | verify-true 
with [get-editor WorkspaceIsEmpty | get-section Script | get-text-viewer] {
    key-type End
    key-type [concat [get-by-os -macosx "M3" -win "M1" -linux "M1"] "+ARROW_LEFT"]
}
get-label -after [get-label "Smart Insert"] -index 1| get-property caption | equals "1 : 80 : 79" | verify-true
with [get-editor WorkspaceIsEmpty | get-section Script | get-text-viewer] {
    set-caret-pos 1 79
    key-type [concat [get-by-os -macosx "M3+M2" -win "M1+M2" -linux "M1+M2"] "+ARROW_LEFT"]
}
with [get-editor WorkspaceIsEmpty | get-section Script | get-editbox] {
    get-property text | equals "get-view \"Q7 Explorer\" | get-tree | get-property itemCount | equals 0 | verify-true" 
        | verify-true
    get-property "getSelectionText()" | equals verify | verify-true
}
with [get-editor WorkspaceIsEmpty | get-section Script | get-text-viewer] {
    set-caret-pos 1 37
    key-type [concat [get-by-os -macosx "M3+M2" -win "M1+M2" -linux "M1+M2"] "+ARROW_RIGHT"]
}
get-editor WorkspaceIsEmpty | get-section Script | get-editbox | get-property "getSelectionText()" | equals get 
    | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--