shoes-core 4.0.0.pre3

data/spec/shoes/image_spec.rb

@@ -0,0 +1,68 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Image do
+  include_context "dsl app"
+
+  describe "basic" do
+    let(:left) { 10 }
+    let(:top) { 20 }
+    let(:width) { 100 }
+    let(:height) { 200 }
+
+    let(:filename) { File.expand_path "../../../static/shoes-icon.png", __FILE__ }
+    let(:updated_filename) { File.expand_path "../../../static/shoes-icon-brown.png", __FILE__ }
+
+    subject(:image) { Shoes::Image.new(app, parent, filename, left: left, top: top, width: width, height: height) }
+
+    it { is_expected.to be_instance_of(Shoes::Image) }
+
+    it "should update image path" do
+      subject.path = updated_filename
+      expect(subject.path).to eq(updated_filename)
+    end
+
+    it_behaves_like "movable object"
+    it_behaves_like "object with dimensions"
+
+    it_behaves_like "object with style" do
+      let(:subject_without_style) { Shoes::Image.new(app, parent, filename) }
+      let(:subject_with_style) { Shoes::Image.new(app, parent, filename, arg_styles) }
+    end
+
+    describe "relative dimensions from parent" do
+      subject { Shoes::Image.new(app, parent, filename, relative_opts) }
+      it_behaves_like "object with relative dimensions"
+    end
+
+    describe "negative dimensions" do
+      subject { Shoes::Image.new(app, parent, filename, negative_opts) }
+      it_behaves_like "object with negative dimensions"
+    end
+  end
+
+  describe 'file source' do
+    subject { Shoes::Image.new(app, parent, filename, input_opts) }
+
+    context 'invalid path' do
+      let(:filename) { 'something_crazy' }
+      it 'should raise an error' do
+        expect { subject }.to raise_error Shoes::FileNotFoundError
+      end
+    end
+
+    context 'absolute path' do
+      let(:filename) { File.expand_path "../../../static/shoes-icon.png", __FILE__ }
+      its(:file_path) { should eq filename }
+    end
+
+    context 'relative path' do
+      let(:filename) { 'shoes-core/static/shoes-icon.png' }
+      its(:file_path) { should eq "#{Dir.pwd}/#{filename}" }
+    end
+
+    describe 'accepts web URL' do
+      let(:filename) { "http://is.gd/GVAGF7" }
+      its(:file_path) { should eq("http://is.gd/GVAGF7") }
+    end
+  end
+end

data/spec/shoes/input_box_spec.rb

@@ -0,0 +1,80 @@
+require 'shoes/spec_helper'
+
+describe Shoes::InputBox do
+  include_context "dsl app"
+  let(:input_opts) {{left: left, top: top, width: width, height: height}}
+  let(:left) { 10 }
+  let(:top) { 20 }
+  let(:width) { 100 }
+  let(:height) { 200 }
+  let(:text) { "the text" }
+
+  # EditBox is an InputBox but InputBox is never instantiated itself
+  # And there are problems in the backend due to option settings
+  subject { Shoes::EditBox.new(app, parent, text, input_opts, input_block) }
+
+  it_behaves_like "object with dimensions"
+
+  it_behaves_like "object with style" do
+    let(:subject_without_style) { Shoes::EditBox.new(app, parent, text) }
+    let(:subject_with_style) { Shoes::EditBox.new(app, parent, text, arg_styles) }
+  end
+
+  it_behaves_like "movable object"
+  it_behaves_like "an element that can respond to change"
+  it_behaves_like "object with state"
+
+  it { is_expected.to respond_to :focus }
+  it { is_expected.to respond_to :text  }
+  it { is_expected.to respond_to :text= }
+
+  it 'forwards calls to highlight_text to the backend' do
+    expect(subject.gui).to receive(:highlight_text).with(4, 20)
+    subject.highlight_text 4, 20
+  end
+
+  it 'forwards calls to caret_to to the backend' do
+    expect(subject.gui).to receive(:caret_to).with(42)
+    subject.caret_to 42
+  end
+
+  describe 'non string text' do
+    let(:text) {42}
+
+    it 'is converted to a string (convenience + error in backend)' do
+      expect(subject.text).to eq '42'
+    end
+  end
+
+  describe "relative dimensions from parent" do
+    subject { Shoes::EditBox.new(app, parent, text, relative_opts) }
+    it_behaves_like "object with relative dimensions"
+  end
+
+  describe "negative dimensions" do
+    subject { Shoes::EditBox.new(app, parent, text, negative_opts) }
+    it_behaves_like "object with negative dimensions"
+  end
+
+  describe Shoes::EditLine do
+    describe "secret" do
+      subject { Shoes::EditLine.new(app, parent, text, secret: true) }
+
+      it "gets initialized" do
+        expect(subject.secret).to eq(true)
+        expect(subject.secret?).to eq(true)
+      end
+
+      it "respects setting" do
+        subject.secret = false
+        expect(subject.secret).to eq(false)
+        expect(subject.secret?).to eq(false)
+      end
+
+      it_behaves_like "object with style" do
+        let(:subject_without_style) { Shoes::EditLine.new(app, parent, text) }
+        let(:subject_with_style) { Shoes::EditLine.new(app, parent, text, arg_styles) }
+      end
+    end
+  end
+end

