shoes 4.0.0.pre1 → 4.0.0.pre2

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/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(:clear)
-  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(:clear)
-  end
-
-end

data/spec/shoes/line_spec.rb

@@ -1,47 +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 "object with stroke"
-    it_behaves_like "movable object"
-    it_behaves_like "object with style"
-    it_behaves_like "object with dimensions"
-    it_behaves_like 'object with parent'
-  end
-
-  shared_examples_for "basic line" do
-    it { should 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,89 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Link do
-  let(:gui) { double("gui").as_null_object }
-  let(:app) { double("app", gui: gui) }
-  let(:internal_app) { double("internal app", app: app, gui: gui) }
-
-  context "initialize" do
-    let(:texts) { ["text", "goes", "first"] }
-
-    subject { Shoes::Link.new(app, app, texts, {color: :blue}) }
-
-    it "should set up text" do
-      subject.texts.should eql(texts)
-      subject.to_s.should  eql("textgoesfirst")
-    end
-
-    it "should set color" do
-      subject.color.should eql(:blue)
-    end
-
-    it "should default opts" do
-      subject.opts.should eql({
-        :underline=>true,
-        :stroke=>Shoes::COLORS[:blue]
-      })
-    end
-
-    context "overriding options" do
-      subject { Shoes::Link.new(app, app, texts,
-                                underline: false, bg: Shoes::COLORS[:green]) }
-
-      it "should include defaults" do
-        subject.opts.should include(:stroke => Shoes::COLORS[:blue])
-      end
-
-      it "should override defaults" do
-        subject.opts.should include(:underline => false)
-      end
-
-      it "should include other options" do
-        subject.opts.should include(:bg => Shoes::COLORS[:green])
-      end
-    end
-
-    context "with a block" do
-      let(:callable) { double("callable") }
-      subject { Shoes::Link.new(internal_app, nil, texts) { callable.call } }
-
-      it "sets up for the click" do
-        expect(callable).to receive(:call)
-        subject.execute_link
-      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.execute_link
-      end
-    end
-
-    context "with click option as Proc" do
-      let(:block) { double("block", call: nil) }
-      subject { Shoes::Link.new(internal_app, nil, texts, click: block) }
-
-      it "calls the block" do
-        expect(block).to receive(:call)
-        subject.execute_link
-      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.execute_link
-      end
-    end
-  end
-end

data/spec/shoes/list_box_spec.rb

@@ -1,63 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::ListBox do
-  include_context "dsl app"
-  let(:input_opts)  { { items: ["Wine", "Vodka", "Water"], left: left, top: top, width: width, height: height } }
-
-  let(:left) { 10 }
-  let(:top) { 20 }
-  let(:width) { 100 }
-  let(:height) { 200 }
-
-  subject(:list_box) { Shoes::ListBox.new(app, parent, input_opts, input_block) }
-
-  it_behaves_like "an element that can respond to change"
-  it_behaves_like "object with state"
-  it_behaves_like "object with dimensions"
-
-  describe "relative dimensions from parent" do
-    subject { Shoes::ListBox.new(app, parent, relative_opts, input_block) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  describe "negative dimensions" do
-    subject { Shoes::ListBox.new(app, parent, negative_opts, input_block) }
-    it_behaves_like "object with negative dimensions"
-  end
-
-  it "contains the correct items" do
-    expect(subject.items).to eq(["Wine", "Vodka", "Water"])
-  end
-
-  it "changes the items" do
-    list_box.items = ["Pie", "Apple", "Pig"]
-    expect(list_box.items).to eq(["Pie", "Apple", "Pig"])
-  end
-
-  describe 'Choosing' do
-    it "allows us to choose an option" do
-      expect(list_box).to respond_to(:choose)
-    end
-
-    def expect_gui_choose_with(string)
-      expect_any_instance_of(Shoes.configuration.backend::ListBox).
-      to receive(:choose).with string
-    end
-
-    it "should call @gui.choose when we choose something" do
-      expect_gui_choose_with "Wine"
-      list_box.choose "Wine"
-    end
-
-    it 'should call @gui.choose when the choose option is passed' do
-      expect_gui_choose_with 'Wine'
-      Shoes::ListBox.new app, parent, input_opts.merge(choose: 'Wine')
-    end
-  end
-
-  it "should delegate #text to the backend" do
-    Shoes.configuration.backend::ListBox.any_instance.
-        should_receive(:text).and_return("Sneakers & Sandals")
-    expect(list_box.text).to eq("Sneakers & Sandals")
-  end
-end

data/spec/shoes/logger/ruby_spec.rb

@@ -1,9 +0,0 @@
-require 'spec_helper'
-require 'logger'
-
-describe Shoes::Logger::Ruby do
-  it "delegates to a Logger instance" do
-    ::Logger.any_instance.should_receive(:debug).with("Foo bar baz!")
-    subject.debug("Foo bar baz!")
-  end
-end

data/spec/shoes/logger_spec.rb

@@ -1,45 +0,0 @@
-require 'spec_helper'
-
-describe Shoes::Logger do
-  let(:awesome_logger) { Class.new }
-  after { Shoes::Logger.unregister(:awesome_logger) }
-
-  describe ".register" do
-    it "allows new loggers to be registered" do
-      Shoes::Logger.register(:awesome_logger, awesome_logger)
-    end
-  end
-
-  describe ".get" do
-    before { Shoes::Logger.register(:awesome_logger, awesome_logger) }
-
-    it "retrieves a registered logger" do
-      Shoes::Logger.get(:awesome_logger).should equal(awesome_logger)
-    end
-  end
-
-  describe "default logger" do
-    let(:logger) { Shoes.logger }
-
-    it "is a ruby logger" do
-      expect(logger).to be_an_instance_of(Shoes::Logger::Ruby)
-    end
-  end
-end
-
-describe Shoes::Logger::Ruby do
-  let(:logdevice) { StringIO.new }
-  subject(:logger) { Shoes::Logger::Ruby.new logdevice }
-
-  it "logs messages with format 'LEVEL: Message'" do
-    logger.info "Message"
-    expect(logdevice.string).to eq("INFO: Message\n")
-  end
-
-  it "defaults to STDERR" do
-    STDERR.stub(:write)
-    logger = Shoes::Logger::Ruby.new
-    logger.error "Message"
-    expect(STDERR).to have_received(:write)
-  end
-end

data/spec/shoes/oval_spec.rb

@@ -1,20 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Oval do
-  include_context "dsl app"
-
-  let(:left) { 20 }
-  let(:top) { 30 }
-  let(:width) { 100 }
-  let(:height) { 200 }
-
-  describe "basic" do
-    subject { Shoes::Oval.new(app, parent, left, top, width, height) }
-    it_behaves_like "object with stroke"
-    it_behaves_like "object with fill"
-    it_behaves_like "object with dimensions"
-    it_behaves_like "movable object"
-    it_behaves_like "left, top as center"
-    it_behaves_like 'object with parent'
-  end
-end

data/spec/shoes/point_spec.rb

@@ -1,51 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Point do
-  subject { Shoes::Point.new(40, 50) }
-  let(:other_point) { Shoes::Point.new(10, 60) }
-
-  its(:x) { should eq(40) }
-  its(:y) { should eq(50) }
-
-  specify "#left works on either point" do
-    subject.left(other_point).should eq(10)
-    other_point.left(subject).should eq(10)
-  end
-
-  specify "#top works on either point" do
-    subject.top(other_point).should eq(50)
-    other_point.top(subject).should eq(50)
-  end
-
-  describe "equality" do
-    specify "requires x and y to be equal" do
-      subject.should eq(Shoes::Point.new 40, 50)
-      subject.should_not eq(Shoes::Point.new 41, 50)
-      subject.should_not eq(Shoes::Point.new 40, 51)
-    end
-
-    specify "works with other (x,y) objects" do
-      subject.should eq(Struct.new(:x, :y).new(40, 50))
-    end
-  end
-
-  describe "#to" do
-    specify "positive" do
-      subject.to(24, 166).should eq(Shoes::Point.new(64, 216))
-    end
-
-    specify "negative" do
-      subject.to(-24, -166).should eq(Shoes::Point.new(16, -116))
-    end
-  end
-
-  specify "calculates width of rectangle created with other point" do
-    subject.width(other_point).should eq(30)
-    other_point.width(subject).should eq(30)
-  end
-
-  specify "calculates height of rectangle created with other point" do
-    subject.height(other_point).should eq(10)
-    other_point.height(subject).should eq(10)
-  end
-end

data/spec/shoes/progress_spec.rb

@@ -1,40 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Progress 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 }
-
-  subject(:progress) { Shoes::Progress.new(app, parent, input_opts, input_block) }
-
-  it { should respond_to :fraction }
-  it { should respond_to :fraction= }
-
-  it_behaves_like "object with dimensions"
-
-  context "setting fraction" do
-    it "sets on gui" do
-      expect(progress.gui).to receive(:fraction=).with(0.5)
-      progress.fraction = 0.5
-    end
-
-    it "sets on self" do
-      progress.fraction = 0.5
-      expect(progress.fraction).to eq(0.5)
-    end
-  end
-
-  describe "relative dimensions from parent" do
-    subject { Shoes::Progress.new(app, parent, relative_opts, input_block) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  describe "negative dimensions" do
-    subject { Shoes::Progress.new(app, parent, negative_opts, input_block) }
-    it_behaves_like "object with negative dimensions"
-  end
-end

data/spec/shoes/radio_spec.rb

@@ -1,28 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Radio do
-  include_context "dsl app"
-
-  subject(:radio) { Shoes::Radio.new(app, parent, group, input_opts, input_block) }
-  let(:group) { :a_group }
-
-  it_behaves_like "checkable"
-  it_behaves_like "object with state"
-
-  # only one radio in a group can be checked
-
-  describe "#initialize" do
-    it "sets accessors" do
-      expect(radio.parent).to eq(parent)
-      expect(radio.group).to eq(group)
-      expect(radio.blk).to eq(input_block)
-    end
-  end
-
-  describe "#group=" do
-    it "changes the group" do
-      radio.group = "New Group"
-      expect(radio.group).to eq("New Group")
-    end
-  end
-end