shoes-swt 4.0.0.pre2 → 4.0.0.pre3

data/spec/shoes/image_spec.rb

@@ -1,49 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Image do
-  include_context "dsl app"
-
-  describe "basic" do
-    let(:left) { 10 }
-    let(:top) { 20 }
-    let(:width) { 100 }
-    let(:height) { 200 }
-
-    let(:filename) { File.expand_path "../../../static/shoes-icon.png", __FILE__ }
-    let(:updated_filename) { File.expand_path "../../../static/shoes-icon-brown.png", __FILE__ }
-
-    subject(:image) { Shoes::Image.new(app, parent, filename, left: left, top: top, width: width, height: height) }
-
-    it { is_expected.to be_instance_of(Shoes::Image) }
-
-    it "should update image path" do
-      subject.path = updated_filename
-      expect(subject.path).to eq(updated_filename)
-    end
-
-    it_behaves_like "movable object"
-    it_behaves_like "object with dimensions"
-    
-    it_behaves_like "object with style" do
-      let(:subject_without_style) { Shoes::Image.new(app, parent, filename) }
-      let(:subject_with_style) { Shoes::Image.new(app, parent, filename, arg_styles) }
-    end
-
-    describe "relative dimensions from parent" do
-      subject { Shoes::Image.new(app, parent, filename, relative_opts) }
-      it_behaves_like "object with relative dimensions"
-    end
-
-    describe "negative dimensions" do
-      subject { Shoes::Image.new(app, parent, filename, negative_opts) }
-      it_behaves_like "object with negative dimensions"
-    end
-  end
-
-  describe 'accepts web URL' do
-    let(:filename) { "http://is.gd/GVAGF7" }
-    subject { Shoes::Image.new(app, parent, filename, input_opts) }
-
-    its(:file_path) { should eq("http://is.gd/GVAGF7") }
-  end
-end

data/spec/shoes/input_box_spec.rb

