ver 2010.02 → 2010.08

data/spec/ver/text/selection.rb

@@ -0,0 +1,315 @@
+require_relative '../../helper'
+
+shared :with_selection do
+  before do
+    @buffer ||= VER::Buffer.new
+    Tk::Clipboard.clear
+  end
+
+  def buffer
+    @buffer
+  end
+
+  def sel
+    @buffer.at_sel
+  end
+
+  def start(mode, index)
+    buffer.insert = index
+    sel.reset
+    sel.enter_mode(mode.to_s)
+  end
+end
+
+VER.spec do
+  describe 'VER::Text::Selection' do
+    behaves_like :with_selection
+
+    it 'can be retrieved from Buffer instance' do
+      sel.should.not.be.nil
+    end
+
+    describe 'inherited from Tag' do
+      behaves_like :with_selection
+
+      it 'lowercases content' do
+        buffer.value = 'ABCDEFGH'
+        %w[1.0 1.2 1.4 1.6].each{|index| sel.add(index) }
+        sel.lower_case!
+        buffer.value.should == "aBcDeFgH\n"
+      end
+
+      it 'uppercases content' do
+        buffer.value = 'abcdefgh'
+        %w[1.0 1.2 1.4 1.6].each{|index| sel.add(index) }
+        sel.upper_case!
+        buffer.value.should == "AbCdEfGh\n"
+      end
+
+      it 'toggles case of content' do
+        buffer.value = 'AbCdEfGh'
+        sel.add('1.0', '1.0 lineend')
+        sel.toggle_case!
+        buffer.value.should == "aBcDeFgH\n"
+      end
+
+      it 'deletes contents of selection' do
+        buffer.value = 'abcdefgh'
+        %w[1.0 1.2 1.4 1.6].each{|index| sel.add(index) }
+        sel.delete
+        buffer.value.should == "bdfh\n"
+      end
+
+      it 'copies content over single range' do
+        buffer.value = 'line one'
+        sel.add('1.0', '1.9')
+        sel.copy
+        VER::Clipboard.dwim.should == 'line one'
+      end
+
+      it 'copies content over multiple lines' do
+        buffer.value = "line one\nline two\nline three\n"
+        sel.add('1.0', '4.0')
+        sel.copy
+        VER::Clipboard.dwim.should == "line one\nline two\nline three\n"
+      end
+
+      it 'evaluates content' do
+        buffer.value = '1 + 1'
+        sel.add('1.0', 'end')
+        sel.evaluate!
+        buffer.value.should == "1 + 1\n2\n"
+        sel.ranges.should.be.empty
+      end
+
+      it 'replaces content with pipe result' do
+        buffer.value = "one\ntwo\nthree"
+        sel.add('1.0', 'end')
+        sel.pipe!('rev')
+        buffer.value.should == "eno\nowt\neerht\n"
+        sel.ranges.should.be.empty
+      end
+
+      it 'wraps content' do
+        buffer.value = <<-TEXT.chomp
+Totam dolor debitis sit cupiditate placeat architecto quis. Sunt occaecati corrupti a porro dolor perspiciatis. Perferendis minima ipsam corrupti aut delectus. Deleniti assumenda ea velit. Rerum expedita veniam molestiae soluta.
+        TEXT
+        sel.add '1.0', 'end'
+        sel.wrap
+        buffer.value.should == <<-TEXT
+Totam dolor debitis sit cupiditate placeat architecto quis.
+Sunt occaecati corrupti a porro dolor perspiciatis.
+Perferendis minima ipsam corrupti aut delectus.
+Deleniti assumenda ea velit.
+Rerum expedita veniam molestiae soluta.
+        TEXT
+      end
+    end
+
+    describe 'character-wise' do
+      behaves_like :with_selection
+
+      before do
+        buffer.value = <<-TEXT.chomp
+line one
+line two
+line three
+        TEXT
+      end
+
+      it 'finishes selection after copy' do
+        start('select_char', '1.0')
+        buffer.insert = 'end'
+        sel.copy
+        VER::Clipboard.dwim.should == "line one\nline two\nline three\n"
+        sel.ranges.should.be.empty
+      end
+
+      it 'indents content at start of line' do
+        start('select_char', '1.0')
+        buffer.insert = '1.5'
+        sel.indent
+        sel.ranges.should == [buffer.range('1.2', '1.8')]
+        buffer.value.should == <<-TEXT
+  line one
+line two
+line three
+        TEXT
+      end
+
+      it 'indents content within a line' do
+        start('select_char', '1.2')
+        buffer.insert = '1.5'
+        sel.indent
+        sel.ranges.should == [buffer.range('1.4', '1.8')]
+        buffer.value.should == <<-TEXT
+li  ne one
+line two
+line three
+        TEXT
+      end
+
+      it 'comments content' do
+        start('select_char', '1.0')
+        buffer.insert = 'end'
+        sel.comment
+        buffer.value.should == <<-TEXT
+# line one
+# line two
+# line three
+        TEXT
+      end
+
+      it 'uncomments content' do
+        buffer.value = <<-TEXT.chomp
+# line one
+# line two
+# line three
+        TEXT
+        start('select_char', '1.0')
+        buffer.insert = 'end'
+        sel.uncomment
+        buffer.value.should == <<-TEXT
+line one
+line two
+line three
+        TEXT
+      end
+    end
+
+    describe 'line-wise' do
+      behaves_like :with_selection
+
+      before do
+        buffer.value = <<-TEXT.chomp
+line one
+line two
+line three
+        TEXT
+      end
+
+      it 'finishes selection after copy' do
+        start('select_line', '1.0')
+        buffer.insert = 'end'
+        sel.copy
+        VER::Clipboard.dwim.should == "line one\nline two\nline three\n"
+        sel.ranges.should.be.empty
+      end
+
+      it 'indents content' do
+        start('select_line', '1.2')
+        buffer.insert = '1.5'
+        sel.indent
+        sel.ranges.should == [buffer.range('1.0', '1.10')]
+        buffer.value.should == <<-TEXT
+  line one
+line two
+line three
+        TEXT
+      end
+
+      it 'comments content' do
+        start('select_line', '1.0')
+        buffer.insert = 'end'
+        sel.comment
+        buffer.value.should == <<-TEXT
+# line one
+# line two
+# line three
+        TEXT
+      end
+
+      it 'uncomments content' do
+        buffer.value = <<-TEXT.chomp
+# line one
+# line two
+# line three
+        TEXT
+        start('select_line', '1.0')
+        buffer.insert = 'end'
+        sel.uncomment
+        buffer.value.should == <<-TEXT
+line one
+line two
+line three
+        TEXT
+      end
+    end
+
+    describe 'block-wise' do
+      behaves_like :with_selection
+
+      before do
+        buffer.value = <<-TEXT.chomp
+line one
+line two
+line three
+        TEXT
+      end
+
+      it 'indents content' do
+        start('select_block', '1.2')
+        buffer.insert = '1.5'
+        sel.indent
+        sel.ranges.should == [buffer.range('1.4', '1.8')]
+        buffer.value.should == <<-TEXT
+li  ne one
+line two
+line three
+        TEXT
+      end
+
+      it 'comments content' do
+        start('select_block', '1.0')
+        buffer.insert = 'end'
+        sel.comment
+        buffer.value.should == <<-TEXT
+# line one
+# line two
+# line three
+        TEXT
+      end
+
+      it 'uncomments content' do
+        buffer.value = <<-TEXT.chomp
+# line one
+# line two
+# line three
+        TEXT
+        start('select_block', '1.0')
+        buffer.insert = 'end'
+        sel.uncomment
+        buffer.value.should == <<-TEXT
+line one
+line two
+line three
+        TEXT
+      end
+
+      it 'finishes selection after copy' do
+        start('select_block', '1.0')
+        buffer.insert = '3.10'
+        sel.copy
+        VER::Clipboard.dwim.should == ["line one", "line two", "line three"]
+        sel.ranges.should.be.empty
+      end
+
+      it 'replaces contents with another string' do
+        start('select_block', '1.4')
+        buffer.insert = '3.4'
+        sel.replace_with_string('><', false)
+        buffer.value.should == <<-TEXT
+line><one
+line><two
+line><three
+        TEXT
+        VER::Clipboard.dwim.should == nil
+        sel.ranges.should == [
+          buffer.range('1.4', '1.6'),
+          buffer.range('2.4', '2.6'),
+          buffer.range('3.4', '3.6'),
+        ]
+      end
+    end
+  end
+end

