shoes-swt 4.0.0.pre2 → 4.0.0.pre3

data/spec/shoes/star_spec.rb

@@ -1,31 +0,0 @@
-require 'shoes/spec_helper'
-
-shared_examples_for "basic star" do
-  it "retains app" do
-    expect(subject.app).to eq(app)
-  end
-
-  it "creates gui object" do
-    expect(subject.gui).not_to be_nil
-  end
-end
-
-describe Shoes::Star do
-  include_context "dsl app"
-
-  let(:left) { 44 }
-  let(:top) { 66 }
-  let(:width) { 100 }
-  let(:height) { 100 }
-
-  subject { Shoes::Star.new(app, parent, left, top, 5, 50, 30) }
-
-  it_behaves_like "basic star"
-  it_behaves_like "object with style" do
-    let(:subject_without_style) { Shoes::Star.new(app, parent, left, top, 5, 50, 30) }
-    let(:subject_with_style) { Shoes::Star.new(app, parent, left, top, 5, 50, 30, arg_styles) }
-  end
-  it_behaves_like "object with dimensions"
-  it_behaves_like "movable object"
-  it_behaves_like 'object with parent'
-end

data/spec/shoes/text_block_dimensions_spec.rb

@@ -1,75 +0,0 @@
-require 'shoes/spec_helper'
-
-describe Shoes::TextBlockDimensions do
-  let(:left)   { 0 }
-  let(:top)    { 10 }
-  let(:width)  { 5 }
-  let(:height) { 10 }
-
-  let(:old_dimension) { Shoes::Dimensions.new(nil, left, top, width, height) }
-  subject             { Shoes::TextBlockDimensions.new(nil, left, top, width, height) }
-
-  before(:each) do
-    old_dimension.absolute_left = subject.absolute_left = 0
-    old_dimension.absolute_top  = subject.absolute_top  = 0
-  end
-
-  describe "positions" do
-    it "inherits from base" do
-      expect(subject.absolute_right).to eq(old_dimension.absolute_right)
-      expect(subject.absolute_bottom).to eq(old_dimension.absolute_bottom)
-    end
-
-    it "overrides absolute right" do
-      subject.absolute_right = 200
-      expect(subject.absolute_right).to eq(200)
-    end
-
-    it "overrides absolute bottom" do
-      subject.absolute_bottom = 200
-      expect(subject.absolute_bottom).to eq(200)
-    end
-  end
-
-  describe "calculated sizes" do
-    it "inherits from base" do
-      expect(subject.width).to  eq(5)
-      expect(subject.height).to eq(10)
-    end
-
-    it "override with calculated width" do
-      subject.width = nil
-      subject.calculated_width = 200
-      expect(subject.width).to eq(200)
-    end
-
-    it "override with calculated height" do
-      subject.height = nil
-      subject.calculated_height = 200
-      expect(subject.height).to eq(200)
-    end
-  end
-
-  describe "containing width" do
-    it "uses immediate width if it can" do
-      expect(subject.containing_width).to eq(5)
-    end
-
-    it "applies margins" do
-      subject.margin = 1
-      expect(subject.containing_width).to eq(3)
-    end
-
-    describe "with parent" do
-      let(:parent) { double('parent', element_width: 100,
-                            x_dimension: double("x"),
-                            y_dimension: double("y")) }
-      subject { Shoes::TextBlockDimensions.new(parent, left, top, nil, height) }
-
-      it "delegates to parent if no width of its own" do
-        expect(subject.containing_width).to eq(100)
-      end
-    end
-
-  end
-end

data/spec/shoes/text_block_spec.rb

