shoes-dsl 4.0.0.pre2

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

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

@@ -0,0 +1,27 @@
+shared_examples_for "fill DSL method" do
+  let(:color) { Shoes::COLORS.fetch :tomato }
+
+  it "returns a color" do
+    expect(dsl.fill(color).class).to eq(Shoes::Color)
+  end
+
+  # This works differently on a container than on a normal element
+  it "sets on receiver" do
+    dsl.fill color
+    expect(dsl.style[:fill]).to eq(color)
+  end
+
+  it "applies to subsequently created objects" do
+    dsl.fill color
+    oval = dsl.oval(10, 10, 100, 100)
+    expect(oval.fill).to eq(color)
+  end
+
+  context "with hex string" do
+    let(:color) { "#fff" }
+
+    it "sets the color" do
+      expect(dsl.fill(color)).to eq(Shoes::COLORS[:white])
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+shared_examples_for "flow DSL method" do
+  let(:flow) {dsl.flow}
+
+  it "creates a Shoes::Flow" do
+    expect(flow).to be_an_instance_of(Shoes::Flow)
+  end
+
+  it 'reports an instance of Shoes::App when asked for its app' do
+    expect(flow.app.class).to eq Shoes::App
+  end
+
+  it 'reports an object that responds to stack when asked for its app' do
+    expect(flow.app).to respond_to :stack
+  end
+end

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

@@ -0,0 +1,62 @@
+shared_examples_for "creating gradient" do
+  it "returns correct gradient according to #to_s" do
+    expect(gradient.to_s).to eq("(Shoes::Gradient)")
+  end
+
+  it "returns correct gradient according to #inspect" do
+    expect(gradient.inspect).to match("[(]Shoes::Gradient:#{shoes_object_id_pattern} rgb[(]255, 0, 0[)]->rgb[(]0, 0, 255[)][)]")
+  end
+end
+
+shared_examples_for "gradient DSL method" do
+  context "with colors" do
+    include InspectHelpers
+
+    let(:red) { Shoes::Color.new(255, 0, 0) }
+    let(:blue) { Shoes::Color.new(0, 0, 255) }
+
+    context "two separate" do
+      it_behaves_like "creating gradient" do
+        let(:gradient) { dsl.gradient(red, blue) }
+      end
+    end
+
+    context "as range" do
+      it_behaves_like "creating gradient" do
+        let(:gradient) { dsl.gradient(red..blue) }
+      end
+    end
+  end
+
+  context "with strings" do
+    include InspectHelpers
+
+    let(:red) { "#f00" }
+    let(:blue) { "#00f" }
+
+    context "two separate" do
+      it_behaves_like "creating gradient" do
+        let(:gradient) { dsl.gradient(red, blue) }
+      end
+    end
+
+    context "as range" do
+      it_behaves_like "creating gradient" do
+        let(:gradient) { dsl.gradient(red..blue) }
+      end
+    end
+  end
+
+  context "with gradient" do
+    include InspectHelpers
+
+    it_behaves_like "creating gradient" do
+      let(:gradient_arg) { dsl.gradient("#f00", "#00f") }
+      let(:gradient) { dsl.gradient(gradient_arg) }
+    end
+  end
+
+  it "fails on bad input" do
+    expect { dsl.gradient(100) }.to raise_error(ArgumentError)
+  end
+end