data/spec/shoes/integration_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+# also for stuff that is hard/brittle to test in isolation
+describe 'Integration specs' do
+  describe 'hover & leave' do
+
+    # that #hover and #leave are called with @__app__.current_slot is hard to
+    # test since therefore there needs to be a current slot which is only during
+    # block execution, stubbing it seems fairly brittle and dependent on
+    # internal structure, see #603
+    it 'does not raise an error' do
+      expect do
+        Shoes.app do
+          hover {}
+          leave {}
+        end
+      end.not_to raise_error
+    end
+  end
+end

data/spec/shoes/internal_app_spec.rb

@@ -0,0 +1,141 @@
+require 'shoes/spec_helper'
+
+describe Shoes::InternalApp do
+  include_context "dsl app"
+
+  subject { app }
+
+  describe "#initialize" do
+    context "with defaults" do
+      let(:defaults) { Shoes::InternalApp::DEFAULT_OPTIONS }
+
+      it "sets title", :qt do
+        expect(subject.app_title).to eq defaults[:title]
+      end
+
+      it "is resizable", :qt do
+        expect(subject.resizable).to be_truthy
+      end
+
+      it "sets width" do
+        expect(subject.width).to eq(defaults[:width])
+      end
+
+      it "sets height" do
+        expect(subject.height).to eq(defaults[:height])
+      end
+
+      it "does not start as fullscreen" do
+        expect(subject.start_as_fullscreen?).to be_falsey
+      end
+    end
+
+    context "with custom opts" do
+      let(:input_opts) { {:width => 150, :height => 2, :title => "Shoes::App Spec", :resizable => false} }
+
+      it "sets title", :qt do
+        expect(subject.app_title).to eq input_opts[:title]
+      end
+
+      it "sets resizable", :qt do
+        expect(subject.resizable).to be_falsey
+      end
+
+      it "sets width" do
+        expect(subject.width).to eq(input_opts[:width])
+      end
+
+      it "sets height" do
+        expect(subject.height).to eq(input_opts[:height])
+      end
+    end
+  end
+
+  describe 'fullscreen' do
+    let(:input_opts) { {:fullscreen => true} }
+
+    it "sets fullscreen" do
+      expect(subject.start_as_fullscreen?).to be_truthy
+    end
+  end
+
+  describe '#contents' do
+    it 'delegates to top_slot' do
+      expect(subject.contents).to be(subject.top_slot.contents)
+    end
+  end
+
+  describe '#clear' do
+    context 'when called after the initial input block' do
+      let(:input_block) {
+        Proc.new do
+          para "CONTENT"
+          para "JUST FOR TESTING"
+        end
+      }
+
+      before :each do
+        expect(subject.contents.size).to eq(2)
+      end
+
+      it 'clears top_slot' do
+        subject.clear
+        expect(subject.contents).to be_empty
+      end
+    end
+
+    context 'when called in the initial input_block' do
+      let(:input_block) {
+        Proc.new do
+          para 'Hello there'
+          clear do
+            para 'see you'
+          end
+        end
+      }
+
+      it 'does not raise an error' do
+        expect {subject}.not_to raise_error
+      end
+
+      context 'when called inside a slot' do
+        let(:input_block) {
+          Proc.new do
+            button 'I am here'
+            stack do
+              button 'Hi there'
+              button 'Another one'
+              clear
+            end
+          end
+        }
+
+        it 'does not delete the slot, or an element outside the slot' do
+          expect(subject.contents.size).to eq 2
+        end
+      end
+    end
+
+    context 'when called before a button in an initial input block' do
+      let(:input_block) {
+        Proc.new do
+          clear
+          button 'My Button'
+        end
+      }
+
+      it 'allows a button to be created' do
+        expect(subject.contents.size).to eq(1)
+      end
+
+      describe 'the button' do
+        let(:button) { subject.contents.first }
+
+        it 'has the top_slot as its parent' do
+          expect(button.parent).to eq subject.top_slot
+        end
+      end
+    end
+
+  end
+end

