shoes-dsl 4.0.0.pre2

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

@@ -0,0 +1,21 @@
+shared_examples_for "image DSL method" do
+  let(:path)  { Shoes::DIR + '/static/shoes-icon.png' }
+  let(:opts)  { {} }
+  let(:image) { dsl.image path, opts }
+
+  it 'should set the path' do
+    expect(image.file_path).to eq(path)
+  end
+
+  context 'with :top and :left style attributes' do
+    let(:opts) { {left: 55, top: 66} }
+
+    it 'should set the left' do
+      expect(image.left).to eq(55)
+    end
+
+    it 'should set the top' do
+      expect(image.top).to eq(66)
+    end
+  end
+end

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

@@ -0,0 +1,9 @@
+shared_examples_for "line DSL method" do
+  it "creates a Shoes::Line" do
+    expect(dsl.line(10, 15, 20, 30)).to be_an_instance_of(Shoes::Line)
+  end
+
+  it "raises an ArgumentError" do
+    expect { dsl.line(30) }.to raise_error(ArgumentError)
+  end
+end

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

@@ -0,0 +1,6 @@
+shared_examples_for "nofill DSL method" do
+  it "sets nil" do
+    dsl.nofill
+    expect(dsl.style[:fill]).to eq(nil)
+  end
+end

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

@@ -0,0 +1,6 @@
+shared_examples_for "nostroke DSL method" do
+  it "sets nil" do
+    dsl.nostroke
+    expect(dsl.style[:stroke]).to eq(nil)
+  end
+end

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

@@ -0,0 +1,88 @@
+shared_examples_for "an oval/circle element" do
+  it "makes a Shoes::Oval" do
+    expect(oval).to be_instance_of(Shoes::Oval)
+  end
+
+  it "sets the proper dimensions" do
+    expect(oval.top).to eq(top)
+    expect(oval.left).to eq(left)
+    expect(oval.width).to eq(width)
+    expect(oval.height).to eq(height)
+  end
+
+  it "sets stroke" do
+    expect(oval.style[:stroke]).to eq(stroke)
+  end
+
+  it "sets fill" do
+    expect(oval.style[:fill]).to eq(fill)
+  end
+end
+
+shared_examples_for "oval DSL method" do
+  let(:left)   { 20 }
+  let(:top)    { 30 }
+  let(:width)  { 100 }
+  let(:height) { 200 }
+  let(:stroke) { Shoes::COLORS[:black] }
+  let(:fill) { Shoes::COLORS[:black] }
+
+  describe "creating an oval" do
+    describe "with explicit arguments" do
+      let(:oval) { dsl.oval(left, top, width, height) }
+      it_behaves_like "an oval/circle element"
+    end
+
+    describe "with stroke and fill styles" do
+      let(:stroke) { Shoes::COLORS.fetch :orchid }
+      let(:fill) { Shoes::COLORS.fetch :lemonchiffon }
+
+      describe "as colors" do
+        let(:oval) { dsl.oval(left, top, width, height, stroke: stroke, fill: fill) }
+        it_behaves_like "an oval/circle element"
+      end
+
+      describe "as hex strings" do
+        let(:oval) { dsl.oval(left, top, width, height, stroke: stroke.hex, fill: fill.hex) }
+        it_behaves_like "an oval/circle element"
+      end
+    end
+
+    describe "with too few arguments" do
+      it "raises an ArgumentError" do
+        expect { dsl.oval(10) }.to raise_error(ArgumentError)
+      end
+    end
+  end
+
+  describe "creating a circle" do
+    let(:width) { height }
+
+    describe "with explicit arguments" do
+      let(:oval) { dsl.oval(left, top, width, height) }
+      it_behaves_like "an oval/circle element"
+    end
+
+    describe "with top, left, diameter" do
+      let(:oval) { dsl.oval(left, top, width) }
+      it_behaves_like "an oval/circle element"
+    end
+
+    describe "with a style hash" do
+      describe "containing left, top, height, width" do
+        let(:oval) { dsl.oval(left: left, top: top, width: width, height: height) }
+        it_behaves_like "an oval/circle element"
+      end
+
+      describe "containing left, top, height, width, center: false" do
+        let(:oval) { dsl.oval(left: left, top: top, width: width, height: height, center: false) }
+        it_behaves_like "an oval/circle element"
+      end
+
+      describe "containing left, top, diameter" do
+        let(:oval) { dsl.oval(left: left, top: top, diameter: width) }
+        it_behaves_like "an oval/circle element"
+      end
+    end
+  end
+end

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

