ver 2010.02 → 2010.08

data/spec/ver/keymap/diakonos.rb

@@ -0,0 +1,88 @@
+require_relative '../../helper'
+
+VER.spec keymap: 'diakonos', hidden: false do
+  describe 'Diakonos keymap' do
+    behaves_like :with_buffer
+
+    should 'go to end of line with <End>' do
+      type '<End>'
+      insert.index.should == '1.0 lineend'
+    end
+
+    should 'go to end of buffer with <Alt-greater>' do
+      type '<Alt-greater>'
+      insert.index.should == 'end - 1 chars'
+    end
+
+    should 'go to next char with <Right>' do
+      type '<Right>'
+      insert.index.should == '1.1'
+    end
+
+    should 'go to prev char with <Left>' do
+      insert.index = '1.2'
+      type '<Left>'
+      insert.index.should == '1.1'
+    end
+
+    should 'go to next line with <Down>' do
+      type '<Down>'
+      insert.index.should == '2.0'
+    end
+
+    should 'go to prev line with <Up>' do
+      insert.index = '2.0'
+      type '<Up>'
+      insert.index.should == '1.0'
+    end
+
+    should 'go to next word with <Shift-Right>' do
+      type '<Shift-Right>'
+      insert.index.should == '1.10'
+    end
+
+    should 'go to prev word with <Shift-Left>' do
+      insert.index = '1.0 lineend'
+      type '<Shift-Left>'
+      insert.index.should == '1.40'
+    end
+
+    should 'go to start of buffer with <Alt-less>' do
+      insert.index = '5.5'
+      type '<Alt-less>'
+      insert.index.should == '1.0'
+    end
+
+    should 'go to start of line with <Home>' do
+      insert.index = '1.10'
+      type '<Home>'
+      insert.index.should == '1.0'
+    end
+
+    should 'insert newline with <Return>' do
+      insert.index = '1.6'
+      type '<Return>'
+      insert.index.should == '2.0'
+      buffer.get('1.0', '1.0 lineend').should == 'Invent'
+      buffer.get('2.0', '2.0 lineend').should == "ore voluptatibus dolorem assumenda."
+    end
+
+    should 'insert characters for anything not mapped' do
+      buffer.value = ''
+      typed = []
+      (0..255).map{|c| c.chr }.grep(/[[:print:]]/).each do |char|
+        event = VER::Event[char]
+        typed << char
+        type event.pattern
+      end
+
+      insert.index.should == '1.95'
+      buffer.value.chomp.should == typed.join
+    end
+
+=begin
+    map :next_page,       %w[Next]
+    map :prev_page,       %w[Prior]
+=end
+  end
+end

data/spec/ver/keymap/emacs.rb

@@ -0,0 +1,65 @@
+require_relative '../../helper'
+
+shared :with_buffer do
+  before do
+    @buffer ||= VER::Buffer.new
+    @buffer.value = <<-TEXT
+Fugiat eos voluptatum officia fugit ad sit qui.
+Alias et voluptas sapiente sed.
+Unde ut qui esse repellendus sunt dolorum officia.
+Officia accusamus perferendis ab.
+Nesciunt repellendus et recusandae dolorum quis repudiandae ad minima.
+Ducimus quo et ea.
+Qui cumque blanditiis aliquam accusamus perspiciatis provident sapiente fuga.
+    TEXT
+    @buffer.insert = '1.0'
+    @buffer.major_mode = VER::MajorMode[:Fundamental]
+    @insert = @buffer.at_insert
+  end
+
+  after do
+    @buffer.value = ''
+  end
+
+  def buffer
+    @buffer
+  end
+
+  def insert
+    @insert
+  end
+
+  def type(string)
+    buffer.type(string)
+  end
+
+  def minibuf
+    buffer.minibuf
+  end
+end
+
+shared :control_mode do
+  behaves_like :with_buffer
+
+  before do
+    buffer.minor_mode?(:insert).should == nil
+    Tk::Clipboard.set 'foo'
+  end
+end
+
+VER.spec keymap: 'emacs' do
+  describe 'Keymap for Emacs' do
+    describe 'movement' do
+      behaves_like :with_buffer
+
+      it 'goes to first column with <Home> and <Control-a>' do
+        insert.index = '1.0 lineend'
+        type '<Home>'
+        insert.index.should == '1.0 linestart'
+        insert.index = '1.0 lineend'
+        type '<Control-a>'
+        insert.index.should == '1.0 linestart'
+      end
+    end
+  end
+end