data/spec/shoes/keypress_spec.rb

@@ -0,0 +1,11 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Keypress do
+  include_context "dsl app"
+
+  subject(:keypress) { Shoes::Keypress.new app, &input_block }
+
+  it "should clear" do
+    expect(keypress).to respond_to(:remove)
+  end
+end

data/spec/shoes/keyrelease_spec.rb

@@ -0,0 +1,12 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Keyrelease do
+  include_context "dsl app"
+
+  subject(:keyrelease) { Shoes::Keyrelease.new app, &input_block }
+
+  it "should clear" do
+    expect(keyrelease).to respond_to(:remove)
+  end
+
+end

data/spec/shoes/line_spec.rb

@@ -0,0 +1,87 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Line do
+  include_context "dsl app"
+
+  describe "basic" do
+    let(:left) { 20 }
+    let(:top) { 23 }
+    let(:width) { 280 }
+    let(:height) { 407 }
+
+    subject { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430), input_opts) }
+    it_behaves_like "movable object"
+    it_behaves_like "object with style" do
+      let(:subject_without_style) { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430)) }
+      let(:subject_with_style) { Shoes::Line.new(app, parent, Shoes::Point.new(left, top), Shoes::Point.new(300, 430), arg_styles) }
+    end
+    it_behaves_like "object with dimensions"
+    it_behaves_like 'object with parent'
+  end
+
+  context "line with point a at leftmost, topmost" do
+    subject { Shoes::Line.new(app, app, Shoes::Point.new(10, 15), Shoes::Point.new(100, 60), input_opts) }
+    its(:left)   { should eq(10) }
+    its(:top)    { should eq(15) }
+    its(:right)  { should eq(100) }
+    its(:bottom) { should eq(60) }
+    its(:width)  { should eq(90) }
+    its(:height) { should eq(45) }
+  end
+
+  context "specified right-to-left, top-to-bottom" do
+    subject { Shoes::Line.new(app, app, Shoes::Point.new(100, 60), Shoes::Point.new(10, 15), input_opts) }
+    its(:left)   { should eq(100) }
+    its(:top)    { should eq(60) }
+    its(:right)  { should eq(10) }
+    its(:bottom) { should eq(15) }
+    its(:width)  { should eq(-90) }
+    its(:height) { should eq(-45) }
+  end
+
+  context "setting dimensions" do
+    subject { Shoes::Line.new(app, app, Shoes::Point.new(100, 100), Shoes::Point.new(200, 200), input_opts) }
+
+    it "moves point a with left and top" do
+      subject.left -= 100
+      subject.top  -= 100
+      expect(subject.point_a).to eq(Shoes::Point.new(0, 0))
+    end
+
+    it "moves point a even when it's not leftmost or topmost" do
+      2.times do
+        subject.left += 100
+        subject.top += 100
+      end
+
+      expect(subject.point_a).to eq(Shoes::Point.new(300, 300))
+    end
+
+    it "moves point a with right and bottom" do
+      subject.right  += 100
+      subject.bottom += 100
+      expect(subject.point_b).to eq(Shoes::Point.new(300, 300))
+    end
+
+    it "moves point b even when it's not rightmost or bottommost" do
+      2.times do
+        subject.right  -= 100
+        subject.bottom -= 100
+      end
+
+      expect(subject.point_b).to eq(Shoes::Point.new(0, 0))
+    end
+
+    it "can move point a" do
+      subject.move(10, 10)
+      expect(subject.point_a).to eq(Shoes::Point.new(10, 10))
+      expect(subject.point_b).to eq(Shoes::Point.new(200, 200))
+    end
+
+    it "can move all points" do
+      subject.move(10, 10, 20, 20)
+      expect(subject.point_a).to eq(Shoes::Point.new(10, 10))
+      expect(subject.point_b).to eq(Shoes::Point.new(20, 20))
+    end
+  end
+end