@@ -0,0 +1,34 @@
+shared_examples_for "pattern DSL method" do
+  let(:honeydew) { Shoes::COLORS[:honeydew] }
+  let(:salmon) { Shoes::COLORS[:salmon] }
+
+  context "with single color" do
+    let(:pattern) { dsl.pattern honeydew }
+    it "returns the color" do
+      expect(pattern).to eq(honeydew)
+    end
+  end
+
+  context "with color range" do
+    let(:pattern) { dsl.pattern honeydew..salmon }
+
+    it "returns a gradient" do
+      expect(pattern).to eq(dsl.gradient honeydew..salmon)
+    end
+  end
+
+  context "with single string" do
+    let(:pattern) { dsl.pattern honeydew.hex }
+    it "returns the color" do
+      expect(pattern).to eq(honeydew)
+    end
+  end
+
+  context "with string range" do
+    let(:pattern) { dsl.pattern honeydew.hex..salmon.hex }
+
+    it "returns a gradient" do
+      expect(pattern).to eq(dsl.gradient honeydew..salmon)
+    end
+  end
+end

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

@@ -0,0 +1,7 @@
+shared_examples_for "progress DSL method" do
+  let(:progress) { dsl.progress }
+
+  it 'should be a progress bar' do
+    expect(progress).to be_instance_of Shoes::Progress
+  end
+end

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

@@ -0,0 +1,92 @@
+shared_examples_for "rectangle dimensions" do
+  it "makes a Shoes::Rect" do
+    expect(rect).to be_an_instance_of(Shoes::Rect)
+  end
+
+  it "sets proper dimensions" do
+    expect(rect.left).to eq(left)
+    expect(rect.top).to eq(top)
+    expect(rect.width).to eq(width)
+    expect(rect.height).to eq(height)
+  end
+end
+
+shared_examples_for "rect DSL method" do
+  let(:left)   { 40 }
+  let(:top)    { 30 }
+  let(:curve)  { 12 }
+
+  it "raises an ArgumentError" do
+    expect { dsl.rect(30) }.to raise_exception(ArgumentError)
+  end
+
+  context 'unequal sides' do
+    let(:width)  { 200 }
+    let(:height) { 100 }
+
+    context "from explicit arguments" do
+      let(:rect) { dsl.rect left, top, width, height }
+
+      include_examples "rectangle dimensions"
+
+      it "defaults to corner radius of 0" do
+        expect(rect.curve).to eq(0)
+      end
+    end
+
+    context "round corners, from explicit arguments" do
+      let(:rect) { dsl.rect left, top, width, height, curve }
+
+      include_examples "rectangle dimensions"
+
+      it "sets corner radius" do
+        expect(rect.curve).to eq(curve)
+      end
+    end
+
+    context "from style hash" do
+      let(:rect) { dsl.rect left: left, top: top, width: width, height: height }
+
+      include_examples "rectangle dimensions"
+
+      it "defaults to corner radius of 0" do
+        expect(rect.curve).to eq(0)
+      end
+    end
+
+    context "rounded corners, from style hash" do
+      let(:rect) { dsl.rect left: left, top: top, width: width, height: height, curve: curve }
+
+      include_examples "rectangle dimensions"
+
+      it "sets corner radius" do
+        expect(rect.curve).to eq(curve)
+      end
+    end
+  end
+
+  context "square" do
+    let(:width)  { 200 }
+    let(:height) { 200 }
+
+    context "from explicit arguments" do
+      let(:rect) { dsl.rect left, top, width }
+
+      include_examples "rectangle dimensions"
+
+      it "defaults to corner radius of 0" do
+        expect(rect.curve).to eq(0)
+      end
+    end
+
+    context "square, from style hash" do
+      let(:rect) { dsl.rect left: left, top: top, width: width }
+
+      include_examples "rectangle dimensions"
+
+      it "defaults to corner radius of 0" do
+        expect(rect.curve).to eq(0)
+      end
+    end
+  end
+end

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

@@ -0,0 +1,26 @@
+shared_examples_for "rgb DSL method" do
+  let(:red) { 100 }
+  let(:green) { 149 }
+  let(:blue) { 237 }
+  let(:alpha) { 133 } # cornflowerblue
+
+  it "sends args to Shoes::Color" do
+    expect(Shoes::Color).to receive(:new).with(red, green, blue, alpha)
+    dsl.rgb(red, green, blue, alpha)
+  end
+
+  it "defaults to opaque" do
+    expect(Shoes::Color).to receive(:new).with(red, green, blue, Shoes::Color::OPAQUE)
+    dsl.rgb(red, green, blue)
+  end
+
+  describe "named color method" do
+    it "produces correct color" do
+      expect(dsl.cornflowerblue).to eq(Shoes::Color.new red, green, blue)
+    end
+
+    it "accepts alpha arg" do
+      expect(dsl.cornflowerblue(alpha)).to eq(Shoes::Color.new red, green, blue, alpha)
+    end
+  end
+end

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

