shoes 4.0.0.pre1 → 4.0.0.pre2

data/spec/shoes/arc_spec.rb

@@ -1,53 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Arc do
-  include_context "dsl app"
-  let(:parent) { app }
-
-  let(:left)        { 13 }
-  let(:top)         { 44 }
-  let(:width)       { 200 }
-  let(:height)      { 300 }
-  let(:start_angle) { 0 }
-  let(:end_angle)   { Shoes::TWO_PI }
-
-  context "basic" do
-    subject(:arc) { Shoes::Arc.new(app, parent, left, top, width, height, start_angle, end_angle) }
-
-    it_behaves_like "object with stroke"
-    it_behaves_like "object with style"
-    it_behaves_like "object with fill"
-    it_behaves_like "object with dimensions"
-    it_behaves_like "left, top as center", :start_angle, :end_angle
-    it_behaves_like 'object with parent'
-
-    it "is a Shoes::Arc" do
-      expect(arc.class).to be(Shoes::Arc)
-    end
-
-    its(:angle1) { should eq(0) }
-    its(:angle2) { should eq(Shoes::TWO_PI) }
-
-    specify "defaults to chord fill" do
-      expect(arc).not_to be_wedge
-    end
-  end
-
-  context "relative dimensions" do
-    subject(:arc) { Shoes::Arc.new(app, parent, left, top, relative_width, relative_height, start_angle, end_angle) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  context "negative dimensions" do
-    subject(:arc) { Shoes::Arc.new(app, parent, left, top, -width, -height, 0, Shoes::TWO_PI) }
-    it_behaves_like "object with negative dimensions"
-  end
-
-  context "wedge" do
-    subject(:arc) { Shoes::Arc.new(app, parent, left, top, width, height, start_angle, end_angle, :wedge => true) }
-
-    specify "accepts :wedge => true" do
-      expect(arc).to be_wedge
-    end
-  end
-end

data/spec/shoes/background_spec.rb

@@ -1,48 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Background do
-  include_context "dsl app"
-
-  let(:left) { 10 }
-  let(:top) { 20 }
-  let(:width) { 100 }
-  let(:height) { 200 }
-
-  let(:blue)  { Shoes::COLORS[:blue] }
-  let(:input_opts){ {left: left, top: top, width: width, height: height, color: blue} }
-  subject(:background) { Shoes::Background.new(app, parent, blue, input_opts) }
-
-  it "retains app" do
-    expect(background.app).to eq(app)
-  end
-
-  it "creates gui object" do
-    expect(background.gui).not_to be_nil
-  end
-
-  it_behaves_like "object with style"
-  it_behaves_like "object with dimensions"
-
-  describe "relative dimensions from parent" do
-    subject { Shoes::Background.new(app, parent, blue, relative_opts) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  context "negative dimensions" do
-    subject { Shoes::Background.new(app, parent, blue, negative_opts) }
-    it_behaves_like "object with negative dimensions"
-  end
-
-  describe '#needs_to_be_positioned?' do
-    context 'without absolute dimensions' do
-      let(:input_opts) {{}}
-      it {should_not be_needs_to_be_positioned}
-    end
-
-    context 'with absolute dimensions' do
-      it {should be_needs_to_be_positioned}
-    end
-  end
-
-  it {should_not be_takes_up_space}
-end

data/spec/shoes/border_spec.rb

@@ -1,43 +0,0 @@
-require 'shoes/spec_helper'
-
-shared_examples_for "basic border" do
-  it "retains app" do
-    subject.app.should eq(app)
-  end
-
-  it "creates gui object" do
-    subject.gui.should_not be_nil
-  end
-end
-
-describe Shoes::Border do
-  include_context "dsl app"
-  let(:parent) { Shoes::FakeElement.new nil, left, top, width, height}
-  let(:opts){ {left: left, top: top, width: width, height: height} }
-
-  let(:left) { 10 }
-  let(:top) { 20 }
-  let(:width) { 100 }
-  let(:height) { 200 }
-
-  let(:blue)  { Shoes::COLORS[:blue] }
-
-  subject { Shoes::Border.new(app, parent, blue, opts) }
-
-  it_behaves_like "basic border"
-  it_behaves_like "object with style"
-  it_behaves_like "object with dimensions"
-
-  describe "relative dimensions from parent" do
-    subject { Shoes::Border.new(app, parent, blue, relative_opts) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  describe "negative dimensions" do
-    subject { Shoes::Border.new(app, parent, blue, negative_opts) }
-    it_behaves_like "object with negative dimensions"
-  end
-
-  it {should_not be_takes_up_space}
-  it {should_not be_needs_to_be_positioned}
-end

data/spec/shoes/builtin_methods_spec.rb

@@ -1,84 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::BuiltinMethods do
-  let(:input_blk) { Proc.new {} }
-  let(:app) { Shoes::App.new({}, &input_blk) }
-  let(:logger) { double("logger") }
-
-  before :each do
-    Shoes::LOG.clear
-    Shoes.stub(:logger) { logger }
-  end
-
-  describe 'Shoes.p' do
-    it 'adds a debug to the log with an inspected object' do
-      Shoes.p 'message'
-      Shoes::LOG.should include ['debug', 'message'.inspect]
-    end
-
-    it 'also handles object the way they should be handled' do
-      Shoes.p []
-      Shoes::LOG.should include ['debug', '[]']
-    end
-  end
-
-  describe "info" do
-    before :each do
-      logger.stub(:info)
-      app.info("test")
-    end
-
-    it "sets Shoes::LOG" do
-      expect(Shoes::LOG).to eq([["info", "test"]])
-    end
-
-    it "sends message to logger" do
-      expect(logger).to have_received(:info)
-    end
-  end
-
-  describe "debug" do
-    before :each do
-      logger.stub(:debug)
-      app.debug("test")
-    end
-
-    it "sets Shoes::LOG" do
-      expect(Shoes::LOG).to eq([["debug", "test"]])
-    end
-
-    it "sends message to logger" do
-      expect(logger).to have_received(:debug)
-    end
-  end
-
-  describe "warn" do
-    before :each do
-      logger.stub(:warn)
-      app.warn("test")
-    end
-
-    it "sets Shoes::LOG" do
-      expect(Shoes::LOG).to eq([["warn", "test"]])
-    end
-
-    it "sends message to logger" do
-      expect(logger).to have_received(:warn)
-    end
-  end
-
-  describe "error" do
-    before :each do
-      logger.stub(:error)
-      app.error("test")
-    end
-
-    it "sets Shoes::LOG" do
-      expect(Shoes::LOG).to eq([["error", "test"]])
-    end
-
-    it "sends message to logger" do
-      expect(logger).to have_received(:error)
-    end
-  end
-end

data/spec/shoes/button_spec.rb

@@ -1,41 +0,0 @@
-require "shoes/spec_helper"
-
-describe Shoes::Button do
-  include_context "dsl app"
-  let(:input_opts) { {:left => left, :top => top, :width => width,
-                      :height => height, :margin => margin, :state => "disabled"} }
-
-  let(:left)   { 13 }
-  let(:top)    { 44 }
-  let(:width)  { 131 }
-  let(:height) { 137 }
-  let(:margin) { 14 }
-
-  subject(:button) { Shoes::Button.new(app, parent, "text", input_opts, input_block) }
-
-  it_behaves_like "movable object"
-  it_behaves_like "object with state"
-  it_behaves_like "object with dimensions"
-
-  it { should respond_to :click }
-  it { should respond_to :focus }
-
-  describe "initialize" do
-    its(:parent) { should eq(parent) }
-    its(:blk) { should eq(input_block) }
-    its(:text) { should eq("text") }
-    its(:width) { should eq(131) }
-    its(:height) { should eq(137) }
-    its(:state) { should eq("disabled") }
-  end
-
-  describe "relative dimensions" do
-    subject { Shoes::Button.new(app, parent, "text", relative_opts, input_block) }
-    it_behaves_like "object with relative dimensions"
-  end
-
-  describe "negative dimensions" do
-    subject { Shoes::Button.new(app, parent, "text", negative_opts, input_block) }
-    it_behaves_like "object with negative dimensions"
-  end
-end

data/spec/shoes/check_spec.rb

@@ -1,31 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Check do
-  include_context "dsl app"
-
-  subject { Shoes::Check.new(app, parent, input_opts, input_block) }
-
-  it_behaves_like "checkable"
-  it_behaves_like "object with state"
-
-  describe "dimensions" do
-    let(:left) { 10 }
-    let(:top) { 20 }
-    let(:width) { 100 }
-    let(:height) { 200 }
-    let(:input_opts){ {left: left, top: top, width: width, height: height} }
-    subject { Shoes::Check.new(app, parent, input_opts) }
-
-    it_behaves_like "object with dimensions"
-
-    describe "takes relative dimensions from parent" do
-      subject { Shoes::Check.new(app, parent, relative_opts) }
-      it_behaves_like "object with relative dimensions"
-    end
-
-    describe "negative dimensions" do
-      subject { Shoes::Check.new(app, parent, negative_opts) }
-      it_behaves_like "object with negative dimensions"
-    end
-  end
-end

data/spec/shoes/cli_spec.rb

@@ -1,16 +0,0 @@
-require 'spec_helper'
-require 'shoes/cli'
-
-describe Shoes::CLI do
-  subject {Shoes::CLI.new}
-
-  before :each do
-    subject.stub :package
-  end
-
-  it 'does not raise an error for a normal packaging command #624' do
-    expect do
-      subject.run ['-p', 'swt:app', 'test/simple-sound.rb']
-    end.not_to raise_error
-  end
-end

data/spec/shoes/color_spec.rb

@@ -1,396 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::Color do
-  describe ".create" do
-    let(:color) { Shoes::Color.new(40, 50, 60) }
-
-    it "accepts color" do
-      Shoes::Color.create(color).should eq(color)
-    end
-
-    it "accepts string" do
-      Shoes::Color.create("28323c").should eq(color)
-    end
-  end
-
-  shared_examples_for "black" do
-    its(:class) { should eq(Shoes::Color) }
-    its(:red) { should eq(0) }
-    its(:green) { should eq(0) }
-    its(:blue) { should eq(0) }
-    its(:hex) { should eq("#000000") }
-    it { should be_black }
-    it { should_not be_white }
-  end
-
-  shared_examples "color with bad arguments" do
-    it "raises ArgumentError" do
-      subject.should raise_error(ArgumentError)
-    end
-  end
-
-  context "with wrong number of arguments" do
-    subject { lambda { Shoes::Color.new(10, 10) } }
-    it_behaves_like "color with bad arguments"
-  end
-
-  context "with too many hex chars" do
-    subject { lambda { Shoes::Color.new("a1b2c3d") } }
-    it_behaves_like "color with bad arguments"
-  end
-
-  context "with too few hex chars" do
-    subject { lambda { Shoes::Color.new("a1") } }
-    it_behaves_like "color with bad arguments"
-  end
-
-  context "with invalid hex chars" do
-    subject { lambda { Shoes::Color.new("#g01234") } }
-    it_behaves_like "color with bad arguments"
-  end
-
-  context "hex" do
-    let(:rgb) { Shoes::Color.new(0, 0, 0, 255) }
-
-    context "with '#000000'" do
-      subject { Shoes::Color.new("#000000") }
-      it { should eq(rgb) }
-    end
-
-    context "with '000000'" do
-      subject { Shoes::Color.new("000000") }
-      it { should eq(rgb) }
-    end
-
-    context "with '000'" do
-      subject { Shoes::Color.new("000") }
-      it { should eq(rgb) }
-    end
-
-    context "with '#000'" do
-      subject { Shoes::Color.new("#000") }
-      it { should eq(rgb) }
-    end
-
-    context "with '#FFF'" do
-      let(:rgb) { Shoes::Color.new(255, 255, 255) }
-      subject { Shoes::Color.new("#FFF") }
-      it { should eq(rgb) }
-    end
-
-    context "with '#fff'" do
-      let(:rgb) { Shoes::Color.new(255, 255, 255) }
-      subject { Shoes::Color.new("#fff") }
-      it { should eq(rgb) }
-    end
-  end
-
-  context "rgb" do
-    context "black" do
-      context "with optional alpha" do
-        subject { Shoes::Color.new(0, 0, 0, 0) }
-        it_behaves_like "black"
-        its(:alpha) { should eq(0) }
-      end
-
-      context "without optional alpha" do
-        subject { Shoes::Color.new(0, 0, 0) }
-        it_behaves_like "black"
-        its(:alpha) { should eq(255) }
-      end
-
-      context "using floats" do
-        context "with optional alpha" do
-          subject { Shoes::Color.new(0.0, 0.0, 0.0, 0.0) }
-          it_behaves_like "black"
-          its(:alpha) { should eq(0) }
-        end
-
-        context "without optional alpha" do
-          subject { Shoes::Color.new(0.0, 0.0, 0.0) }
-          it_behaves_like "black"
-          its(:alpha) { should eq(255) }
-        end
-      end
-    end
-
-    context "white" do
-      subject { Shoes::Color.new(255, 255, 255) }
-      it { should be_white }
-      it { should_not be_black }
-    end
-
-    context "peru" do
-      shared_examples_for "peru" do
-        its(:class) { should eq(Shoes::Color) }
-        its(:red) { should eq(205) }
-        its(:green) { should eq(133) }
-        its(:blue) { should eq(63) }
-        it { should_not be_black }
-        it { should_not be_white }
-      end
-
-      context "with optional alpha" do
-        subject { Shoes::Color.new(205, 133, 63, 100) }
-        it_behaves_like("peru")
-        its(:alpha) { should eq(100) }
-      end
-
-      context "without optional alpha" do
-        subject { Shoes::Color.new(205, 133, 63) }
-        it_behaves_like("peru")
-        its(:alpha) { should eq(255) }
-      end
-
-      context "using floats" do
-        let(:red) { 0.805 }
-        let(:green) { 0.52 }
-        let(:blue) { 0.248 }
-        let(:alpha) { 0.392 }
-
-        context "with optional alpha" do
-          subject { Shoes::Color.new(red, green, blue, alpha) }
-          it_behaves_like "peru"
-          its(:alpha) { should eq(100) }
-        end
-
-        context "without optional alpha" do
-          subject { Shoes::Color.new(red, green, blue) }
-          it_behaves_like "peru"
-          its(:alpha) { should eq(255) }
-        end
-      end
-    end
-
-    describe "light and dark" do
-      let(:lightgreen) { Shoes::Color.new(144, 238, 144) }
-      let(:darkgreen) { Shoes::Color.new(0, 100, 0) }
-      let(:mediumseagreen) { Shoes::Color.new(60, 179, 113) }
-
-      specify "light color is light" do
-        lightgreen.should be_light
-        mediumseagreen.should_not be_light
-        darkgreen.should_not be_light
-      end
-
-      specify "dark color is dark" do
-        lightgreen.should_not be_dark
-        mediumseagreen.should_not be_dark
-        darkgreen.should be_dark
-      end
-    end
-
-    describe "transparency" do
-      let(:transparent) { Shoes::Color.new(25, 25, 112, 0) }
-      let(:semi) { Shoes::Color.new(25, 25, 112, 100) }
-      let(:opaque) { Shoes::Color.new(25, 25, 25) }
-
-      specify "only transparent colors are transparent" do
-        transparent.should be_transparent
-        semi.should_not be_transparent
-        opaque.should_not be_transparent
-      end
-
-      specify "only opaque colors should be opaque" do
-        transparent.should_not be_opaque
-        semi.should_not be_opaque
-        opaque.should be_opaque
-      end
-    end
-
-    describe "comparable" do
-      let(:color_1) { Shoes::Color.new(255, 69, 0) }
-      let(:red) {Shoes::Color.new 255, 0, 0}
-      let(:green) {Shoes::Color.new 0, 255, 0}
-
-      it "is equal when values are equal" do
-        color_2 = Shoes::Color.new(255, 69, 0)
-        color_1.should eq(color_2)
-      end
-
-      it "is less than when darker" do
-        color_2 = Shoes::Color.new(255, 70, 0)
-        color_1.should be < color_2
-      end
-
-      it "is greater than when lighter" do
-        color_2 = Shoes::Color.new(255, 68, 0)
-        color_1.should be > color_2
-      end
-
-      it 'does not claim for full red and full green to be equal' do
-        expect(red).not_to eq green
-      end
-
-      it 'claims that a color is the same as itself' do
-        expect(green).to eq green
-      end
-
-      context "same rgb values" do
-        let(:color_2) { Shoes::Color.new(255, 69, 0, 254) }
-        it "is less than when less opaque" do
-          color_2.should be < color_1
-        end
-
-        it "is greater than when more opaque" do
-          color_1.should be > color_2
-        end
-      end
-    end
-  end
-end
-
-describe "Shoes built-in colors" do
-  class MockApp
-    include Shoes::DSL
-  end
-
-  subject { MockApp.new }
-
-  its(:papayawhip) { should eq(Shoes::Color.new(255, 239, 213)) }
-  its(:aquamarine) { should eq(Shoes::Color.new(127, 255, 212)) }
-  its(:tomato) { should eq(Shoes::Color.new(255, 99, 71)) }
-end
-
-describe "Shoes built in gray" do
-  let(:app) { Shoes::App.new }
-
-  it "creates a dsl method for gray" do
-    app.should respond_to(:gray)
-  end
-
-  specify "gray with no parameters is [128, 128, 128, OPAQUE]" do
-    app.gray.should eq(Shoes::Color.new(128, 128, 128))
-  end
-
-  specify "single parameter specifies the gray level" do
-    app.gray(64).should eq(Shoes::Color.new(64, 64, 64))
-  end
-
-  specify "two parameters specifies the gray level and opacity" do
-    app.gray(13, 57).should eq(Shoes::Color.new(13, 13, 13, 57))
-  end
-
-  specify "float parameters should be normalised" do
-    app.gray(1.0, 0.5).should eq(Shoes::Color.new( 255, 255, 255, 128 ))
-  end
-
-  it 'hangles 0.93 right as well' do
-    result_93 = (0.93 * 255).to_i
-    expect(app.gray(0.93)).to eq(Shoes::Color.new(result_93, result_93, result_93))
-  end
-
-  it 'also has a grey alias for our BE friends' do
-    expect(app).to respond_to :grey
-  end
-end
-
-# Differences between this implementation and Red Shoes
-describe "differences from Red Shoes" do
-  let(:white) { Shoes::Color.new(255, 255, 255) }
-  let(:transparent_black) { Shoes::Color.new(0, 0, 0, 0) }
-
-  context "integers" do
-    specify "too-large values become 255" do
-      Shoes::Color.new(256, 256, 256, 256).should eq(white)
-    end
-
-    specify "too-small values become 0" do
-      Shoes::Color.new(-1, -1, -1, -1).should eq(transparent_black)
-    end
-  end
-
-  context "floats" do
-    specify "too-large values become 255" do
-      Shoes::Color.new(1.1, 1.1, 1.1, 1.1).should eq(white)
-    end
-
-    specify "too-small values become 0" do
-      Shoes::Color.new(-0.1, -0.1, -0.1, -0.1).should eq(transparent_black)
-    end
-  end
-
-  # These specifications describe how this implementation differs from Red Shoes.
-  # These are examples of what Red Shoes _does_ do, and what this implementation
-  # _does not_ do.
-  describe "unusual input" do
-    let(:baseline) { Shoes::Color.new(50, 0, 200) }
-
-    describe "too-large values" do
-      specify "red does not get modulo-256'd into bounds" do
-        Shoes::Color.new(306, 0, 200).should_not eq(baseline)
-        Shoes::Color.new(1.197, 0, 200).should_not eq(baseline)
-      end
-
-      specify "green does not get modulo-256'd into bounds" do
-        Shoes::Color.new(50, 256, 200).should_not eq(baseline)
-        Shoes::Color.new(50, 2.005, 200).should_not eq(baseline)
-      end
-
-      specify "blue does not get modulo-256'd into bounds" do
-        Shoes::Color.new(50, 0, 456).should_not eq(baseline)
-        Shoes::Color.new(50, 0, 2.7913137254902).should_not eq(baseline)
-      end
-    end
-
-    describe "negative values" do
-      specify "-1 does not become 255" do
-        Shoes::Color.new(-1, -1, -1, -1).should_not eq(Shoes::Color.new(255, 255, 255))
-      end
-
-      specify "256 and neighbors" do
-        Shoes::Color.new(-256, -255, -257).should_not eq(Shoes::Color.new(0, 1, 255))
-      end
-
-      specify "float behaviour" do
-        Shoes::Color.new(-1.0, -0.5, -0.0).should_not eq(Shoes::Color.new(0, 128, 1))
-      end
-    end
-
-    describe "edge cases" do
-      specify "0.0 does not become 1" do
-        Shoes::Color.new(0.0, 0.0, 0.0).should_not eq(Shoes::Color.new(1, 1, 1))
-      end
-
-      specify "1.0 does not become 0" do
-        Shoes::Color.new(1.0, 1.0, 1.0).should_not eq(Shoes::Color.new(0, 0, 0))
-      end
-    end
-  end
-end
-
-describe Shoes::Color::DSLHelpers do
-  class ColorDSLHelperTest
-    include Shoes::Color::DSLHelpers
-  end
-
-  subject {ColorDSLHelperTest.new}
-
-  describe '#pattern' do
-    it 'creates an image pattern when fed a string for which a file exists' do
-      File.stub(exist?: true)
-      my_path = '/some/path/to/image.png'
-      image_pattern = subject.pattern(my_path)
-      expect(image_pattern.path).to eq my_path
-    end
-
-    it 'raises an argument error for bad input like a single number' do
-      expect {subject.pattern(1)}.to raise_error(ArgumentError)
-    end
-
-    it 'creates a gradient given 2 arguments' do
-      expect(subject).to receive(:gradient)
-      subject.pattern([10, 10, 10], [30, 30, 30])
-    end
-  end
-
-  describe '#gradient' do
-    it 'raises an argument error for no arguments supplied' do
-      expect{subject.gradient}.to raise_error ArgumentError
-    end
-
-    it 'raises an argument error for too many (> 2) args supplied' do
-      expect{subject.gradient 1, 2, 3}.to raise_error ArgumentError
-    end
-  end
-end