@@ -1,80 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::InputBox do
-  include_context "dsl app"
-  let(:input_opts) {{left: left, top: top, width: width, height: height}}
-  let(:left) { 10 }
-  let(:top) { 20 }
-  let(:width) { 100 }
-  let(:height) { 200 }
-  let(:text) { "the text" }
-
-  # EditBox is an InputBox but InputBox is never instantiated itself
-  # And there are problems in the backend due to option settings
-  subject { Shoes::EditBox.new(app, parent, text, input_opts, input_block) }
-
-  it_behaves_like "object with dimensions"
-
-  it_behaves_like "object with style" do
-    let(:subject_without_style) { Shoes::EditBox.new(app, parent, text) }
-    let(:subject_with_style) { Shoes::EditBox.new(app, parent, text, arg_styles) }
-  end
-
-  it_behaves_like "movable object"
-  it_behaves_like "an element that can respond to change"
-  it_behaves_like "object with state"
-
-  it { is_expected.to respond_to :focus }
-  it { is_expected.to respond_to :text  }
-  it { is_expected.to respond_to :text= }
-
-  it 'forwards calls to highlight_text to the backend' do
-    expect(subject.gui).to receive(:highlight_text).with(4, 20)
-    subject.highlight_text 4, 20
-  end
-
-  it 'forwards calls to caret_to to the backend' do
-    expect(subject.gui).to receive(:caret_to).with(42)
-    subject.caret_to 42
-  end
-
-  describe 'non string text' do
-    let(:text) {42}
-
-    it 'is converted to a string (convenience + error in backend)' do
-      expect(subject.text).to eq '42'
-    end
-  end
-
-  describe "relative dimensions from parent" do
-    subject { Shoes::EditBox.new(app, parent, text, relative_opts) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  describe "negative dimensions" do
-    subject { Shoes::EditBox.new(app, parent, text, negative_opts) }
-    it_behaves_like "object with negative dimensions"
-  end
-
-  describe Shoes::EditLine do
-    describe "secret" do
-      subject { Shoes::EditLine.new(app, parent, text, secret: true) }
-
-      it "gets initialized" do
-        expect(subject.secret).to eq(true)
-        expect(subject.secret?).to eq(true)
-      end
-
-      it "respects setting" do
-        subject.secret = false
-        expect(subject.secret).to eq(false)
-        expect(subject.secret?).to eq(false)
-      end
-
-      it_behaves_like "object with style" do
-        let(:subject_without_style) { Shoes::EditLine.new(app, parent, text) }
-        let(:subject_with_style) { Shoes::EditLine.new(app, parent, text, arg_styles) }
-      end
-    end
-  end
-end

data/spec/shoes/integration_spec.rb

@@ -1,20 +0,0 @@
-require 'spec_helper'
-
-# also for stuff that is hard/brittle to test in isolation
-describe 'Integration specs' do
-  describe 'hover & leave' do
-
-    # that #hover and #leave are called with @__app__.current_slot is hard to
-    # test since therefore there needs to be a current slot which is only during
-    # block execution, stubbing it seems fairly brittle and dependent on
-    # internal structure, see #603
-    it 'does not raise an error' do
-      expect do
-        Shoes.app do
-          hover {}
-          leave {}
-        end
-      end.not_to raise_error
-    end
-  end
-end

data/spec/shoes/internal_app_spec.rb

@@ -1,141 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::InternalApp do
-  include_context "dsl app"
-
-  subject { app }
-
-  describe "#initialize" do
-    context "with defaults" do
-      let(:defaults) { Shoes::InternalApp::DEFAULT_OPTIONS }
-
-      it "sets title", :qt do
-        expect(subject.app_title).to eq defaults[:title]
-      end
-
-      it "is resizable", :qt do
-        expect(subject.resizable).to be_truthy
-      end
-
-      it "sets width" do
-        expect(subject.width).to eq(defaults[:width])
-      end
-
-      it "sets height" do
-        expect(subject.height).to eq(defaults[:height])
-      end
-
-      it "does not start as fullscreen" do
-        expect(subject.start_as_fullscreen?).to be_falsey
-      end
-    end
-
-    context "with custom opts" do
-      let(:input_opts) { {:width => 150, :height => 2, :title => "Shoes::App Spec", :resizable => false} }
-
-      it "sets title", :qt do
-        expect(subject.app_title).to eq input_opts[:title]
-      end
-
-      it "sets resizable", :qt do
-        expect(subject.resizable).to be_falsey
-      end
-
-      it "sets width" do
-        expect(subject.width).to eq(input_opts[:width])
-      end
-
-      it "sets height" do
-        expect(subject.height).to eq(input_opts[:height])
-      end
-    end
-  end
-
-  describe 'fullscreen' do
-    let(:input_opts) { {:fullscreen => true} }
-
-    it "sets fullscreen" do
-      expect(subject.start_as_fullscreen?).to be_truthy
-    end
-  end
-
-  describe '#contents' do
-    it 'delegates to top_slot' do
-      expect(subject.contents).to be(subject.top_slot.contents)
-    end
-  end
-
-  describe '#clear' do
-    context 'when called after the initial input block' do
-      let(:input_block) {
-        Proc.new do
-          para "CONTENT"
-          para "JUST FOR TESTING"
-        end
-      }
-
-      before :each do
-        expect(subject.contents.size).to eq(2)
-      end
-
-      it 'clears top_slot' do
-        subject.clear
-        expect(subject.contents).to be_empty
-      end
-    end
-
-    context 'when called in the initial input_block' do
-      let(:input_block) {
-        Proc.new do
-          para 'Hello there'
-          clear do
-            para 'see you'
-          end
-        end
-      }
-
-      it 'does not raise an error' do
-        expect {subject}.not_to raise_error
-      end
-
-      context 'when called inside a slot' do
-        let(:input_block) {
-          Proc.new do
-            button 'I am here'
-            stack do
-              button 'Hi there'
-              button 'Another one'
-              clear
-            end
-          end
-        }
-
-        it 'does not delete the slot, or an element outside the slot' do
-          expect(subject.contents.size).to eq 2
-        end
-      end
-    end
-
-    context 'when called before a button in an initial input block' do
-      let(:input_block) {
-        Proc.new do
-          clear
-          button 'My Button'
-        end
-      }
-
-      it 'allows a button to be created' do
-        expect(subject.contents.size).to eq(1)
-      end
-
-      describe 'the button' do
-        let(:button) { subject.contents.first }
-
-        it 'has the top_slot as its parent' do
-          expect(button.parent).to eq subject.top_slot
-        end
-      end
-    end
-
-  end
-end

data/spec/shoes/keypress_spec.rb

@@ -1,11 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Keypress do
-  include_context "dsl app"
-
-  subject(:keypress) { Shoes::Keypress.new app, &input_block }
-
-  it "should clear" do
-    expect(keypress).to respond_to(:remove)
-  end
-end

data/spec/shoes/keyrelease_spec.rb

@@ -1,12 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Keyrelease do
-  include_context "dsl app"
-
-  subject(:keyrelease) { Shoes::Keyrelease.new app, &input_block }
-
-  it "should clear" do
-    expect(keyrelease).to respond_to(:remove)
-  end
-
-end

data/spec/shoes/line_spec.rb

@@ -1,49 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Line do
-  include_context "dsl app"
-
-  describe "basic" do
-    let(:left) { 20 }
-    let(:top) { 23 }
-    let(:width) { 280 }
-    let(:height) { 407 }
-
-    subject { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430), input_opts) }
-    it_behaves_like "movable object"
-    it_behaves_like "object with style" do
-      let(:subject_without_style) { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430)) }
-      let(:subject_with_style) { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430), arg_styles) }
-    end
-    it_behaves_like "object with dimensions"
-    it_behaves_like 'object with parent'
-  end
-
-  shared_examples_for "basic line" do
-    it { is_expected.to be_kind_of(Shoes::Line) }
-    its(:top) { should eq(15) }
-    its(:left) { should eq(10) }
-    its(:width) { should eq(90) }
-    its(:height) { should eq(45) }
-  end
-
-  context "created left-to-right, top-to-bottom" do
-    subject { Shoes::Line.new(app, app, Shoes::Point.new(10, 15), Shoes::Point.new(100, 60), input_opts) }
-    it_behaves_like "basic line"
-  end
-
-  context "specified right-to-left, top-to-bottom" do
-    subject { Shoes::Line.new(app, app, Shoes::Point.new(100, 15), Shoes::Point.new(10, 60), input_opts) }
-    it_behaves_like "basic line"
-  end
-
-  context "specified right-to-left, bottom-to-top" do
-    subject { Shoes::Line.new(app, app, Shoes::Point.new(100, 60), Shoes::Point.new(10, 15), input_opts) }
-    it_behaves_like "basic line"
-  end
-
-  context "specified left-to-right, bottom-to-top" do
-    subject { Shoes::Line.new(app, app, Shoes::Point.new(10, 60), Shoes::Point.new(100, 15), input_opts) }
-    it_behaves_like "basic line"
-  end
-end

