shoes-swt 4.0.0.pre2

data/spec/shoes_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe Shoes, 'load_backend' do
+  it "raises ArgumentError on bad input" do
+    expect { Shoes.load_backend :bogus }.to raise_error
+  end
+end
+
+describe Shoes, 'setup' do
+
+  it 'knows this method' do
+    expect(Shoes).to respond_to :setup
+  end
+
+  describe 'outputting on standard error' do
+
+    def expect_stderr_puts(regex)
+      expect($stderr).to receive(:puts).with(regex)
+    end
+
+    before :each do
+      expect_stderr_puts(/WARN.+deprecated/)
+    end
+
+    it 'puts a warning message to $stderr' do
+      Shoes.setup do end
+    end
+
+    it 'warns for individual gems' do
+      expect_stderr_puts(/WARN.+foo.+gem install foo/)
+      Shoes.setup do
+        gem 'foo'
+      end
+    end
+
+    it 'even reports the version number' do
+      expect_stderr_puts(/gem install foo --version \"~>2.10.0\"/)
+      Shoes.setup do
+        gem 'foo ~>2.10.0'
+      end
+    end
+  end
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,18 @@
+SHOESSPEC_ROOT = File.expand_path('..', __FILE__)
+$LOAD_PATH << File.join('../lib', SHOESSPEC_ROOT)
+
+require 'code_coverage'
+require 'rspec'
+require 'rspec/its'
+require 'pry'
+require 'shoes'
+require 'shoes/ui/cli'
+require 'fileutils'
+require 'shoes/helpers/fake_element'
+require 'shoes/helpers/inspect_helpers'
+
+require 'webmock/rspec'
+WebMock.disable_net_connect!(:allow => "codeclimate.com")
+
+shared_examples = File.expand_path('../shoes/shared_examples/**/*.rb', __FILE__)
+Dir[shared_examples].each { |f| require f }

data/spec/swt_shoes/animation_spec.rb

@@ -0,0 +1,86 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Animation do
+  include_context 'swt app'
+  let(:dsl) { double('dsl', :stopped? => false, :removed? => false,
+                     :framerate => 10, :current_frame => nil,
+                     :increment_frame => nil, :blk => block) }
+  let(:block) { double 'block', call: nil }
+  let(:display) { ::Swt.display }
+  subject { Shoes::Swt::Animation.new dsl, swt_app }
+
+  before :each do
+    allow(display).to receive(:timer_exec)
+  end
+
+  it "triggers an Swt timer" do
+    expect(display).to receive(:timer_exec)
+    subject
+  end
+
+  it "gets framerate" do
+    expect(dsl).to receive(:framerate)
+    subject
+  end
+
+  describe "task" do
+    let(:task) { subject.task }
+
+    it "calls block" do
+      expect(block).to receive(:call)
+      task.call
+    end
+
+    it "gets framerate" do
+      expect(dsl).to receive(:framerate)
+      task.call
+    end
+
+    it "triggers redraw" do
+      with_redraws do
+        expect(swt_app).to receive(:flush)
+        task.call
+      end
+    end
+
+    it "counts frames" do
+      expect(dsl).to receive(:increment_frame)
+      task.call
+    end
+
+    describe 'disabled' do
+      describe 'stopped?' do
+        before :each do
+          allow(dsl).to receive_messages :stopped? => true
+          task.call
+        end
+
+        it 'does not call the block' do
+          expect(block).to_not have_received :call
+        end
+
+        it 'continues calling the task' do
+          # one for initialize, one for the call in the task call
+          expect(display).to have_received(:timer_exec).exactly(2).times
+        end
+      end
+
+      describe 'removed?' do
+        before :each do
+          allow(dsl).to receive_messages :removed? => true
+          task.call
+        end
+
+        it 'does not call the block when removed' do
+          expect(block).to_not have_received :call
+        end
+
+        it 'does not continue calling itself when removed' do
+          # one time is initialize
+          expect(display).to have_received(:timer_exec).exactly(1).times
+        end
+      end
+    end
+
+  end
+end

data/spec/swt_shoes/app_spec.rb

@@ -0,0 +1,84 @@
+require "swt_shoes/spec_helper"
+
+describe Shoes::Swt::App do
+  let(:opts) { {:background => Shoes::COLORS[:salmon], :resizable => true} }
+  let(:app) { double('app', :opts => opts,
+                            :width => width,
+                            :height => 0,
+                            :app_title => 'double') }
+  let(:dsl) { app }
+
+  let(:opts_unresizable) { {:background => Shoes::COLORS[:salmon],
+                            :resizable => false} }
+  let(:app_unresizable) { double('app', :opts => opts_unresizable,
+                                        :width => 0,
+                                        :height => 0,
+                                        :app_title => 'double') }
+  let(:width) {0}
+
+  subject { Shoes::Swt::App.new(app) }
+
+  it { is_expected.to respond_to :clipboard }
+  it { is_expected.to respond_to :clipboard= }
+
+  it_behaves_like "clickable backend" do
+    let(:swt_app) { subject }
+    let(:click_block_parameters) { click_block_coordinates }
+
+    before do
+      allow(dsl).to receive(:pass_coordinates?) { true }
+      allow(subject).to receive(:add_listener)
+    end
+  end
+
+  before :each do
+    Shoes::Swt.unregister_all
+  end
+
+  context "when registering" do
+    it "registers" do
+      old_apps_length = Shoes::Swt.apps.length
+      subject
+      expect(Shoes::Swt.apps.length).to eq(old_apps_length + 1)
+      expect(Shoes::Swt.apps.include?(subject)).to be_truthy
+    end
+  end
+
+  context "when running on a mac" do
+    let(:the_display) { ::Swt::Widgets::Display }
+
+    it "should set the menubar title" do
+      expect(the_display).to receive(:app_name=).with('double')
+      subject
+    end
+  end
+
+  context "main window style" do
+    BASE_BITMASK =  Swt::SWT::CLOSE   |
+                    Swt::SWT::MIN     |
+                    Swt::SWT::V_SCROLL
+
+    it "should return a bitmask that represents being resizable" do
+      expect(subject.send(:main_window_style)).to eq(BASE_BITMASK | Swt::SWT::RESIZE | Swt::SWT::MAX)
+    end
+
+    it "should return a bitmask that represents not being resizable" do
+      not_resizable = Shoes::Swt::App.new app_unresizable
+      expect(not_resizable.send(:main_window_style)).to eq(BASE_BITMASK)
+    end
+  end
+
+  context "when attempting to copy text" do
+    it "copies text to clipboard" do
+      skip 'Seems to be broken with tmux please see/fix #398'
+      text = "test"
+      subject.clipboard = text
+      expect(subject.clipboard).to eq(text)
+    end
+  end
+
+  # fully testing the behavior would require stubbing for all of the open logic
+  # which at the time is overkill imo
+  it {is_expected.to respond_to :started?}
+
+end

data/spec/swt_shoes/arc_spec.rb

@@ -0,0 +1,103 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Arc do
+  include_context "swt app"
+
+  let(:left) { 100 }
+  let(:top) { 200 }
+  let(:width) { 300 }
+  let(:height) { 400 }
+  let(:angle1) { Shoes::PI }
+  let(:angle2) { Shoes::HALF_PI }
+  let(:dsl) { double("dsl object", app: shoes_app, element_width: width,
+                     element_height: height, element_left: left,
+                     element_top: top, angle1: angle1, angle2: angle2,
+                     wedge?: false, pass_coordinates?: nil,
+                     hidden: false).as_null_object }
+  let(:fill_color) { Shoes::Color.new(40, 50, 60, 70) }
+  let(:stroke_color) { Shoes::Color.new(80, 90, 100, 110) }
+
+  subject { Shoes::Swt::Arc.new(dsl, swt_app) }
+
+  describe "basics" do
+    specify "converts angle1 to degrees" do
+      expect(subject.angle1).to eq(180.0)
+    end
+
+    specify "converts angle2 to degrees" do
+      expect(subject.angle2).to eq(90.0)
+    end
+
+    specify "delegates #wedge to dsl object" do
+      expect(dsl).to receive(:wedge?) { false }
+      expect(subject).to_not be_wedge
+    end
+  end
+
+  it_behaves_like "paintable"
+  it_behaves_like "updating visibility"
+  it_behaves_like "clickable backend"
+
+  describe "painter" do
+    include_context "painter context"
+
+    let(:shape) { Shoes::Swt::Arc.new(dsl, swt_app) }
+    subject { Shoes::Swt::Arc::Painter.new(shape) }
+
+    it_behaves_like "stroke painter"
+    it_behaves_like "fill painter"
+
+    context "normal fill style" do
+      before :each do
+        allow(shape).to receive_messages(wedge?: false)
+      end
+
+      specify "fills arc using path" do
+        expect(gc).to receive(:fill_path)
+        subject.paint_control(event)
+      end
+
+      specify "draws arc" do
+        expect(gc).to receive(:draw_arc)
+        subject.paint_control(event)
+      end
+
+      # Swt measures the arc counterclockwise, while Shoes measures it clockwise.
+      specify "translates DSL values for Swt" do
+        path = double('path')
+        allow(::Swt::Path).to receive(:new) { path }
+        args = [100, 200, width, height, 180.0, -90.0]
+        expect(path).to receive(:add_arc).with(*args)
+        sw = 10
+        args = [100+sw/2, 200+sw/2, width-sw, height-sw, 180, -90.0]
+        expect(gc).to receive(:draw_arc).with(*args)
+        subject.paint_control(gc)
+      end
+    end
+
+    context "wedge fill style" do
+      before :each do
+        allow(shape).to receive_messages(wedge?: true)
+      end
+
+      specify "fills arc" do
+        expect(gc).to receive(:fill_arc)
+        subject.paint_control(event)
+      end
+
+      specify "draws arc" do
+        expect(gc).to receive(:draw_arc)
+        subject.paint_control(event)
+      end
+
+      specify "translates DSL values for Swt" do
+        args = [100, 200, width, height, 180, -90.0]
+        expect(gc).to receive(:fill_arc).with(*args)
+        sw = 10
+        args = [100+sw/2, 200+sw/2, width-sw, height-sw, 180, -90.0]
+        expect(gc).to receive(:draw_arc).with(*args)
+        subject.paint_control(gc)
+      end
+    end
+  end
+end

data/spec/swt_shoes/background_spec.rb

@@ -0,0 +1,67 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Background do
+  include_context "swt app"
+
+  let(:left) { 55 }
+  let(:top) { 77 }
+  let(:width) { 222 }
+  let(:height) { 111 }
+  let(:corners) { 0 }
+  let(:fill) { Shoes::COLORS[:salmon] }
+  let(:dsl) { double("dsl object", app: shoes_app,
+                     element_left: left, element_top: top,
+                     element_width: width, element_height: height,
+                     strokewidth: 1, curve: corners, fill: fill,
+                     hidden: false).as_null_object}
+
+  subject {
+    Shoes::Swt::Background.new dsl, swt_app
+  }
+
+  context "#initialize" do
+    it { is_expected.to be_an_instance_of(Shoes::Swt::Background) }
+    its(:dsl) { is_expected.to be(dsl) }
+  end
+
+  describe "#dispose" do
+    let(:fill)     { double("fill", gui: fill_gui) }
+    let(:fill_gui) { double("fill gui") }
+
+    it "lets subresources go" do
+      expect(fill_gui).to receive(:dispose)
+      subject.dispose
+    end
+  end
+
+  it_behaves_like "paintable"
+  it_behaves_like "updating visibility"
+
+  describe "painter" do
+    include_context "painter context"
+
+    let(:corners) { 0 }
+    let(:shape) { Shoes::Swt::Background.new dsl, swt_app}
+    subject { Shoes::Swt::Background::Painter.new shape }
+
+    it_behaves_like "fill painter"
+
+    describe "square corners" do
+      let(:corners) { 0 }
+
+      it "fills rect" do
+        expect(gc).to receive(:fill_round_rectangle).with(left, top, width, height, corners*2, corners*2)
+        subject.paint_control(event)
+      end
+    end
+
+    describe "round corners" do
+      let(:corners) { 13 }
+
+      it "fills rect" do
+        expect(gc).to receive(:fill_round_rectangle).with(left, top, width, height, corners*2, corners*2)
+        subject.paint_control(event)
+      end
+    end
+  end
+end

data/spec/swt_shoes/border_spec.rb

@@ -0,0 +1,52 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Border do
+  include_context "swt app"
+
+  let(:left) { 55 }
+  let(:top) { 77 }
+  let(:width) { 222 }
+  let(:height) { 111 }
+  let(:corners) { 0 }
+  let(:dsl) { double("dsl object", element_width: width, element_height: height,
+                     element_left: left, element_top: top, parent: parent,
+                     strokewidth: 1, curve: corners,hidden: false).as_null_object }
+
+  subject { Shoes::Swt::Border.new dsl, swt_app }
+
+  context "#initialize" do
+    it { is_expected.to be_an_instance_of(Shoes::Swt::Border) }
+    its(:dsl) { is_expected.to be(dsl) }
+  end
+
+  it_behaves_like "paintable"
+  it_behaves_like "removable"
+
+  describe "painter" do
+    include_context "painter context"
+
+    let(:corners) { 0 }
+    let(:shape) { Shoes::Swt::Border.new dsl, swt_app }
+    subject { Shoes::Swt::Border::Painter.new shape }
+
+    it_behaves_like "stroke painter"
+
+    describe "square corners" do
+      let(:corners) { 0 }
+
+      specify "draws rect" do
+        expect(gc).to receive(:draw_round_rectangle).with(left+sw/2, top+sw/2, width-sw, height-sw, corners*2, corners*2)
+        subject.paint_control(event)
+      end
+    end
+
+    describe "round corners" do
+      let(:corners) { 13 }
+
+      specify "draws rect" do
+        expect(gc).to receive(:draw_round_rectangle).with(left+sw/2, top+sw/2, width-sw, height-sw, corners*2, corners*2)
+        subject.paint_control(event)
+      end
+    end
+  end
+end