shoes-dsl 4.0.0.pre2

data/spec/shoes/star_spec.rb

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

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

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

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

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