@@ -1,270 +0,0 @@
-require 'shoes/spec_helper'
-require 'shoes/helpers/sample17_helper'
-
-describe Shoes::TextBlock do
-  include_context "dsl app"
-
-  let(:text_link) { Shoes::Link.new(app, parent, ['Hello']) }
-  let(:text) { [text_link, ", world!"] }
-  subject(:text_block) { Shoes::TextBlock.new(app, parent, text, {app: app}) }
-
-  it_behaves_like "object with style" do
-    let(:subject_without_style) { Shoes::TextBlock.new(app, parent, text) }
-    let(:subject_with_style) { Shoes::TextBlock.new(app, parent, text, arg_styles) }
-  end
-
-  describe "initialize" do
-    it "creates gui object" do
-      expect(text_block.gui).not_to be_nil
-    end
-  end
-
-  describe "text" do
-    context "with an array of [Shoes::Link, String]" do
-      it "sets text" do
-        expect(text_block.text).to eq "Hello, world!"
-      end
-
-      it "changes the text" do
-        text_block.text = "Goodbye Cruel World"
-        expect(text_block.text).to eq "Goodbye Cruel World"
-      end
-    end
-
-    context "with a single string" do
-      let(:text) { "Hello, world!" }
-
-      it "sets text" do
-        expect(text_block.text).to eq "Hello, world!"
-      end
-
-      it "changes the text" do
-        text_block.text = "Goodbye Cruel World"
-        expect(text_block.text).to eq "Goodbye Cruel World"
-      end
-    end
-  end
-
-  describe "#to_s" do
-    it "is the same as #text" do
-      text = text_block.text
-      expect(text_block.to_s).to eq(text)
-    end
-  end
-
-  describe "#replace" do
-    it "replaces text" do
-      text_block.replace "Goodbye Cruel World"
-      expect(text_block.text).to eq("Goodbye Cruel World")
-    end
-
-    it "allows two arguments" do
-      text_block.replace "Goodbye Cruel World, ", text_link
-      expect(text_block.text).to eq("Goodbye Cruel World, Hello")
-    end
-
-    it "updates contents" do
-      text_block.replace("Later Gator")
-      expect(text_block.contents).to eq(["Later Gator"])
-    end
-
-    it "updates text styles" do
-      text_block.replace "Later Gator"
-      expect(text_block.text_styles).to be_empty
-    end
-  end
-
-  describe "#contents" do
-    it "returns text elements" do
-      expect(text_block.contents).to eql([text_link, ", world!"])
-    end
-  end
-
-  describe "font" do
-    let(:text_block) { Shoes::TextBlock.new(app, parent, ["Hello, world!"], style) }
-
-    context "with defaults" do
-      let(:style) { Hash.new }
-
-      it "sets the default font to Arial" do
-        expect(text_block.font).to eq "Arial"
-      end
-    end
-
-    context "with a font family string" do
-      let(:style) { { font: "Helvetica" } }
-
-      it "sets the font family" do
-        expect(text_block.font).to eq "Helvetica"
-      end
-    end
-
-    context "with a font family string and size with 'px'" do
-      let(:style) { { font: "Helvetica 33px" } }
-
-      it "sets the font family" do
-        expect(text_block.font).to eq "Helvetica"
-      end
-
-      it "sets the font size" do
-        expect(text_block.size).to eq 33
-      end
-    end
-
-    context "with a font family string and size with ' px'" do
-      let(:style) { { font: "Helvetica 33 px" } }
-
-      it "sets the font family" do
-        expect(text_block.font).to eq "Helvetica"
-      end
-
-      it "sets the font size" do
-        expect(text_block.size).to eq 33
-      end
-    end
-
-    context "with a quoted font family string and size with 'px'" do
-      let(:style) { { font: '"Comic Sans" 13px' } }
-
-      it "sets the font family" do
-        expect(text_block.font).to eq "Comic Sans"
-      end
-
-      it "sets the size" do
-        expect(text_block.size).to eq 13
-      end
-    end
-  end
-
-  describe "stroke" do
-    it "should accept a hex code" do
-      s = Shoes::TextBlock.new(app, parent, ["Hello, world!"], { stroke: "#fda", app: app })
-      color = s.style[:stroke]
-      expect(color.red).to eql 255
-      expect(color.green).to eql 221
-      expect(color.blue).to eql 170
-    end
-  end
-
-  describe "width" do
-    before(:each) do
-      allow(parent).to receive(:element_width) { 300 }
-      allow(parent).to receive(:absolute_left) { 0 }
-    end
-
-    context "when not explicitly set" do
-      subject(:text_block) { Shoes::TextBlock.new(app, parent, ["text"]) }
-
-      it "delegates to calculated width" do
-        subject.calculated_width = 240
-        expect(subject.width).to eql 240
-      end
-
-      it "delegates to calculated height" do
-        subject.calculated_height = 240
-        expect(subject.height).to eql 240
-      end
-
-      it "bases desired width off parent" do
-        subject.absolute_left = 20
-        expect(subject.desired_width).to eql 280
-      end
-
-      it "can base desired off explicit containing width" do
-        subject.absolute_left = 20
-        expect(subject.desired_width(1000)).to eql(980)
-      end
-    end
-
-    context "when explicitly set" do
-      subject(:text_block) { Shoes::TextBlock.new(app, parent, ["text"], { width: 120 }) }
-
-      it "gets returned" do
-        expect(subject.width).to eql 120
-      end
-
-      it "is used for desired width" do
-        subject.absolute_left = 20
-        expect(subject.desired_width).to eql 100
-      end
-    end
-
-  end
-
-  context "cursor management" do
-    let(:textcursor) { double("textcursor") }
-
-    before(:each) do
-      allow(app).to receive(:textcursor) { textcursor }
-    end
-
-    it "creates a textcursor" do
-      expect(subject.textcursor).to eq(textcursor)
-      expect(app).to have_received(:textcursor)
-    end
-
-    it "only creates textcursor" do
-      original = subject.textcursor
-      allow(app).to receive(:textcursor) { double("new cursor") }
-
-      expect(subject.textcursor).to eq(original)
-      expect(app).to have_received(:textcursor).once
-    end
-  end
-
-  context "with empty subelements" do
-    let!(:link) { actual_app.link('') }
-    let!(:span) { actual_app.span('') }
-    let!(:para) { actual_app.para(link, span) }
-    let(:actual_app) { app.app }
-
-    it "properly ignores empty element lengths in text_styles" do
-      text_styles = { 0...0 => [link, span] }
-
-      expect(para.text_styles).to eq(text_styles)
-    end
-  end
-
-  # Emulates samples/sample17.rb
-  #
-  #   Shoes.app width: 240, height: 95 do
-  #     para 'Testing, test, test. ',
-  #       strong('Breadsticks. '),
-  #       em('Breadsticks. '),
-  #       code('Breadsticks. '),
-  #       bg(fg(strong(ins('EVEN BETTER.')), white), rgb(255, 0, 192)),
-  #       sub('fine!')
-  #   end
-  #
-  context "with nested text fragments" do
-    let(:helper) {Sample17Helper.new(app)}
-    let!(:para) { helper.create_para }
-
-    it "has full text of fragments" do
-      expect(para.text).to eq("Testing, test, test. Breadsticks. Breadsticks. Breadsticks. EVEN BETTER.fine!")
-    end
-
-    it "has fragment styles" do
-      text_styles = {
-                     21..33 => [helper.strong_breadsticks],
-                     34..46 => [helper.em],
-                     47..59 => [helper.code],
-                     60..71 => [helper.bg, helper.fg, helper.strong, helper.ins],
-                     72..76 => [helper.sub]
-                    }
-      expect(para.text_styles).to eq(text_styles)
-    end
-
-    it 'sets the parent_text of the non nested texts to the para' do
-      expect(helper.strong_breadsticks.parent_text).to eq para
-    end
-
-    it 'sets the parent_text of nested fragments correctly' do
-      expect(helper.ins.parent_text).to eq helper.strong
-    end
-
-    it 'lets the nested text fragements know what their text block is' do
-      expect(helper.ins.text_block).to eq para
-    end
-  end
-end

