ver 2010.02 → 2010.08

data/spec/ver/action.rb

@@ -1,65 +1,179 @@
-require 'bacon'
-Bacon.summary_on_exit
+require_relative '../helper'
 
-class Dummy < BasicObject
-  def initialize(name)
-    @name = name
-    @store = []
-  end
+module SpecReceiver
+  class << self
+    attr_reader :widget
 
-  def method_missing(method, *args)
-    @store << [method, *args]
-    self
-  end
+    def set_widget(widget)
+      @widget = widget
+    end
 
-  def ==(other)
-    self.__name__ == other.__name__
+    def reset
+      @widget = nil
+    end
   end
+end
 
-  def __name__
-    @name
+shared :with_buffer do
+  before{ @buffer = VER::Buffer.new }
+  after{ @buffer.destroy }
+
+  def buffer
+    @buffer
   end
 
-  def __store__
-    @store
+  def widget
+    ::SpecReceiver.widget
   end
 end
 
-require_relative '../../lib/ver/action'
-Action = VER::Action
+shared :with_module_handler do
+  behaves_like :with_buffer
 
-describe 'Action' do
-  it 'can have a receiver' do
-    action = Action.new(Bacon, :summary_on_exit)
-    action.receiver.should == Bacon
-  end
+  before{
+    ::SpecReceiver.reset
+    @action = VER::Action.new(:set_widget, ::SpecReceiver)
+  }
 
-  should 'call #send to the widget by default' do
-    widget = Dummy.new('widget')
-    action = Action.new(nil)
-    action.call(widget, 1)
-    action.last.should == [widget, :call, widget, [1]]
+  def action
+    @action
   end
+end
 
-  should 'call #call on the receiver if one exists' do
-    receiver = Dummy.new('receiver')
-    widget = Dummy.new('widget')
-    action = Action.new(receiver)
-    action.call(widget, 1)
-    action.last.should == [receiver, :call, widget, [1]]
-  end
+shared :with_no_handler do
+  behaves_like :with_buffer
 
-  it 'can have a callback block' do
-    out = nil
-    block = lambda{|event| out = event }
-    action = Action.new(&block)
-    action.block.should == block
-    action.method.should == :call
-    action.args.should == []
+  before{
+    buffer.value = 'some line'
+    buffer.insert = '1.0'
+    @action = VER::Action.new(:next_char)
+  }
+
+  def action
+    @action
   end