data/spec/shoes/link_spec.rb

@@ -0,0 +1,118 @@
+require 'shoes/spec_helper'
+
+describe Shoes::Link do
+  let(:gui) { double("gui").as_null_object }
+  let(:app) { double("app", gui: gui, style: {}, element_styles: {}) }
+  let(:internal_app) { double("internal app", app: app, gui: gui, style: {}, element_styles: {}) }
+  let(:texts) { ["text", "goes", "first"] }
+
+  subject { Shoes::Link.new(app, texts, {color: :blue}) }
+
+  context "initialize" do
+    it "should set up text" do
+      expect(subject.texts).to eql(texts)
+      expect(subject.to_s).to  eql("textgoesfirst")
+    end
+
+    it "should set color" do
+      expect(subject.color).to eql(:blue)
+    end
+
+    it "should default styles" do
+      expect(subject.style[:underline]).to eql(true)
+      expect(subject.style[:fill]).to eql(nil)
+      expect(subject.style[:stroke]).to eql(Shoes::COLORS[:blue])
+    end
+
+    context "overriding styles" do
+      subject { Shoes::Link.new(app, texts,
+                                underline: false, bg: Shoes::COLORS[:green]) }
+
+      it "should include defaults" do
+        expect(subject.style).to include(:stroke => Shoes::COLORS[:blue])
+      end
+
+      it "should override defaults" do
+        expect(subject.style).to include(:underline => false)
+      end
+
+      it "should include other options" do
+        expect(subject.style).to include(:bg => Shoes::COLORS[:green])
+      end
+    end
+
+    context "with a block" do
+      let(:callable) { double("callable") }
+      subject { Shoes::Link.new(internal_app, texts, {}, Proc.new { callable.call }) }
+
+      it "sets up for the click" do
+        expect(callable).to receive(:call)
+        subject.blk.call
+      end
+    end
+
+    context "with click option as text" do
+      subject { Shoes::Link.new(internal_app, texts, click: "/url") }
+
+      it "should visit the url" do
+        expect(app).to receive(:visit).with("/url")
+        subject.blk.call
+      end
+    end
+
+    context "with click option as Proc" do
+      let(:callable) { double("callable", call: nil) }
+      subject { Shoes::Link.new(internal_app, texts, click: Proc.new { callable.call }) }
+
+      it "calls the block" do
+        expect(callable).to receive(:call)
+        subject.blk.call
+      end
+    end
+
+    context "calling click explicitly" do
+      let(:original_block)    { double("original") }
+      let(:replacement_block) { double("replacement") }
+      subject { Shoes::Link.new(internal_app, texts) { original_block.call } }
+
+      it "replaces original block" do
+        expect(original_block).to_not receive(:call)
+        expect(replacement_block).to receive(:call)
+
+        subject.click { replacement_block.call }
+        subject.blk.call
+      end
+    end
+  end
+
+  describe 'visibility' do
+    let(:text_block) {double 'text block', visible?: true, hidden?: false}
+
+    before :each do
+      subject.text_block = text_block
+    end
+
+    it 'forwards visible? calls' do
+      subject.visible?
+      expect(text_block).to have_received :visible?
+    end
+
+    it 'forwards hidden? calls' do
+      subject.hidden?
+      expect(text_block).to have_received :hidden?
+    end
+  end
+
+  # #979
+  describe 'parent' do
+    let(:text_block) {double 'text block'}
+
+    before :each do
+      subject.parent = text_block
+    end
+
+    it 'has the correct parent, namingly he text block' do
+      expect(subject.parent).to eq text_block
+    end
+  end
+end