shoes-swt 4.0.0.pre2 → 4.0.0.pre3

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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