data/spec/shoes/link_spec.rb

@@ -1,105 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Link do
-  let(:gui) { double("gui").as_null_object }
-  let(:app) { double("app", gui: gui, style: {}, element_styles: {}) }
-  let(:internal_app) { double("internal app", app: app, gui: gui, style: {}, element_styles: {}) }
-  let(:texts) { ["text", "goes", "first"] }
-
-  subject { Shoes::Link.new(app, app, texts, {color: :blue}) }
-
-  context "initialize" do
-    it "should set up text" do
-      expect(subject.texts).to eql(texts)
-      expect(subject.to_s).to  eql("textgoesfirst")
-    end
-
-    it "should set color" do
-      expect(subject.color).to eql(:blue)
-    end
-
-    it "should default styles" do
-      expect(subject.style[:underline]).to eql(true)
-      expect(subject.style[:fill]).to eql(nil)
-      expect(subject.style[:stroke]).to eql(Shoes::COLORS[:blue])
-    end
-
-    context "overriding styles" do
-      subject { Shoes::Link.new(app, app, texts,
-                                underline: false, bg: Shoes::COLORS[:green]) }
-
-      it "should include defaults" do
-        expect(subject.style).to include(:stroke => Shoes::COLORS[:blue])
-      end
-
-      it "should override defaults" do
-        expect(subject.style).to include(:underline => false)
-      end
-
-      it "should include other options" do
-        expect(subject.style).to include(:bg => Shoes::COLORS[:green])
-      end
-    end
-
-    context "with a block" do
-      let(:callable) { double("callable") }
-      subject { Shoes::Link.new(internal_app, nil, texts, {}, Proc.new { callable.call }) }
-
-      it "sets up for the click" do
-        expect(callable).to receive(:call)
-        subject.blk.call
-      end
-    end
-
-    context "with click option as text" do
-      subject { Shoes::Link.new(internal_app, nil, texts, click: "/url") }
-
-      it "should visit the url" do
-        expect(app).to receive(:visit).with("/url")
-        subject.blk.call
-      end
-    end
-
-    context "with click option as Proc" do
-      let(:callable) { double("callable", call: nil) }
-      subject { Shoes::Link.new(internal_app, nil, texts, click: Proc.new { callable.call }) }
-
-      it "calls the block" do
-        expect(callable).to receive(:call)
-        subject.blk.call
-      end
-    end
-
-    context "calling click explicitly" do
-      let(:original_block)    { double("original") }
-      let(:replacement_block) { double("replacement") }
-      subject { Shoes::Link.new(internal_app, nil, texts) { original_block.call } }
-
-      it "replaces original block" do
-        expect(original_block).to_not receive(:call)
-        expect(replacement_block).to receive(:call)
-
-        subject.click { replacement_block.call }
-        subject.blk.call
-      end
-    end
-  end
-
-  describe 'visibility' do
-    let(:text_block) {double 'text block', visible?: true, hidden?: false}
-
-    before :each do
-      subject.text_block = text_block
-    end
-
-    it 'forwards visible? calls' do
-      subject.visible?
-      expect(text_block).to have_received :visible?
-    end
-
-    it 'forwards hidden? calls' do
-      subject.hidden?
-      expect(text_block).to have_received :hidden?
-    end
-  end
-end