+end
+
+shared :with_symbol_handler do
+  behaves_like :with_buffer
+
+  before{
+    buffer.value = 'some line'
+    buffer.insert = '1.0'
+  }
+end
+
+VER.spec do
+  describe 'VER::Action' do
+    describe 'given Symbol handler' do
+      behaves_like :with_symbol_handler
+
+      it 'sends handler to widget, then sends method without default args on result' do
+        action = VER::Action.new(:next_char, :at_insert)
+        buffer.at_insert.index.should == '1.0'
+        action.call(buffer)
+        buffer.at_insert.index.should == '1.1'
+      end
+
+      it 'sends handler to widget, then sends method with default args on result' do
+        action = VER::Action.new([:next_char, 2], :at_insert)
+        buffer.at_insert.index.should == '1.0'
+        action.call(buffer)
+        buffer.at_insert.index.should == '1.2'
+      end
+
+      it 'sends handler to widget, then sends method with given args on result' do
+        action = VER::Action.new(:next_char, :at_insert)
+        buffer.at_insert.index.should == '1.0'
+        action.call(buffer, 2)
+        buffer.at_insert.index.should == '1.2'
+      end
+
+      it 'converts to Method' do
+        action = VER::Action.new(:next_char, :at_insert)
+        method = action.to_method(buffer)
+        method.name.should == :next_char
+        method.receiver.should == buffer.at_insert
+
+        buffer.at_insert.index.should == '1.0'
+        method.call
+        buffer.at_insert.index.should == '1.1'
+      end
+
+      it 'converts to Proc' do
+        action = VER::Action.new(:next_char, :at_insert)
+        proc = action.to_proc
+        proc.should.be.kind_of Proc
+        proc.arity.should == -2
+
+        buffer.at_insert.index.should == '1.0'
+        proc.call(buffer)
+        buffer.at_insert.index.should == '1.1'
+      end
+    end
+
+    describe 'given Module handler' do
+      behaves_like :with_module_handler
+
+      it 'sends method on handler with widget as argument' do
+        widget.should.be.nil
+        action.call(buffer)
+        widget.should == buffer
+      end
+
+      it 'converts to Method' do
+        method = action.to_method(buffer)
+        method.should.be.kind_of Method
+        method.name.should == :set_widget
+        method.receiver.should == ::SpecReceiver
+
+        widget.should.be.nil
+        method.call(buffer)
+        widget.should == buffer
+      end
+
+      it 'converts to Proc' do
+        proc = action.to_proc
+        proc.should.be.kind_of Proc
+        proc.arity.should == -2
+
+        widget.should.be.nil
+        proc.call(buffer)
+        widget.should == buffer
+      end
+    end
+
+    describe 'given no handler' do
+      behaves_like :with_no_handler
+
+      it 'sends method on widget with given args' do
+        buffer.at_insert.index.should == '1.0'
+        action.call(buffer)
+        buffer.at_insert.index.should == '1.1'
+      end
+
+      it 'converts to method' do
+        buffer.at_insert.index.should == '1.0'
+
+        method = action.to_method(buffer)
+        method.should.be.kind_of Method
+        method.name.should == :next_char
+        method.receiver.should == buffer
+
+        method.call
+        buffer.at_insert.index.should == '1.1'
+      end
+
+      it 'converts to proc' do
+        buffer.at_insert.index.should == '1.0'
+
+        proc = action.to_proc
+        proc.should.be.kind_of Proc
+        proc.arity.should == -2
+        proc.call(buffer)
 
-  it 'can have arguments' do
-    action = Action.new(Bacon, :summary_on_exit, [1,2,3])
-    action.args.should == [1,2,3]
+        buffer.at_insert.index.should == '1.1'
+      end
+    end
   end
 end

data/spec/ver/buffer.rb

@@ -0,0 +1,23 @@
+require_relative '../helper'
+
+VER.spec do
+  describe 'Buffer instance methods' do
+    buffer = VER::Buffer.new(Tk::Toplevel.new)
+    buffer.open(:Scratch)
+
+    it 'deletes trailing whitespace' do
+      buffer.value = <<-TEXT.chomp
+some   
+lines   
+      TEXT
+
+      buffer.touch!('1.0', 'end')
+      buffer.handle_pending_syntax_highlights
+      buffer.delete_trailing_whitespace
+      buffer.value.should == <<-TEXT
+some
+lines
+      TEXT
+    end
+  end
+end

data/spec/ver/clipboard.rb