data/spec/ver/keymap/general.rb

@@ -0,0 +1,98 @@
+require_relative '../../helper'
+
+shared :mode_spec do
+  before do
+    VER::MajorMode::MODES.clear
+    VER::MinorMode::MODES.clear
+  end
+end
+
+module SpecHandler
+  def alpha_missing; end
+  def alpha_action; end
+  def beta_missing; end
+  def beta_action; end
+
+  extend self
+end
+
+VER.spec do
+  describe 'Major mode usage' do
+    behaves_like :mode_spec
+
+    it 'creates a major mode on the fly' do
+      VER::MajorMode::MODES.key?(:alpha).should.be.false
+
+      VER.major_mode :alpha do
+      end
+
+      VER::MajorMode::MODES.key?(:alpha).should.be.true
+    end
+  end
+
+  describe 'Minor mode usage' do
+    behaves_like :mode_spec
+
+    it 'creates a minor mode on the fly' do
+      VER::MinorMode::MODES.key?(:alpha).should.be.false
+
+      VER.minor_mode :alpha do
+      end
+
+      VER::MinorMode::MODES.key?(:alpha).should.be.true
+    end
+
+    it 'can have a handler for missing keys' do
+      mode = VER.minor_mode(:alpha){
+        handler SpecHandler
+        missing :alpha_missing
+      }
+
+      got_mode, got_action = *mode.resolve(VER::Event['a'])
+      got_mode.should == mode
+      got_action.invocation.should == :alpha_missing
+      got_action.handler.should == SpecHandler
+    end
+
+    it 'can nest handlers for missing keys' do
+      alpha = VER.minor_mode(:alpha){
+        handler SpecHandler
+        missing :alpha_missing
+      }
+
+      beta = VER.minor_mode(:beta){
+        inherits :alpha
+        handler SpecHandler
+        missing :beta_missing
+      }
+
+      got_mode, got_action = *alpha.resolve(VER::Event['a'])
+      got_mode.should == alpha
+      got_action.invocation.should == :alpha_missing
+      got_action.handler.should == SpecHandler
+
+      got_mode, got_action = *beta.resolve(VER::Event['a'])
+      got_mode.should == beta
+      got_action.invocation.should == :beta_missing
+      got_action.handler.should == SpecHandler
+    end
+
+    it 'resolves action correctly even with missing-handler' do
+      alpha = VER.minor_mode(:alpha){
+        handler SpecHandler
+      	map :alpha_action, '<End>'
+        missing :alpha_missing
+      }
+
+      got_mode, got_action = *alpha.resolve('<End>')
+      got_mode.should == alpha
+      got_action.invocation.should == :alpha_action
+      got_action.handler.should == SpecHandler
+
+      got_mode, got_action = *alpha.resolve('<Home>')
+      got_mode.should == alpha
+      got_action.invocation.should == :alpha_missing
+      got_action.handler.should == SpecHandler
+    end
+  end
+end

data/spec/ver/keymap/nano.rb

