shoes 4.0.0.pre1 → 4.0.0.pre2

data/spec/shoes/rect_spec.rb

@@ -1,38 +0,0 @@
-require 'shoes/spec_helper'
-
-shared_examples_for "basic rect" do
-  it "retains app" do
-    expect(rect.app).to eq(app)
-  end
-
-  it "creates gui object" do
-    expect(rect.gui).not_to be_nil
-  end
-end
-
-describe Shoes::Rect do
-  include_context "dsl app"
-
-  let(:parent) { app }
-  let(:left) { 44 }
-  let(:top) { 66 }
-  let(:width) { 111 }
-  let(:height) { 333 }
-  subject(:rect) { Shoes::Rect.new(app, parent, left, top, width, height) }
-
-  describe '#style' do
-    it 'restyles handed in fill colors (even the weird ones)' do
-      subject.style fill: 'fff'
-      expect(subject.style[:fill]).to eq Shoes::Color.new 255, 255, 255
-    end
-  end
-
-  it_behaves_like "basic rect"
-  it_behaves_like "object with fill"
-  it_behaves_like "object with stroke"
-  it_behaves_like "object with style"
-  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

data/spec/shoes/renamed_delegate_spec.rb

@@ -1,70 +0,0 @@
-require 'spec_helper'
-
-describe RenamedDelegate do
-
-  class ToDelegate
-    def method_key
-    end
-
-    def abcd
-    end
-
-    def key
-    end
-
-    def bla_key
-    end
-
-    def method_something
-    end
-
-    def key_something
-    end
-  end
-
-  class TestClass
-    extend RenamedDelegate
-
-    attr_reader :delegate
-
-    def initialize(delegate)
-      @delegate = delegate
-    end
-  end
-
-  TestClass.renamed_delegate_to :delegate,
-                                ToDelegate.public_instance_methods(false),
-                                {'key' => 'shoes', 'something' => 'awesome'}
-
-  let(:delegate) {double('delegate').as_null_object}
-  subject {TestClass.new delegate}
-
-  def test_renaming(new_name, old_name)
-    subject.public_send new_name
-    expect(delegate).to have_received old_name
-  end
-
-  it 'delegates method_shoes to method_key' do
-    test_renaming :method_shoes, :method_key
-  end
-
-  it 'delegates shoes to key' do
-    test_renaming :shoes, :key
-  end
-
-  it 'delegates bla_shoes to bla_key' do
-    test_renaming :bla_shoes, :bla_key
-  end
-
-  it 'delegates method_awesome to method_something' do
-    test_renaming :method_awesome, :method_something
-  end
-
-  it 'also applies multiple renamings' do
-    test_renaming :shoes_awesome, :key_something
-  end
-
-  it 'does not define a method for methods without renamings' do
-    expect(subject).not_to respond_to :abcd
-  end
-end

data/spec/shoes/shape_spec.rb

@@ -1,54 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Shape do
-  include_context "dsl app"
-
-  subject { Shoes::Shape.new(app) {} }
-
-  it_behaves_like "object with stroke"
-  it_behaves_like "object with style"
-  it_behaves_like "movable object"
-
-  describe "octagon" do
-    let(:draw) {
-      Proc.new {
-        xs = [200, 300, 370, 370, 300, 200, 130, 130]
-        ys = [100, 100, 170, 270, 340, 340, 270, 170]
-        move_to xs.first, ys.first
-        xs.zip(ys).each do |x, y|
-          line_to(x, y)
-        end
-        line_to xs.first, ys.first
-      }
-    }
-    subject { Shoes::Shape.new app, Hash.new, draw }
-
-    its(:left) { should eq(130) }
-    its(:top) { should eq(100) }
-    its(:right) { should eq(370) }
-    its(:bottom) { should eq(340) }
-    its(:width) { should eq(app.width) }
-    its(:height) { should eq app.height }
-
-    it_behaves_like "movable object"
-  end
-
-  describe "curve" do
-    let(:draw) {
-      Proc.new {
-        move_to 10, 10
-        curve_to 20, 30, 100, 200, 50, 50
-      }
-    }
-    subject { Shoes::Shape.new app, Hash.new, draw }
-
-    its(:left)   { should eq(10) }
-    its(:top)    { should eq(10) }
-    its(:right)  { should eq(100) }
-    its(:bottom) { should eq(200) }
-    its(:width) { should eq(app.width) }
-    its(:height) { should eq app.height }
-
-    it_behaves_like "movable object"
-  end
-end

