redcar-dev 0.12.17dev

data/plugins/edit_view/features/sort_lines.feature

@@ -0,0 +1,15 @@
+Feature: Sort Lines
+  
+  Background:
+    When I open a new edit tab
+    
+  Scenario: Sort Lines sorts the lines in selected region
+    When I replace the contents with "3\n2\n1"
+    And I select from 0 to 10
+    And I run the command Redcar::Top::SortLinesCommand
+    Then the contents should be "1\n2\n3"
+    
+  Scenario: Nothing is sorted when nothing is selected
+    When I replace the contents with "3\n2\n1"
+    And I run the command Redcar::Top::SortLinesCommand
+    Then the contents should be "3\n2\n1"

data/plugins/edit_view/features/step_definitions/editing_steps.rb

@@ -0,0 +1,350 @@
+
+def unescape_text(text)
+  text.gsub("\\t", "\t").gsub("\\n", "\n").gsub("\\r", "\r").gsub("\\\"", "\"")
+end
+
+def escape_text(text)
+  text.gsub("\t", "\\t").gsub("\n", "\\n").gsub("\r", "\\r").gsub("\"", "\\\"")
+end
+
+When /^I undo$/ do
+  Redcar::Top::UndoCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I redo$/ do
+  Redcar::Top::RedoCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I select from (\d+) to (\d+)$/ do |start_offset, end_offset|
+  doc = implicit_edit_view.document
+  doc.set_selection_range(end_offset.to_i, start_offset.to_i)
+end
+
+When /^I copy text$/ do
+  Redcar::Top::CopyCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I cut text$/ do
+  Redcar::Top::CutCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I paste text$/ do
+  Redcar::Top::PasteCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I move the cursor to (\d+)$/ do |offset|
+  doc = implicit_edit_view.document
+  doc.cursor_offset = offset.to_i
+end
+
+When /^I move the cursor to the end of the document$/ do
+  doc = implicit_edit_view.document
+  doc.cursor_offset = doc.length
+end
+
+Then /^the cursor should be at (\d+)$/ do |offset|
+  doc = implicit_edit_view.document
+  doc.cursor_offset.should == offset.to_i
+end
+
+When /^tabs are hard$/ do
+  implicit_edit_view.soft_tabs = false
+end
+
+When /^tabs are soft, (\d+) spaces$/ do |int|
+  implicit_edit_view.soft_tabs = true
+  implicit_edit_view.tab_width = int.to_i
+end
+
+When /^I insert "(.*)" at the cursor$/ do |text|
+  implicit_edit_view.document.insert_at_cursor(unescape_text(text))
+end
+
+When /^I insert "(.*)" at (\d+)$/ do |text, offset_s|
+  implicit_edit_view.document.insert(offset_s.to_i, unescape_text(text))
+end
+
+When /^I replace (\d+) to (\d+) with "(.*)"$/ do |from, to, text|
+  implicit_edit_view.document.replace(from.to_i, to.to_i - from.to_i, unescape_text(text))
+end
+
+When /^I press the Tab key in the edit tab$/ do
+  implicit_edit_view.tab_pressed([])
+end
+
+When /^I press Shift\+Tab in the edit tab$/ do
+  implicit_edit_view.tab_pressed(["Shift"])
+end
+
+When /^I press the Left key in the edit tab$/ do
+  implicit_edit_view.left_pressed([])
+end
+
+When /^I press the Right key in the edit tab$/ do
+  implicit_edit_view.right_pressed([])
+end
+
+When /^I press Shift\+Left key in the edit tab$/ do
+  implicit_edit_view.left_pressed(["Shift"])
+end
+
+When /^I press Shift\+Right key in the edit tab$/ do
+  implicit_edit_view.right_pressed(["Shift"])
+end
+
+When /^I press the Delete key in the edit tab$/ do
+  implicit_edit_view.delete_pressed([])
+end
+
+When /^I press the Backspace key in the edit tab$/ do
+  edit_view = implicit_edit_view
+  edit_view.backspace_pressed([])
+end
+
+Then /^the contents should (not )?be "(.*)"$/ do |negative,text|
+  expected = unescape_text(text)
+  doc = implicit_edit_view.document
+  actual = doc.to_s
+  if expected.include?("<c>")
+    char_curoff = doc.cursor_offset
+    actual = actual.insert(actual.char_offset_to_byte_offset(char_curoff), "<c>")
+    char_seloff = doc.selection_offset
+    if char_seloff > char_curoff
+      char_seloff += 3
+    end
+    actual = actual.insert(actual.char_offset_to_byte_offset(char_seloff), "<s>") unless char_curoff == char_seloff
+  end
+  if negative
+    actual.should_not == expected
+  else
+    actual.should == expected
+  end
+end
+
+Then /^the contents of the edit tab should be "(.*)"$/ do |text|
+  implicit_edit_view.document.to_s.should == unescape_text(text)
+end
+
+When /^I block select from (\d+) to (\d+)$/ do |from_str, to_str|
+  doc = implicit_edit_view.document
+  doc.block_selection_mode = true
+  doc.set_selection_range(from_str.to_i, to_str.to_i)
+end
+
+Then /^the selection range should be from (\d+) to (\d+)$/ do |from_str, to_str|
+  doc = implicit_edit_view.document
+  r = doc.selection_range
+  r.begin.should == from_str.to_i
+  r.end.should == to_str.to_i
+end
+
+Then /^the selection should be on line (.*)$/ do |line_num|
+  line_num = line_num.to_i
+  doc = implicit_edit_view.document
+  r = doc.selection_range
+  doc.line_at_offset(r.begin).should == line_num
+  doc.line_at_offset(r.end).should == line_num
+end
+
+Then /^there should not be any text selected$/ do
+  doc = implicit_edit_view.document
+  doc.selected_text.should == ""
+end
+
+Then /^the selected text should be "([^"]*)"$/ do |selected_text|
+  doc = implicit_edit_view.document
+  doc.selected_text.should == unescape_text(selected_text)
+end
+
+Then /the line delimiter should be "(.*)"/ do |delim|
+  doc = implicit_edit_view.document
+  doc.delim.should == unescape_text(delim)
+end
+
+When /^I move to line (\d+)$/ do |num|
+  doc = implicit_edit_view.document
+  doc.cursor_offset = doc.offset_at_line(num.to_i)
+end
+
+Then /^the cursor should be on line (\d+)$/ do |num|
+  doc = implicit_edit_view.document
+  doc.cursor_line.should == num.to_i
+end
+
+When /^I replace the contents with "((?:[^\"]|\\")*)"$/ do |contents|
+  contents = unescape_text(contents)
+  doc = implicit_edit_view.document
+  cursor_offset = (contents =~ /<c>/)
+  doc.text = contents.gsub("<c>", "")
+  doc.cursor_offset = cursor_offset if cursor_offset
+end
+
+When /^I replace the contents with 100 lines of "([^"]*)" then "([^"]*)"$/ do |contents1, contents2|
+  contents1 = unescape_text(contents1)
+  contents2 = unescape_text(contents2)
+  doc = implicit_edit_view.document
+  doc.text = (contents1 + "\n")*100 + contents2
+end
+
+When /^I replace the contents with (\d+) "([^"]*)" then "([^"]*)"$/ do |count, contents1, contents2|
+  contents1 = unescape_text(contents1)
+  contents2 = unescape_text(contents2)
+  doc = implicit_edit_view.document
+  doc.text = (contents1)*count.to_i + contents2
+end
+
+When /^I scroll to the top of the document$/ do
+  doc = implicit_edit_view.document
+  doc.scroll_to_line(0)
+end
+
+Then /^line number (\d+) should be visible$/ do |line_num|
+  line_num = line_num.to_i
+  doc = implicit_edit_view.document
+  (doc.biggest_visible_line >= line_num).should be_true
+  (doc.smallest_visible_line <= line_num).should be_true
+end
+
+Then /^horizontal offset (\d+) should be visible$/ do |offset|
+  offset = offset.to_i
+  doc    = implicit_edit_view.document
+  (doc.largest_visible_horizontal_index  >= offset).should be_true
+  (doc.smallest_visible_horizontal_index <= offset).should be_true
+end
+
+When /^I select the word (right of|left of|around|at) (\d+)$/ do |direction, offset|
+  offset = offset.to_i
+  doc = implicit_edit_view.document
+  case direction
+  when "right of"
+    range = doc.match_word_right_of(offset)
+  when "left of"
+    range = doc.match_word_left_of(offset)
+  when "around"
+    range = doc.match_word_around(offset)
+  when "at"
+    range = doc.word_range_at_offset(offset)
+  else
+    warn "unrecognized direction"
+    range = offset..offset
+  end
+  doc.set_selection_range(range.first, range.last)
+end
+
+When /^I turn block selection on$/ do
+  implicit_edit_view.document.block_selection_mode?.should == false
+  Redcar::Top::ToggleBlockSelectionCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+When /^I turn block selection off$/ do
+  implicit_edit_view.document.block_selection_mode?.should == true
+  Redcar::Top::ToggleBlockSelectionCommand.new.run(:env => {:edit_view => implicit_edit_view})
+end
+
+def escape_text(text)
+  text.gsub("\t", "\\t").gsub("\n", "\\n").gsub("\r", "\\r").gsub("\"", "\\\"")
+end
+
+Given /^the contents? is:$/ do |string|
+  cursor_index    = string.index('<c>')
+  selection_index = string.index('<s>')
+  string = string.gsub('<s>', '').gsub('<c>', '')
+  When %{I replace the contents with "#{string}"}
+
+  if cursor_index and selection_index
+    if cursor_index < selection_index
+      selection_index -= 3
+    else
+      cursor_index -= 3
+    end
+    When %{I select from #{selection_index} to #{cursor_index}}
+  elsif cursor_index
+    When "I move the cursor to #{cursor_index}"
+  end
+end
+
+Then /^the content? should be:$/ do |string|
+  Then %{the contents should be "#{escape_text(string)}"}
+end
+
+def implicit_edit_tab
+  wn = Redcar.app.focussed_window
+  nb = wn.focussed_notebook
+  tab = nb.focussed_tab
+  if tab.is_a?(Redcar::EditTab)
+    tab
+  else
+    nil
+  end
+end
+
+def implicit_edit_view
+  edit_views = Redcar::EditView.all_edit_views
+  focussed_edit_view = Redcar::EditView.focussed_edit_view
+  ev =  if edit_views.length == 1
+          edit_views.first
+        elsif focussed_edit_view
+          focussed_edit_view
+        else
+          if edit_tab = implicit_edit_tab
+            edit_tab.edit_view
+          end
+        end
+  raise "no implicit edit view (#{edit_views.length} open)" unless ev
+  ev
+end
+
+When /^I type "((?:[^"]|\\")*)"$/ do |text|
+  text = text.gsub("\\t", "\t").gsub("\\n", "\n").gsub("\\\"", "\"")
+  edit_view = implicit_edit_view
+  text.split(//).each do |letter|
+    edit_view.type_character(letter[0])
+  end
+end
+
+edit_view_action_steps = {
+  :LINE_UP                => "I move up",
+  :LINE_DOWN              => "I move down",
+  :LINE_START             => "I move to the start of the line",
+  :LINE_END               => "I move to the end of the line",
+  :COLUMN_PREVIOUS        => "I move left",
+  :COLUMN_NEXT            => "I move right",
+  :PAGE_UP                => "I page up",
+  :PAGE_DOWN              => "I page down",
+  :WORD_PREVIOUS          => "I move to the previous word",
+  :WORD_NEXT              => "I move to the next word",
+  :TEXT_START             => "I move to the start of the text",
+  :TEXT_END               => "I move to the end of the text",
+  :WINDOW_START           => "I move to the start of the window",
+  :WINDOW_END             => "I move to the end of the window",
+  :SELECT_ALL             => "I select all",
+  :SELECT_LINE_UP         => "I select up",
+  :SELECT_LINE_DOWN       => "I select down",
+  :SELECT_LINE_START      => "I select to the start of the line",
+  :SELECT_LINE_END        => "I select to the end of the line",
+  :SELECT_COLUMN_PREVIOUS => "I select left",
+  :SELECT_COLUMN_NEXT     => "I select right",
+  :SELECT_PAGE_UP         => "I select page up",
+  :SELECT_PAGE_DOWN       => "I select page down",
+  :SELECT_WORD_PREVIOUS   => "I select to the previous word",
+  :SELECT_WORD_NEXT       => "I select to the next word",
+  :SELECT_TEXT_START      => "I select to the start of the text",
+  :SELECT_TEXT_END        => "I select to the end of the text",
+  :SELECT_WINDOW_START    => "I select to the start of the window",
+  :SELECT_WINDOW_END      => "I select to the end of the window",
+  :CUT                    => "dsafjl;fjsadfk",
+  :COPY                   => "asdfkjalsgj",
+  :PASTE                  => "asdfasdfe",
+  :DELETE_PREVIOUS        => "I backspace",
+  :DELETE_NEXT            => "I delete",
+  :DELETE_WORD_PREVIOUS   => "I delete to the previous word",
+  :DELETE_WORD_NEXT       => "I delete to the next word"
+}
+
+edit_view_action_steps.each do |action_symbol, step_text|
+  When step_text do
+    implicit_edit_view.invoke_action(action_symbol)
+  end
+end
+
+

data/plugins/edit_view/features/step_definitions/grammar_steps.rb

@@ -0,0 +1,4 @@
+When /^I switch the language to (.*)$/ do |language|
+  Redcar.app.focussed_window.focussed_notebook.focussed_tab.edit_view.grammar = language
+end
+

data/plugins/edit_view/features/step_definitions/key_steps.rb

@@ -0,0 +1,48 @@
+
+module SwtKeyHelper
+  def keypress(key)
+    if key =~ /^Cmd/
+      mod_key = 4194304
+      char = key.downcase[-1]
+      keycode = key.downcase[-1]
+    elsif key =~ /^Ctrl/
+      mod_key = 262144
+      keycode = key.downcase[-1]
+      char = key.downcase[-1] - "A".downcase[-1] + 1
+    else
+      raise "unknown mod key"
+    end
+    post(Swt::SWT::KeyDown, 0, mod_key, 0)
+    post(Swt::SWT::KeyDown, char, keycode, mod_key)
+    post(Swt::SWT::KeyUp, char, keycode, mod_key)
+    post(Swt::SWT::KeyUp, 0, mod_key, mod_key)
+  end
+  
+  def post(type, char, keycode, state_mask)
+    p [:post, type, char, keycode, state_mask]
+    event = Swt::Widgets::Event.new
+    event.type = type
+    event.character = char
+    event.keyCode = keycode
+    event.stateMask = state_mask
+    Redcar::ApplicationSWT.display.post(event)
+  end
+end
+
+World(SwtKeyHelper)
+
+When /^I press m"([^\"]*)" l"([^\"]*)" w"([^\"]*)"$/ do |key_mac, key_linux, key_windows|
+  case Redcar.platform
+  when :osx
+    key = key_mac
+  when :linux
+    key = key_linux
+  when :windows
+    key = key_windows
+  end
+puts "pressing #{key}"
+  keypress(key)
+  while Redcar::ApplicationSWT.display.read_and_dispatch
+    
+  end
+end

data/plugins/edit_view/features/step_definitions/notebook_steps.rb

@@ -0,0 +1,59 @@
+
+module NotebookSwtHelper
+  def notebook_sash
+    Redcar.app.show_toolbar = false
+    Redcar.app.refresh_toolbar!
+    active_shell.children.to_a.last.children.to_a[0]
+  end
+  
+  def ctab_folders
+    notebook_sash.children.to_a.select do |c| 
+      c.class == Java::OrgEclipseSwtCustom::CTabFolder
+    end
+  end
+end
+
+World(NotebookSwtHelper)
+
+When /^I make a new notebook$/ do
+  Redcar::Application::OpenNewNotebookCommand.new.run
+end
+
+When /^I move the tab to the other notebook$/ do
+  Redcar::Application::MoveTabToOtherNotebookCommand.new.run
+end
+
+When /^I close the current notebook$/ do
+  Redcar::Application::CloseNotebookCommand.new.run
+end
+
+When /^I switch notebooks$/ do
+  Redcar::Application::SwitchNotebookCommand.new.run
+end
+
+Then /^there should be (one|two) notebooks?$/ do |count_str|
+  count = count_str == "one" ? 1 : 2
+  # in the model
+  Redcar.app.windows.first.notebooks.length.should == count
+  
+  # in the GUI
+  ctab_folders.length.should == count
+end
+
+
+Then /^notebook (\d) should have (\d) tabs?$/ do |index, tab_count|
+  index = index.to_i - 1
+  # in the model
+  Redcar.app.windows.first.notebooks[index].tabs.length.should == tab_count.to_i
+  
+  # in the GUI
+  ctab_folders[index].children.to_a.length.should == tab_count.to_i
+end
+
+Then /^the tab in notebook (\d) should contain "([^\"]*)"$/ do |index, str|
+  index = index.to_i - 1
+  # in the model
+  tab = Redcar.app.windows.first.notebooks[index].focussed_tab
+  tab.edit_view.document.to_s.include?(str).should be_true
+end
+