@@ -0,0 +1,92 @@
+# Encoding: UTF-8
+require_relative '../helper'
+
+# This spec is incomplete, I want to specify copy/pasting of arbitary ruby
+# objects, as far as they can be serialized.
+# Have to read the ICCCM and about their conventions first.
+# Obviously, Marshal would be very convenient, but I doubt it's best practice.
+
+shared :clipboard_spec do
+  before do
+    Tk::Clipboard.clear
+  end
+end
+
+VER.spec do
+  describe 'VER::Clipboard' do
+    describe 'dwim=' do
+      behaves_like :clipboard_spec
+
+      it 'copies an ASCII String as STRING' do
+        string = "some string".encode(Encoding::ASCII)
+        VER::Clipboard.dwim = string
+        Tk::Clipboard.get(VER.root, 'STRING').should == string
+      end
+
+      it "copies an ASCII String as UTF8_STRING" do
+        string = "some string".encode(Encoding::ASCII)
+        VER::Clipboard.dwim = string
+        Tk::Clipboard.get(VER.root, 'UTF8_STRING').should == string
+      end
+
+      it 'copies an UTF-8 String as UTF8_STRING' do
+        string = "日本語".encode(Encoding::UTF_8)
+        VER::Clipboard.dwim = string
+        Tk::Clipboard.get(VER.root, 'UTF8_STRING').should == string
+      end
+
+      it "doesn't copy an UTF-8 String as STRING" do
+        string = "日本語".encode(Encoding::UTF_8)
+        VER::Clipboard.dwim = string
+        lambda{
+          Tk::Clipboard.get(VER.root, 'STRING')
+        }.should.raise(RuntimeError).message.
+         should.start_with(%(CLIPBOARD selection doesn't exist or form "STRING" not defined))
+      end
+
+      it 'puts an object into the clipboard' do
+        obj = ["hi there", (24..42), :Symbol, Class]
+        VER::Clipboard.dwim = obj
+        got = Tk::Clipboard.get(VER.root, 'RUBY_MARSHAL')
+        got_obj = Marshal.load(got.unpack('m0').first)
+        got_obj.should == obj
+      end
+    end
+
+    describe 'dwim' do
+      behaves_like :clipboard_spec
+
+      it 'gets an ASCII String from STRING' do
+        string = "some string".encode(Encoding::ASCII)
+        Tk::Clipboard.set(string, type: 'STRING')
+        got = VER::Clipboard.dwim
+        got.should == string
+        got.encoding.should == Encoding::ASCII
+      end
+
+      it "gets an ASCII String from ASCII in UTF8_STRING" do
+        string = "some string".encode(Encoding::ASCII)
+        Tk::Clipboard.set(string, type: 'UTF8_STRING')
+        got = VER::Clipboard.dwim
+        got.should == string
+        got.encoding.should == Encoding::ASCII
+      end
+
+      it 'gets an UTF-8 String from UTF-8 in UTF8_STRING' do
+        string = "日本語".encode(Encoding::UTF_8)
+        Tk::Clipboard.set(string, type: 'UTF8_STRING')
+        got = VER::Clipboard.dwim
+        got.should == string
+        got.encoding.should == Encoding::UTF_8
+      end
+
+      it 'puts an object into the clipboard' do
+        obj = ["hi there", (24..42), :Symbol, Class]
+        marshal = [Marshal.dump(obj)].pack('m0')
+        Tk::Clipboard.set(marshal, type: 'RUBY_MARSHAL')
+        got = VER::Clipboard.dwim
+        got.should == obj
+      end
+    end
+  end
+end

data/spec/ver/keymap.rb

@@ -1,77 +1,79 @@
-require 'bacon'
-Bacon.summary_on_exit
+require_relative '../helper'
 
-require_relative '../../lib/ver/keymap'
+VER.spec do
+  describe VER::Keymap do
+    Keymap = VER::Keymap
 
-describe Keymap = VER::Keymap do
-  it 'maps objects to a key' do
-    km = Keymap.new
-    km['t'] = 'our t'
-    km['t'].should == 'our t'
-  end
+    before do
+      @keymap = Keymap.new
+    end
 
-  it 'maps objects to a sequence of keys' do
-    km = Keymap.new
-    km['d', 'd'] = 'our d'
-    km['d', 'd'].should == 'our d'
-  end
+    def keymap
+      @keymap
+    end
 
-  it 'creates deeper nestings' do
-    km = Keymap.new
-    km['a', 'b', 'c', 'd'] = :foo
-    km['a', 'b', 'c', 'd'].should == :foo
-  end
+    it 'maps objects to a key' do
+      keymap['t'] = 'our t'
+      keymap['t'].should == 'our t'
+    end
 
-  it 'branches as needed' do
-    km = Keymap.new
-    km['a', 'b', 'c', 'd'] = 'abcd'
-    km['a', 'b', 'c', 'e'] = 'abce'
-    km['a', 'b', 'c', 'd'].should == 'abcd'
-    km['a', 'b', 'c', 'e'].should == 'abce'
-  end
+    it 'maps objects to a sequence of keys' do
+      keymap['d', 'd'] = 'our d'
+      keymap['d', 'd'].should == 'our d'
+    end
 
-  it "indicates when the given key-sequence doesn't match yet" do
-    km = Keymap.new
-    km['a', 'b', 'c', 'd'] = 'abcd'
-    km['a', 'b'].should.be.kind_of Keymap::Results::Incomplete
-  end
+    it 'creates deeper nestings' do
+      keymap['a', 'b', 'c', 'd'] = :foo
+      keymap['a', 'b', 'c', 'd'].should == :foo
+    end
 
-  it "indicates when the given key-sequence will never match" do
-    km = Keymap.new
-    km['a', 'b', 'c', 'd'] = 'abcd'
-    km['x', 'y'].should.be.kind_of Keymap::Results::Impossible
-  end
+    it 'branches as needed' do
+      keymap['a', 'b', 'c', 'd'] = 'abcd'
+      keymap['a', 'b', 'c', 'e'] = 'abce'
+      keymap['a', 'b', 'c', 'd'].should == 'abcd'
+      keymap['a', 'b', 'c', 'e'].should == 'abce'
+    end
 
-  it 'performs a merge with another keymap' do
-    kma = Keymap.new
-    kma['a'] = 'kma a'
+    it "indicates when the given key-sequence doesn't match yet" do
+      keymap['a', 'b', 'c', 'd'] = 'abcd'
+      keymap['a', 'b'].should.be.kind_of Keymap::Results::Incomplete
+    end
 
-    kmb = Keymap.new
-    kmb['b'] = 'kmb b'
+    it "indicates when the given key-sequence will never match" do
+      keymap['a', 'b', 'c', 'd'] = 'abcd'
+      keymap['x', 'y'].should.be.kind_of Keymap::Results::Impossible
+    end
 
-    kmab = kma.merge(kmb)
-    kmab['a'].should == 'kma a'
-    kmab['b'].should == 'kmb b'
-  end
+    it 'performs a merge with another keymap' do
+      keymap1 = Keymap.new
+      keymap1['a'] = 'keymap1 a'
 
-  it "doesn't overwrite existing sequences on merge" do
-    kma = Keymap.new
-    kma['a'] = 'kma a'
+      keymap2 = Keymap.new
+      keymap2['b'] = 'keymap2 b'
 
-    kmb = Keymap.new
-    kmb['a'] = 'kmb a'
-    kmb['b'] = 'kmb b'
+      keymap1b = keymap1.merge(keymap2)
+      keymap1b['a'].should == 'keymap1 a'
+      keymap1b['b'].should == 'keymap2 b'
+    end
 
-    kmab = kma.merge(kmb)
-    kmab['a'].should == 'kma a'
-    kmab['b'].should == 'kmb b'
-  end
+    it "doesn't overwrite existing sequences on merge" do
+      keymap1 = Keymap.new
+      keymap1['a'] = 'keymap1 a'
+
+      keymap2 = Keymap.new
+      keymap2['a'] = 'keymap2 a'
+      keymap2['b'] = 'keymap2 b'
+
+      keymap1b = keymap1.merge(keymap2)
+      keymap1b['a'].should == 'keymap1 a'
+      keymap1b['b'].should == 'keymap2 b'
+    end
 
-  it 'overrides existing sequences on assignment' do
-    km = Keymap.new
-    km['a'] = 'km a1'
-    km['a'].should == 'km a1'
-    km['a'] = 'km a2'
-    km['a'].should == 'km a2'
+    it 'overrides existing sequences on assignment' do
+      keymap['a'] = 'keymap a1'
+      keymap['a'].should == 'keymap a1'
+      keymap['a'] = 'keymap a2'
+      keymap['a'].should == 'keymap a2'
+    end
   end
 end