test both ways of selecting text with mouse

1 files changed, 25 insertions, 4 deletions

diff --git a/text_tests.lua b/text_tests.lua
index 4a6203f..097f487 100644
--- a/text_tests.lua
+++ b/text_tests.lua
@@ -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()