shoes-core 4.0.0.pre3

data/spec/shoes/shape_spec.rb

@@ -0,0 +1,106 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Shape do
+  include_context "dsl app"
+
+  let(:left) { 0 }
+  let(:top) { 0 }
+  let(:style) { {left: left, top: top} }
+  let(:draw)  { Proc.new { } }
+
+  subject { Shoes::Shape.new app, parent, style, draw }
+
+  it_behaves_like "object with style" do
+    let(:subject_without_style) { Shoes::Shape.new(app, parent) }
+    let(:subject_with_style) { Shoes::Shape.new(app, parent,  arg_styles) }
+  end
+
+  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
+      }
+    }
+
+    its(:left) { should eq(0) }
+    its(:top) { should eq(0) }
+    its(:left_bound) { should eq(130) }
+    its(:top_bound) { should eq(100) }
+    its(:right_bound) { should eq(370) }
+    its(:bottom_bound) { should eq(340) }
+    its(:width) { should eq(app.width) }
+    its(:height) { should eq app.height }
+
+    it_behaves_like "movable object"
+
+    describe "when created without left and top values" do
+      let(:left) { nil }
+      let(:top) { nil }
+      
+      its(:left) { should eq(nil) }
+      its(:top) { should eq(nil) }
+    end
+
+    describe "when created with left and top values" do
+      let(:left) { 10 }
+      let(:top) { 100 }
+
+      its(:left) { should eq(10) }
+      its(:top) { should eq(100) }
+      its(:left_bound) { should eq(130) }
+      its(:top_bound) { should eq(100) }
+      its(:right_bound) { should eq(370) }
+      its(:bottom_bound) { should eq(340) }
+      its(:width) { should eq(app.width) }
+      its(:height) { should eq app.height }
+    end
+  end
+
+  describe "curve" do
+    let(:draw) {
+      Proc.new {
+        move_to 10, 10
+        curve_to 20, 30, 100, 200, 50, 50
+      }
+    }
+
+    its(:left_bound)   { should eq(10) }
+    its(:top_bound)    { should eq(10) }
+    its(:right_bound)  { should eq(100) }
+    its(:bottom_bound) { should eq(200) }
+    its(:width) { should eq(app.width) }
+    its(:height) { should eq app.height }
+
+    it_behaves_like "movable object"
+  end
+
+  describe "arc" do
+    let(:draw) {
+      Proc.new {
+        arc 10, 10, 100, 100, Shoes::PI, Shoes::TWO_PI
+      }
+    }
+
+    it_behaves_like "movable object"
+  end
+
+  describe "accesses app" do
+    let(:draw) {
+      Proc.new {
+        background Shoes::COLORS[:red]
+        stroke Shoes::COLORS[:blue]
+        rect 10, 10, 100, 100
+      }
+    }
+
+    it_behaves_like "movable object"
+  end
+end

data/spec/shoes/shared_examples/button.rb

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

data/spec/shoes/shared_examples/changeable.rb

@@ -0,0 +1,26 @@
+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
+      expect(input_block).to 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
+      expect(called).to be_truthy
+    end
+
+    it "should pass the element itself to the callback" do
+      subject.change do |element|
+        expect(element).to eq(subject)
+      end
+      subject.call_change_listeners
+    end
+  end
+end

data/spec/shoes/shared_examples/clickable.rb

@@ -0,0 +1,5 @@
+shared_examples "clickable object" do
+  it { is_expected.to respond_to :click }
+  it { is_expected.to respond_to :release }
+  it { is_expected.to respond_to :register_click }
+end

data/spec/shoes/shared_examples/common_methods.rb

@@ -0,0 +1,35 @@
+shared_examples_for "movable object" do
+  it "moves" do
+    subject.instance_variable_set(:@app, app)
+    expect(subject.move(300, 200)).to 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
+      allow(subject.gui).to receive :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 "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

@@ -0,0 +1,32 @@
+shared_examples_for "object with dimensions" do
+  it "should initialize" do
+    expect(subject.left).to eq(left)
+    expect(subject.top).to eq(top)
+    expect(subject.width).to eq(width)
+    expect(subject.height).to eq(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.element_width / 2)
+    expect(subject.height).to be_within(1).of(parent.element_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
+    expect(subject.left).to eq(left)
+    expect(subject.top).to eq(top)
+    expect(subject.width).to eq(parent.element_width - width)
+    expect(subject.height).to eq(parent.element_height - height)
+  end
+end

data/spec/shoes/shared_examples/dsl.rb

@@ -0,0 +1,44 @@
+# 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
+    button
+    border
+    cap
+    check
+    edit_box
+    edit_line
+    fill
+    flow
+    gradient
+    image
+    line
+    nofill
+    nostroke
+    oval
+    pattern
+    progress
+    rect
+    rgb
+    shape
+    star
+    stroke
+    strokewidth
+    style
+    video
+  ].each do |method|
+    include_examples "#{method} DSL method"
+  end
+
+  include_examples "text element DSL methods"
+end

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

@@ -0,0 +1,29 @@
+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

@@ -0,0 +1,45 @@
+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
+    expect { dsl.arc(30) }.to 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

@@ -0,0 +1,26 @@
+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

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

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

@@ -0,0 +1,5 @@
+shared_examples_for "button DSL method" do
+  it "is created with a default text" do
+    expect(dsl.button.text).to eq 'Button'
+  end
+end

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

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

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

@@ -0,0 +1,11 @@
+shared_examples_for 'check DSL method' do
+  let(:checkbox) { dsl.check }
+
+  it 'should be a checkbox' do
+    expect(checkbox).to be_instance_of Shoes::Check
+  end
+
+  it 'should be unchecked by default' do
+    expect(checkbox.checked?).to be_falsey
+  end
+end

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

@@ -0,0 +1,8 @@
+shared_examples_for "edit_box DSL method" do
+  context "edit_box" do
+    include_examples "editable element" do
+      let(:dsl_method) { :edit_box }
+      let(:klazz) { Shoes::EditBox }
+    end
+  end
+end

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

@@ -0,0 +1,8 @@
+shared_examples_for "edit_line DSL method" do
+  context "edit_line" do
+    include_examples "editable element"
+
+    let(:dsl_method) { :edit_line }
+    let(:klazz) { Shoes::EditLine }
+  end
+end

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

@@ -0,0 +1,29 @@
+shared_examples_for "editable element" do
+  subject { super.public_send(dsl_method, *args) }
+
+  describe "with no arguments" do
+    let(:args) { [] }
+    its(:text) { should == '' }
+    its(:width) { should == klazz::STYLES[:width] }
+    its(:height) { should == klazz::STYLES[:height] }
+  end
+
+  describe "with a single text argument" do
+    let(:args) { ['Hello text here'] }
+
+    its(:text) { should == 'Hello text here' }
+  end
+
+  describe "with a style hash" do
+    let(:args) { [{width: 100, height: 50}] }
+
+    its(:text) { should == '' }
+  end
+
+  describe "with a text argument and a style hash" do
+    let(:args) { ['Hello text here', {width: 100, height: 50}] }
+    its(:text) { should == 'Hello text here' }
+    its(:width) { should == 100 }
+    its(:height) { should == 50 }
+  end
+end