data/spec/shoes/url_spec.rb

@@ -1,68 +0,0 @@
-require 'shoes/spec_helper'
-
-describe 'Shoes.url' do
-  let(:klazz) do
-    Class.new(Shoes) do
-      include RSpec::Matchers
-
-      url '/', :index
-      url '/path', :path
-      url '/number/(\d+)', :number
-      url '/foo', :foo
-      url '/visit_me', :visit_me
-
-      def index
-      end
-
-      def path
-      end
-
-      def number(i)
-      end
-
-      def foo
-        some_method
-      end
-
-      def visit_me
-        expect(location).to eq '/visit_me'
-      end
-
-      def some_method
-      end
-    end
-  end
-
-  subject do
-    Shoes.app
-  end
-
-  it "should call index upon startup" do
-    expect_any_instance_of(klazz).to receive(:index)
-    subject
-  end
-
-  it 'should receive path when visitting path' do
-    expect_any_instance_of(klazz).to receive(:path)
-    Shoes.app do visit '/path' end
-  end
-
-  it 'handles the arguments given in the regexes' do
-    expect_any_instance_of(klazz).to receive(:number).with('7')
-    Shoes.app do visit '/number/7' end
-  end
-
-  it 'can call methods defined in the URL class when visitting a URL' do
-    expect_any_instance_of(klazz).to receive(:some_method)
-    Shoes.app do visit '/foo' end
-  end
-
-  it 'has a location method that returns the current URL' do
-    Shoes.app do visit('/visit_me') end
-  end
-
-  it 'instances report class as klazz (regression, do not ask...)' do
-    expect(klazz.new.class).to eq klazz
-  end
-
-end

data/spec/shoes/widget_spec.rb

@@ -1,70 +0,0 @@
-require 'shoes/spec_helper'
-
-class Smile < Shoes::Widget
-  def initialize(caption)
-    banner caption
-  end
-end
-
-class Face < Shoes::Widget
-  def initialize
-    para  "Hair"
-    smile "Toothsome"
-  end
-end
-
-describe Shoes::Widget do
-  let(:app) { Shoes::App.new }
-
-  it "creates dsl method on App" do
-    expect(app).to respond_to(:smile)
-  end
-
-  it "generates instances of its subclass" do
-    expect(app.smile("Cheese!")).to be_instance_of(Smile)
-  end
-
-  it "passes missing methods to app" do
-    expect(app).to receive(:banner).with("Pickles!")
-    app.smile("Pickles!")
-  end
-
-  it 'sets the current slot as the parent' do
-    slot = nil
-    widget = nil
-    Shoes.app do
-      slot = instance_variable_get(:@__app__).current_slot
-      widget = smile 'lalala'
-    end
-    expect(widget.parent).to eq slot
-  end
-
-  it "allows can use other widgets from widget initialize" do
-    expect(app).to receive(:smile)
-    app.face
-  end
-
-  describe 'together with the URL sub system' do
-    let!(:klazz) do
-      Class.new(Shoes) do
-        include RSpec::Matchers
-
-        url '/', :check_smile
-        url '/smile', :smile
-
-        def check_smile
-          expect(self).to respond_to :smile
-        end
-      end
-    end
-
-    it 'responds to widget defined methods like smile' do
-      Shoes.app
-    end
-
-    it 'really smiles' do
-      expect_any_instance_of(Smile).to receive(:initialize)
-      Shoes.app do visit '/smile' end
-    end
-  end
-end