data/spec/ver/text/tag.rb

@@ -0,0 +1,93 @@
+require_relative '../../helper'
+
+before = lambda{ @buffer = VER::Buffer.new(VER.layout) }
+after = lambda{ @buffer.destroy }
+
+VER.spec do
+  describe 'VER::Buffer::Tag' do
+    describe 'Instance methods' do
+      before(&before)
+      after(&after)
+
+      it 'adds indices' do
+        tag = @buffer.tag(:spec)
+        tag.ranges.should == []
+        tag.add '1.0'
+        tag.ranges.should == [ @buffer.range('1.0', '2.0') ]
+      end
+
+      it 'gets options' do
+        @buffer.tag(:sel).cget(:foreground).should == '#000000'
+      end
+
+      it 'configures' do
+        tag = @buffer.tag(:sel)
+        tag.configure foreground: '#fff'
+        tag.cget(:foreground).should == '#fff'
+      end
+
+      it 'has ranges' do
+        @buffer.insert('end', 'some text', :spec)
+        tag = @buffer.tag(:spec)
+        tag.ranges.should == [@buffer.range('1.0', '1.9')]
+      end
+
+      it 'deletes' do
+        tag = @buffer.tag(:spec, '1.0')
+        tag.ranges.should == [@buffer.range('1.0', '2.0')]
+        tag.delete
+        tag.ranges.should == []
+      end
+
+      it 'removes' do
+        @buffer.insert('end', 'some text', :spec)
+        tag = @buffer.tag(:spec)
+        tag.ranges.should == [@buffer.range('1.0', '1.9')]
+        tag.remove('1.4')
+        tag.ranges.should == [
+          @buffer.range('1.0', '1.4'),
+          @buffer.range('1.5', '1.9'),
+        ]
+      end
+
+      it 'replaces' do
+        @buffer.insert('end', 'some text', :spec)
+        tag = @buffer.tag(:spec)
+        tag.replace('less')
+        @buffer.dump(:tag, '1.0', 'end').should == []
+      end
+
+      it 'gets contents' do
+        tag = @buffer.tag(:spec)
+        tag.get.should == nil
+        @buffer.insert('end', 'some text', tag)
+        tag = @buffer.tag(:spec)
+        tag.get.should == 'some text'
+      end
+    end
+
+    describe 'Buffer methods' do
+      before(&before)
+      after(&after)
+
+      it 'has a list of tags' do
+        tags = @buffer.tags
+        tags.each{|tag| tag.class.should == VER::Buffer::Tag }
+        tags.should.not.be.empty
+      end
+
+      it 'has ranges of tags' do
+        @buffer.tag_ranges(:sel).should == []
+      end
+
+      it 'returns a tag' do
+        @buffer.tag(:sel).should == VER::Buffer::Tag.new(@buffer, :sel)
+      end
+
+      it 'adds a tag for given indices' do
+        @buffer.tag(:spec, '1.0')
+        @buffer.tag_ranges(:spec).should == [@buffer.range('1.0', '2.0')]
+      end
+    end
+  end
+end