data/spec/shoes/shared_examples/button.rb

@@ -1,6 +0,0 @@
-shared_examples "checkable" do
-  it { should respond_to :checked= }
-  it { should respond_to :checked? }
-  it { should respond_to :focus }
-  it { should respond_to :click }
-end

data/spec/shoes/shared_examples/changeable.rb

@@ -1,26 +0,0 @@
-shared_examples "an element that can respond to change" do
-  describe "when passing a block to the constructor" do
-    it "should notify the block of change events" do
-      input_block.should_receive(:call).with(subject)
-      subject.call_change_listeners
-    end
-  end
-
-  describe "when setting up a callback with #change" do
-    it "should notify the callback of change events" do
-      called = false
-      subject.change do |element|
-        called = true
-      end
-      subject.call_change_listeners
-      called.should be_true
-    end
-
-    it "should pass the element itself to the callback" do
-      subject.change do |element|
-        element.should == subject
-      end
-      subject.call_change_listeners
-    end
-  end
-end

data/spec/shoes/shared_examples/clickable.rb

@@ -1,5 +0,0 @@
-shared_examples "clickable object" do
-  it { should respond_to :click }
-  it { should respond_to :release }
-  it { should respond_to :clickable_options }
-end

data/spec/shoes/shared_examples/common_methods.rb

@@ -1,42 +0,0 @@
-shared_examples_for "movable object" do
-  it "moves" do
-    subject.instance_variable_set(:@app, app)
-    subject.move(300, 200).should eq(subject)
-    expect(subject.left).to eq(300)
-    expect(subject.top).to eq(200)
-  end
-
-  describe "displacing" do
-    it "displaces backend object" do
-      expect(subject.gui).to receive(:update_position)
-      subject.displace(300, 200)
-    end
-
-    it "does not change reported values of #left and #top" do
-      # no error from calling set location with nil values due to unset values
-      subject.gui.stub :update_position
-      original_left = subject.left
-      original_top = subject.top
-      subject.displace(300, 200)
-      expect(subject.left).to eq(original_left)
-      expect(subject.top).to eq(original_top)
-    end
-  end
-end
-
-shared_examples_for "clearable object" do
-  it "clears" do
-    subject.should_receive(:clear)
-    subject.clear
-  end
-end
-
-shared_examples_for "left, top as center" do | *params |
-  let(:centered_object) { described_class.new(app, parent, left, top, width, height, *params, :center => true) }
-  it "should now be located somewhere" do
-    expect(centered_object.left).to eq(left-(width/2))
-    expect(centered_object.top).to eq(top-(height/2))
-    expect(centered_object.width).to eq(width)
-    expect(centered_object.height).to eq(height)
-  end
-end

data/spec/shoes/shared_examples/dimensions.rb

@@ -1,32 +0,0 @@
-shared_examples_for "object with dimensions" do
-  it "should initialize" do
-    subject.left.should == left
-    subject.top.should == top
-    subject.width.should == width
-    subject.height.should == height
-  end
-end
-
-shared_examples_for "object with relative dimensions" do
-  let(:relative_width) { 0.5 }
-  let(:relative_height) { 0.5 }
-  let(:relative_opts) { {left: left, top: top, width: relative_width, height: relative_height} }
-
-  it "should initialize based on parent dimensions" do
-    expect(subject.left).to eq left
-    expect(subject.top).to eq top
-    expect(subject.width).to be_within(1).of(parent.width / 2)
-    expect(subject.height).to be_within(1).of(parent.height / 2)
-  end
-end
-
-shared_examples_for "object with negative dimensions" do
-  let(:negative_opts) { {left: left, top: top, width: -width, height: -height} }
-
-  it "should initialize based on parent dimensions" do
-    subject.left.should == left
-    subject.top.should == top
-    subject.width.should == parent.width - width
-    subject.height.should == parent.height - height
-  end
-end

data/spec/shoes/shared_examples/dsl.rb

