shoes-core 4.0.0.pre3

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

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,57 @@
+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
+
+  describe "constructing" do
+    it "doesn't need any arguments" do
+      shape = dsl.shape
+      expect(shape.left).to eq(nil)
+      expect(shape.top).to eq(nil)
+    end
+
+    it "can accept some styles" do
+      white = Shoes::COLORS.fetch :white
+      shape = dsl.shape stroke: white
+      expect(shape.stroke).to eq(white)
+    end
+
+    it "can accept a left and top" do
+      left, top = 10, 20
+      shape = dsl.shape left, top
+      expect(shape.left).to eq(left)
+      expect(shape.top).to eq(top)
+    end
+
+    it "accepts left and top in styles" do
+      left, top = 10, 20
+      shape = dsl.shape left: left, top: top
+      expect(shape.left).to eq(left)
+      expect(shape.top).to eq(top)
+    end
+
+    it "can accept a left, top, and some styles" do
+      left, top, white = 10, 20, Shoes::COLORS.fetch(:white)
+      shape = dsl.shape left, top, stroke: white
+      expect(shape.left).to eq(left)
+      expect(shape.top).to eq(top)
+      expect(shape.stroke).to eq(white)
+    end
+  end
+end