@@ -0,0 +1,84 @@
+require_relative '../../helper'
+
+VER.spec keymap: 'nano', hidden: false do
+  describe 'Nano keymap' do
+    behaves_like :with_buffer
+
+    should 'go to end of line with <End>' do
+      type '<End>'
+      insert.index.should == '1.0 lineend'
+    end
+
+    should 'go line down with <Down>' do
+      type '<Down>'
+      insert.index.should == '2.0'
+    end
+
+    should 'go line up with <Up>' do
+      insert.index = '2.0'
+      type '<Up>'
+      insert.index.should == '1.0'
+    end
+
+    should 'go to next character with <Right>' do
+      type '<Right>'
+      insert.index.should == '1.1'
+    end
+
+    should 'go to previous character with <Left>' do
+      insert.index = '1.1'
+      type '<Left>'
+      insert.index.should == '1.0'
+    end
+  end
+
+  describe 'Nano keymap destructive binds' do
+    behaves_like :destructive_mode
+
+    should 'use <BackSpace> to delete previous char' do
+      insert.index = '1.2'
+      type '<BackSpace>'
+      insert.get('linestart', 'linestart wordend').should == 'Iventore'
+    end
+
+    should 'use <Delete> to delete next char' do
+      insert.index = '1.2'
+      type '<Delete>'
+      insert.get('linestart', 'linestart wordend').should == 'Inentore'
+    end
+
+    should 'use <Alt-t> to delete to end of buffer' do
+      insert.index = 'insert linestart wordend'
+      type '<Alt-t>'
+      buffer.value.should == "Inventore\n"
+    end
+
+    should 'use <Alt-braceleft> to unindent a line' do
+      buffer.value = "  some line"
+      type '<Alt-braceleft>'
+      buffer.value.should == "some line\n"
+    end
+
+    should 'insert verbatim character with <Alt-v> prefix' do
+      buffer.value = ''
+      type '<Alt-v><Control-j>'
+      buffer.value.should == "\n\n"
+    end
+
+    should 'insert corresponding ascii character for <Escape><Escape>\d\d\d' do
+      buffer.value = ''
+      buffer.minor_mode?(:ascii_digit).should.be.nil
+      type '<Escape><Escape>'
+      buffer.minor_mode?(:ascii_digit).should.not.be.nil
+      type '0'
+      buffer.minor_mode?(:ascii_digit).should.not.be.nil
+      buffer.value.should == "\n"
+      type '4'
+      buffer.minor_mode?(:ascii_digit).should.not.be.nil
+      buffer.value.should == "\n"
+      type '2'
+      buffer.minor_mode?(:ascii_digit).should.be.nil
+      buffer.value.should == "*\n"
+    end
+  end
+end

data/spec/ver/keymap/vim.rb