@@ -1,42 +0,0 @@
-# Shared examples for Shoes::App and Shoes::Slot (flow and stack).
-# If DSL methods can be called with multiple number of arguments,
-# and if they set certain defaults, then that what needs to be tested
-# here.
-# There are individual specs for the different Shoes elements, so
-# we don't need to test how they work in details. Here we just test that
-# the DSL methods construct elements correctly.
-shared_examples "DSL container" do
-  let(:dsl) { app }
-
-  %w[
-    animate
-    arc
-    background
-    border
-    cap
-    check
-    edit_box
-    edit_line
-    fill
-    flow
-    gradient
-    image
-    line
-    nofill
-    nostroke
-    oval
-    pattern
-    progress
-    rect
-    rgb
-    shape
-    star
-    stroke
-    strokewidth
-    style
-  ].each do |method|
-    include_examples "#{method} DSL method"
-  end
-
-  include_examples "text element DSL methods"
-end

data/spec/shoes/shared_examples/dsl/animate.rb

@@ -1,29 +0,0 @@
-shared_examples_for "animate DSL method" do
-  context "defaults" do
-    let(:animation) { dsl.animate {} }
-
-    it "is a Shoes::Animation" do
-      expect(animation).to be_an_instance_of(Shoes::Animation)
-    end
-
-    it "framerate is 10" do
-      expect(animation.framerate).to eq 10
-    end
-  end
-
-  context "with numeric argument" do
-    let(:animation) { dsl.animate(13) {} }
-
-    it "sets framerate" do
-      expect(animation.framerate).to eq(13)
-    end
-  end
-
-  context "with hash argument" do
-    let(:animation) { dsl.animate(:framerate => 17) {} }
-
-    it "sets framerate" do
-      expect(animation.framerate).to eq(17)
-    end
-  end
-end

data/spec/shoes/shared_examples/dsl/arc.rb

@@ -1,45 +0,0 @@
-shared_context "style context" do
-  let(:fill_color) { Shoes::COLORS.fetch(:tomato) }
-  let(:stroke_color) { Shoes::COLORS.fetch(:chartreuse) }
-
-  before :each do
-    subject.fill fill_color
-    subject.stroke stroke_color
-  end
-end
-
-shared_examples_for "persistent stroke" do
-  include_context "style context"
-
-  it "passes to element" do
-    expect(element.stroke).to eq(stroke_color)
-  end
-end
-
-shared_examples_for "persistent fill" do
-  include_context "style context"
-
-  it "passes to element" do
-    expect(element.fill).to eq(fill_color)
-  end
-end
-
-shared_examples_for "arc DSL method" do
-  let(:arc) { dsl.arc(13, 44, 200, 300, 0, Shoes::TWO_PI) }
-
-  it "creates a Shoes::Arc" do
-    expect(arc).to be_an_instance_of(Shoes::Arc)
-  end
-
-  it "raises an ArgumentError" do
-    lambda { dsl.arc(30) }.should raise_exception(ArgumentError)
-  end
-
-  it_behaves_like "persistent fill" do
-    let(:element) { arc }
-  end
-
-  it_behaves_like "persistent stroke" do
-    let(:element) { arc }
-  end
-end

data/spec/shoes/shared_examples/dsl/background.rb

@@ -1,26 +0,0 @@
-shared_examples_for "background DSL method" do
-  context "with a valid hex string" do
-    it "sets color" do
-      background = subject.background("#fff")
-      expect(background.fill).to eq(Shoes::COLORS[:white])
-    end
-  end
-
-  context "with an invalid hex string" do
-    it 'raises an argument error' do
-      expect{ subject.background('#ffq') }.to raise_error('Bad hex color: #ffq')
-    end
-  end
-
-  context 'with no valid image' do
-    it 'ignores the background' do
-      expect{ subject.background('fake-shoes.jpg') }.not_to raise_error
-    end
-  end
-
-  context 'with a valid image' do
-    it 'creates a Shoes::Background' do
-      expect(subject.background('static/shoes-icon.png')).to be_an_instance_of(Shoes::Background)
-    end
-  end
-end

data/spec/shoes/shared_examples/dsl/border.rb

@@ -1,10 +0,0 @@
-shared_examples_for "border DSL method" do
-  context "with hex string" do
-    let(:color) { "#ffffff" }
-
-    it "sets color" do
-      border = dsl.border(color)
-      border.stroke.should eq(Shoes::COLORS[:white])
-    end
-  end
-end

data/spec/shoes/shared_examples/dsl/cap.rb

@@ -1,6 +0,0 @@
-shared_examples_for "cap DSL method" do
-  it "sets the line cap" do
-    dsl.cap :curve
-    dsl.style[:cap].should eq(:curve)
-  end
-end