shoes-core 4.0.0.pre7 → 4.0.0.pre8

data/spec/shoes/helpers/fake_element.rb

@@ -1,25 +0,0 @@
-class Shoes
-  class FakeElement < Dimensions
-    include Common::Attachable
-    include Common::Inspect
-    include Common::Positioning
-    include Common::Remove
-    include Common::Visibility
-
-    def add_child(_element)
-      true
-    end
-
-    def adjust_current_position(*_)
-    end
-
-    # Fake this out instead of using Common::Style to avoid things like touching
-    # app level styles, etc. that we don't need for testing purposes
-    def style
-      @style ||= {}
-      @style
-    end
-
-    attr_accessor :parent, :gui
-  end
-end

data/spec/shoes/helpers/inspect_helpers.rb

@@ -1,5 +0,0 @@
-module InspectHelpers
-  def shoes_object_id_pattern
-    '0x[0-9a-f]{8}'
-  end
-end

data/spec/shoes/helpers/sample17_helper.rb

@@ -1,65 +0,0 @@
-# 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
-#
-class Sample17Helper
-  def initialize(app)
-    # This gives us the Shoes::App
-    @app = app.app
-  end
-
-  def create_para
-    @app.para("Testing, test, test. ", strong_breadsticks, em, code, bg, sub)
-  end
-
-  def breadsticks
-    "Breadsticks. "
-  end
-
-  def even_better
-    "EVEN BETTER."
-  end
-
-  def fine
-    "fine!"
-  end
-
-  def strong_breadsticks
-    @strong_breadsticks ||= @app.strong breadsticks
-  end
-
-  def em
-    @em ||= @app.em breadsticks
-  end
-
-  def code
-    @code ||= @app.code breadsticks
-  end
-
-  def ins
-    @ins ||= @app.ins even_better
-  end
-
-  def fg
-    @fg ||= @app.fg strong, Shoes::COLORS[:white]
-  end
-
-  def strong
-    @strong ||= @app.strong ins
-  end
-
-  def bg
-    @bg ||= @app.bg fg, Shoes::Color.new(255, 0, 192)
-  end
-
-  def sub
-    @sub ||= @app.sub fine
-  end
-end

data/spec/shoes/image_spec.rb

@@ -1,69 +0,0 @@
-require '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 hover"
-
-    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

@@ -1,80 +0,0 @@
-require '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, state: 'disabled') }
-
-      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

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

@@ -1,148 +0,0 @@
-require '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", :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 '#inspect' do
-    let(:input_opts) { {title: 'Dupa'} }
-
-    it 'shows the title in inspect' do
-      expect(subject.inspect).to include 'Dupa'
-    end
-  end
-
-  describe '#clear' do
-    context 'when called after the initial input block' do
-      let(:input_block) do
-        proc do
-          para "CONTENT"
-          para "JUST FOR TESTING"
-        end
-      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) do
-        proc do
-          para 'Hello there'
-          clear do
-            para 'see you'
-          end
-        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) do
-          proc do
-            button 'I am here'
-            stack do
-              button 'Hi there'
-              button 'Another one'
-              clear
-            end
-          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) do
-        proc do
-          clear
-          button 'My Button'
-        end
-      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

@@ -1,11 +0,0 @@
-require '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

@@ -1,11 +0,0 @@
-require '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