data/spec/ver/undo.rb

@@ -0,0 +1,133 @@
+require_relative '../helper'
+require 'ffi-tk'
+
+class Text < Tk::Text
+  def initialize(*args)
+    super
+    @undoer = VER::Undo::Tree.new(self)
+  end
+
+  def undo
+    @undoer.undo
+  end
+
+  def redo
+    @undoer.redo
+  end
+
+  def undo_record(&block)
+    @undoer.record_multi(&block)
+  end
+
+  def touch!(*indices)
+  end
+end
+
+VER.spec do
+  describe 'VER::Undo' do
+    buffer = Text.new
+
+    describe 'simple' do
+      should 'undo single insert' do
+        buffer.undo_record do |record|
+          record.insert :insert, 'foo'
+        end
+        buffer.value.should == "foo\n"
+        buffer.undo
+        buffer.value.should == "\n"
+      end
+
+      should 'undo multiple insertions' do
+        buffer.undo_record do |record|
+          record.insert :insert, 'foo'
+          record.insert :insert, ' bar'
+        end
+        buffer.value.should == "foo bar\n"
+        buffer.undo
+        buffer.value.should == "\n"
+      end
+
+      should 'undo single replace' do
+        buffer.value = 'foo bar'
+        buffer.undo_record do |record|
+          record.replace '1.0', '1.3', 'bar'
+        end
+        buffer.value.should == "bar bar\n"
+        buffer.undo
+        buffer.value.should == "foo bar\n"
+      end
+
+      should 'undo multiple replacements' do
+        buffer.value = 'foo bar'
+        buffer.undo_record do |record|
+          record.replace '1.0', '1.3', 'bar'
+          record.replace '1.4', '1.7', 'foo'
+        end
+        buffer.value.should == "bar foo\n"
+        buffer.undo
+        buffer.value.should == "foo bar\n"
+      end
+
+      should 'undo single delete' do
+        buffer.value = 'foo bar'
+        buffer.undo_record do |record|
+          record.delete '1.0', '1.3'
+        end
+        buffer.value.should == " bar\n"
+        buffer.undo
+        buffer.value.should == "foo bar\n"
+      end
+
+      should 'undo multiple deletions' do
+        buffer.value = 'foo bar'
+        buffer.undo_record do |record|
+          record.delete '1.0', '1.3'
+          record.delete '1.1', '1.4'
+        end
+        buffer.value.should == " \n"
+        buffer.undo
+        buffer.value.should == "foo bar\n"
+      end
+    end
+
+    describe 'complex' do
+      should 'undo multiple deletions' do
+        buffer.value = 'foo bar'
+        buffer.undo_record do |record|
+          record.delete '1.0', '1.3', '1.4', '1.7'
+        end
+        buffer.value.should == " \n"
+        buffer.undo
+        buffer.value.should == "foo bar\n"
+      end
+    end
+  end
+end
+
+__END__
+
+    should 'undo multiple inserts' do
+      insert << 'foo' << 'foo' << 'foo'
+      buffer.value.should == "foofoofoo\n"
+      buffer.undo
+      buffer.value.should == "\n"
+    end
+
+    should 'undo single delete' do
+      buffer.value = 'abc'
+      buffer.delete('1.1', '1.2')
+      buffer.value.should == "ac\n"
+      buffer.undo
+      buffer.value.should == "abc\n"
+    end
+
+    should 'undo consecutive deletes' do
+      buffer.value = 'abc'
+      buffer.delete('1.1', '1.2')
+      buffer.delete('1.1', '1.2')
+      buffer.value.should == "a\n"
+      buffer.undo
+      buffer.value.should == "abc\n"
+    end
+  end
+end