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 }
    let(:clickable) { proc {} }

    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 '2 arguments with hash' do
      subject { dsl.star left, top, click: clickable }
      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 }

      it "gets the click" do
        expect(subject.style[:click]).to eq(clickable)
      end
    end

    describe '3 arguments with hash' do
      subject { dsl.star left, top, points, click: clickable }
      its(:left)   { should eq left }
      its(:top)    { should eq top }
      its(:points) { should eq points }
      its(:outer)  { should eq DEFAULT_OUTER }
      its(:inner)  { should eq DEFAULT_INNER }

      it "gets the click" do
        expect(subject.style[:click]).to eq(clickable)
      end
    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 '4 arguments with hash' do
      subject { dsl.star left, top, points, outer, click: clickable }
      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 }

      it "gets the click" do
        expect(subject.style[:click]).to eq(clickable)
      end
    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

    describe '5 arguments with hash' do
      subject { dsl.star left, top, points, outer, inner, click: clickable }
      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 }

      it "gets the click" do
        expect(subject.style[:click]).to eq(clickable)
      end
    end

    describe 'too many arguments' do
      oops = 1000
      subject { dsl.star left, top, points, outer, inner, oops }

      it "raises on construction" do
        expect { subject }.to raise_error(ArgumentError)
      end
    end
  end
end