@@ -0,0 +1,21 @@
+shared_examples_for "shape DSL method" do
+  let(:shape) {
+    dsl.shape {
+      move_to 400, 300
+      line_to 400, 200
+      line_to 100, 100
+      line_to 400, 300
+      curve_to 100, 100, 20, 200, 120, 240
+    }
+  }
+
+  it "creates a Shoes::Shape" do
+    expect(shape).to be_an_instance_of(Shoes::Shape)
+  end
+
+  it "receives style from app" do
+    green = Shoes::COLORS.fetch :green
+    dsl.style[:stroke] = green
+    expect(shape.stroke).to eq(green)
+  end
+end

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

@@ -0,0 +1,48 @@
+shared_examples_for "star DSL method" do
+  it "creates a Shoes::Star" do
+    expect(dsl.star(30, 20)).to be_an_instance_of(Shoes::Star)
+  end
+
+  it "raises an ArgumentError with just one argument" do
+    expect { dsl.star(30) }.to raise_error(ArgumentError)
+  end
+
+  describe 'instantiation' do
+    let(:left) {10}
+    let(:top) {20}
+    let(:points) {15}
+    let(:outer) {27}
+    let(:inner) {33}
+    DEFAULT_POINTS = 10
+    DEFAULT_OUTER = 100.0
+    DEFAULT_INNER = 50.0
+
+    describe '2 arguments' do
+      subject {dsl.star left, top}
+      its(:left) {should eq left}
+      its(:top) {should eq top}
+      its(:points) {should eq DEFAULT_POINTS}
+      its(:outer) {should eq DEFAULT_OUTER}
+      its(:inner) {should eq DEFAULT_INNER}
+    end
+
+    describe '4 arguments' do
+      subject {dsl.star left, top, points, outer}
+      its(:left) {should eq left}
+      its(:top) {should eq top}
+      its(:points) {should eq points}
+      its(:outer) {should eq outer}
+      its(:inner) {should eq DEFAULT_INNER}
+    end
+
+    describe '5 arguments' do
+      subject {dsl.star left, top, points, outer, inner}
+      its(:left) {should eq left}
+      its(:top) {should eq top}
+      its(:points) {should eq points}
+      its(:outer) {should eq outer}
+      its(:inner) {should eq inner}
+    end
+
+  end
+end

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

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

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

@@ -0,0 +1,19 @@
+shared_examples_for "strokewidth DSL method" do
+  it "returns a number" do
+    expect(dsl.strokewidth(4)).to eq(4)
+  end
+
+  it "sets on receiver" do
+    dsl.strokewidth 4
+    expect(dsl.style[:strokewidth]).to eq(4)
+  end
+
+  it "applies to subsequently created objects" do
+    dsl.strokewidth 6
+    expect(Shoes::Rect).to receive(:new) do |*args|
+      style = args[-2]
+      expect(style[:strokewidth]).to eq(6)
+    end
+    dsl.rect(10, 10, 100, 100)
+  end
+end

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

@@ -0,0 +1,32 @@
+shared_examples_for "style DSL method" do
+  describe "setting new defaults for text block" do
+    let(:stroke) { Shoes::COLORS[:chartreuse] }
+    let(:size)   { 42 }
+    let(:fill)   { Shoes::COLORS[:peru] }
+    let(:font )  { "SOME FONT" }
+    let(:style)  { {:stroke => stroke, :size => size, :fill => fill, :font => font} }
+
+    %w(Banner Title Subtitle Tagline Caption Para Inscription).each do |text_block|
+      describe text_block do
+        let(:element) { dsl.public_send text_block.downcase, "Hello!" }
+        let(:klass) { Shoes.const_get(text_block) }
+
+        before :each do
+          dsl.style klass, style
+        end
+
+        it "creates element with appropriate class" do
+          expect(element.class).to eq(klass)
+        end
+
+        it "sets size" do
+          expect(element.size).to eq(size)
+        end
+
+        it "sets font" do
+          expect(element.font).to eq(font)
+        end
+      end
+    end
+  end
+end