test both ways of selecting text with mouse

This commit is contained in:
Kartik K. Agaram 2022-06-09 15:09:32 -07:00
parent fe170fc579
commit 173d3a3de0
1 changed files with 25 additions and 4 deletions

View File

@ -189,6 +189,27 @@ function test_select_text_using_mouse()
Selection1 = {}
App.draw() -- populate line.y for each line in Lines
local screen_left_margin = 25 -- pixels
-- press and hold on first location
App.run_after_mousepress(screen_left_margin+8,Margin_top+5, '1')
-- drag and release somewhere else
App.run_after_mouserelease(screen_left_margin+20,Margin_top+Line_height+5, '1')
check_eq(Cursor1.line, 2, 'F - test_select_text_using_mouse/cursor:line')
check_eq(Cursor1.pos, 4, 'F - test_select_text_using_mouse/cursor:pos')
check_eq(Selection1.line, 1, 'F - test_select_text_using_mouse/selection:line')
check_eq(Selection1.pos, 2, 'F - test_select_text_using_mouse/selection:pos')
end
function test_select_text_using_mouse_and_shift()
io.write('\ntest_select_text_using_mouse_and_shift')
App.screen.init{width=50, height=60}
Lines = load_array{'abc', 'def', 'xyz'}
Line_width = App.screen.width
Cursor1 = {line=1, pos=1}
Screen_top1 = {line=1, pos=1}
Screen_bottom1 = {}
Selection1 = {}
App.draw() -- populate line.y for each line in Lines
local screen_left_margin = 25 -- pixels
-- click on first location
App.run_after_mousepress(screen_left_margin+8,Margin_top+5, '1')
App.run_after_mouserelease(screen_left_margin+8,Margin_top+5, '1')
@ -197,10 +218,10 @@ function test_select_text_using_mouse()
App.run_after_mousepress(screen_left_margin+20,Margin_top+5, '1')
App.run_after_mouserelease(screen_left_margin+20,Margin_top+Line_height+5, '1')
App.keyrelease('lshift')
check_eq(Cursor1.line, 2, 'F - test_select_text_using_mouse/cursor:line')
check_eq(Cursor1.pos, 4, 'F - test_select_text_using_mouse/cursor:pos')
check_eq(Selection1.line, 1, 'F - test_select_text_using_mouse/selection:line')
check_eq(Selection1.pos, 2, 'F - test_select_text_using_mouse/selection:pos')
check_eq(Cursor1.line, 2, 'F - test_select_text_using_mouse_and_shift/cursor:line')
check_eq(Cursor1.pos, 4, 'F - test_select_text_using_mouse_and_shift/cursor:pos')
check_eq(Selection1.line, 1, 'F - test_select_text_using_mouse_and_shift/selection:line')
check_eq(Selection1.pos, 2, 'F - test_select_text_using_mouse_and_shift/selection:pos')
end
function test_pagedown()