@@ -0,0 +1,205 @@
+require_relative '../../helper'
+
+shared :common_key_spec do
+  def keys(*names, desc)
+    names.each do |name|
+      title = "%-6s\t%s" % [name, desc]
+      it(title){ yield(name) }
+    end
+  end
+  alias key keys
+
+  # Currently we skip specs that rely on specific window size or font.
+  # Simply add a spec and put `skip` inside as a kind of TODO marker.
+  def skip
+    'skip spec until we find good way to implement it'.should.not.be.nil
+  end
+end
+
+shared :key_spec do
+  behaves_like :with_buffer
+  behaves_like :common_key_spec
+end
+
+shared :destructive_key_spec do
+  behaves_like :destructive_mode
+  behaves_like :common_key_spec
+end
+
+__END__
+
+# Show the buffer to get accurate behaviour
+VER.spec keymap: 'vim', hidden: false do
+  describe 'Keymap for VIM' do
+    describe 'Control mode changing' do
+      behaves_like :destructive_mode
+
+      it 'changes at end of line with <A>' do
+        type 'A'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 41
+        insert.index.should == '1.0 lineend'
+        buffer.minor_mode?(:insert).should != nil
+      end
+
+      it 'changes at next char with <a>' do
+        type 'a'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 41
+        insert.index.should == '1.1'
+        buffer.minor_mode?(:insert).should != nil
+      end
+
+      it 'changes at home of line with <I>' do
+        insert.index = '1.10'
+        type 'I'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 41
+        insert.index.should == '1.0'
+        buffer.minor_mode?(:insert).should != nil
+      end
+
+      it 'searches expression forward with <slash>' do
+        type '/officiis<Return>'
+
+        # Make sure input is handled correctly.
+        # If the MiniBuffer wasn't invoked, we'll have garbage in the Buffer.
+        buffer.value.chomp.should == BUFFER_VALUE
+
+        # all matches should be tagged.
+        ranges = buffer.tag(VER::Methods::Search::TAG).ranges
+        ranges.should == [
+          range( '2.11',  '2.19'),
+          range('13.15', '13.23'),
+          range('18.19', '18.27'),
+          range('28.14', '28.22'),
+        ]
+
+        # must be at position of first match.
+        insert.index.should == ranges.first.first
+
+        # find all successive matches
+        ranges.each do |range|
+          insert.index.should == range.first
+          type 'n'
+        end
+
+        # last match, so no movement
+        insert.index.should == ranges.last.first
+
+        # go back again through all matches
+        ranges.reverse_each do |range|
+          insert.index.should == range.first
+          type 'N'
+        end
+
+        # first match, so no movement
+        insert.index.should == ranges.first.first
+      end
+
+      it 'removes the search tag with <g><slash>' do
+        tag = buffer.tag(VER::Methods::Search::TAG)
+        tag.ranges.should.be.empty
+        type '/officiis<Return>'
+        tag.ranges.should.not.be.empty
+        type 'g/'
+        tag.ranges.should.be.empty
+      end
+
+      it 'searches the next word under the cursor with <asterisk>' do
+        insert.index = '1.25'
+        type '*'
+        insert.index.should == '5.5'
+      end
+    end
+
+    describe 'Matching brace related' do
+      behaves_like :destructive_mode
+
+      it 'goes to matching brace with <percent> (%)' do
+        buffer.value = '(Veniam (vitae (ratione (facere))))'
+        buffer.insert = '1.0'
+        type '<percent>'
+        insert.index.should == '1.34'
+      end
+    end
+
+    describe 'Control mode deletion' do
+      behaves_like :destructive_mode
+
+      it 'changes movement with <c> prefix' do
+        type 'cl'
+        clipboard.should == 'I'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 40
+        buffer.minor_mode?(:insert).should != nil
+        insert.index.should == '1.0'
+      end
+
+      it 'changes to right end of next word with <c><w>' do
+        type 'cw'
+        clipboard.should == "Inventore"
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 32
+        buffer.minor_mode?(:insert).should != nil
+        insert.index.should == '1.0'
+      end
+
+      it 'changes a line with <c><c>' do
+        type 'cc'
+        clipboard.should == "Inventore voluptatibus dolorem assumenda.\n"
+        buffer.count('1.0', 'end', :lines).should == 40
+        buffer.minor_mode?(:insert).should != nil
+        insert.index.should == '1.0'
+      end
+
+      it 'kills movement with <d> prefix' do
+        insert.index = '1.1'
+        type 'dl'
+        clipboard.should == 'n'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 40
+        buffer.minor_mode?(:insert).should == nil
+        insert.index.should == '1.1'
+      end
+
+      it 'kills a line with <d><d>' do
+        type 'dd'
+        clipboard.should == "Inventore voluptatibus dolorem assumenda.\n"
+        buffer.count('1.0', 'end', :lines).should == 40
+        buffer.minor_mode?(:insert).should == nil
+        insert.index.should == '1.0'
+      end
+
+      it 'changes to end of line with <C>' do
+        insert.index = '1.1'
+        type 'C'
+        clipboard.should == "nventore voluptatibus dolorem assumenda."
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 1
+        buffer.minor_mode?(:insert).should != nil
+        insert.index.should == '1.1'
+      end
+
+      it 'kills to end of line with <D>' do
+        insert.index = '1.1'
+        type 'D'
+        clipboard.should == "nventore voluptatibus dolorem assumenda."
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 1
+        buffer.minor_mode?(:insert).should == nil
+        insert.index.should == '1.1'
+      end
+
+      it 'kills next char with <x>' do
+        insert.index = '1.1'
+        type 'x'
+        clipboard.should == 'n'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 40
+        buffer.minor_mode?(:insert).should == nil
+        insert.index.should == '1.1'
+      end
+
+      it 'kills previous char with <X>' do
+        insert.index = '1.1'
+        type 'X'
+        clipboard.should == 'I'
+        buffer.count('1.0 linestart', '1.0 lineend', :displaychars).should == 40
+        buffer.minor_mode?(:insert).should == nil
+        insert.index.should == '1.0'
+      end
+    end
+  end
+end