shoes 4.0.0.pre1 → 4.0.0.pre2

data/spec/shoes/download_spec.rb

@@ -1,133 +0,0 @@
-require 'shoes/spec_helper'
-require 'webmock/rspec'
-
-describe Shoes::Download do
-  include AsyncHelper
-  include_context "dsl app"
-
-  let(:name) { "http://www.google.com/logos/nasa50th.gif" }
-  let(:response_body) { "NASA 50th logo" }
-  let(:response_status) {["200", "OK"]}
-  let(:response_headers) { { "content-length" => "42" }}
-  let(:opts) { {save: "nasa50th.gif"} }
-  subject(:download) { Shoes::Download.new app, parent, name, opts, &input_block }
-
-  let(:percent) {download.percent}
-  let(:length) {download.length}
-  let(:content_length) {download.content_length}
-
-  before do
-    stub_request(:get, name)
-      .to_return(:status => response_status, :body => response_body, :headers => response_headers)
-  end
-
-  after do
-    download.join_thread
-    File.delete opts[:save]
-  end
-
-  it "finishes" do
-    eventually { expect(download).to be_finished }
-  end
-
-  it 'starts' do
-    eventually { expect(download).to be_started }
-  end
-
-  it 'understands percent' do
-    eventually{ expect(percent).to eql(0)}
-  end
-
-  it 'understands abort' do
-    expect(download).to respond_to(:abort)
-  end
-
-  it "understands content_length" do
-    expect(content_length).to eql(1)
-  end
-
-  it "understands length" do
-    expect(length).to eql(1)
-  end
-
-  it 'creates the file specified by save' do
-    download
-    eventually { expect(File.exist?(opts[:save])).to be_true }
-  end
-
-  context 'with a progress proc' do
-    let(:progress_proc) {Proc.new {}}
-    let(:opts) { {save: "nasa50th.gif", progress: progress_proc} }
-    subject(:download) { Shoes::Download.new app, parent, name, opts}
-
-    it 'calls the progress proc from start, download and finish' do
-      eventually {
-        expect(download.gui).to receive(:eval_block).
-                                  with(progress_proc, download).
-                                  exactly(3).times
-      }
-    end
-
-    context 'without content length' do
-      before do
-        stub_request(:get, name)
-          .to_return(:headers => {}, :status => response_status, :body => response_body)
-      end
-
-      it 'does not fail on progress, but called from content length and finish' do
-        pending 'Sometimes fails on Travis'
-        eventually {
-          expect(download.gui).to receive(:eval_block).
-          with(progress_proc, download).
-          twice
-        }
-      end
-    end
-  end
-
-  describe 'after it is finished' do
-    let(:result) {download}
-    let(:response) {download.response}
-
-    context 'with a block' do
-
-      it 'calls the block with a result' do
-        eventually { expect(download.gui).to receive(:eval_block).with(input_block, result) }
-      end
-
-      describe 'response object' do
-        it 'has headers hash' do
-          eventually { expect(response.headers).to eql(response_headers)}
-        end
-
-        it 'has body text' do
-          eventually { expect(response.body).to eql(response_body)}
-        end
-
-        it 'has status array' do
-          eventually { expect(response.status).to eql(response_status)}
-        end
-      end
-    end
-
-    context 'without a block' do
-      subject(:download) { Shoes::Download.new app, parent, name, opts }
-
-      it 'does not call the block' do
-        expect(download.gui).not_to receive(:eval_block)
-      end
-    end
-
-    context 'with a finish proc' do
-      let(:finish_proc) {Proc.new {}}
-      let(:opts) { {save: "nasa50th.gif", finish: finish_proc} }
-      subject(:download) { Shoes::Download.new app, parent, name, opts}
-
-      it 'calls the finish proc' do
-        pending 'Another Travis failure...'
-        eventually { expect(download.gui).to receive(:eval_block).with(finish_proc, result) }
-      end
-    end
-
-  end
-end

data/spec/shoes/flow_spec.rb

@@ -1,92 +0,0 @@
-require 'shoes/spec_helper'
-require_relative 'helpers/fake_element'
-
-describe Shoes::Flow do
-  include_context "dsl app"
-
-  subject(:flow) { Shoes::Flow.new(app, parent, input_opts, &input_block) }
-
-  it_behaves_like "clickable object"
-  it_behaves_like "hover and leave events"
-  it_behaves_like "Slot"
-
-  describe "initialize" do
-    let(:input_opts) { {:width => 131, :height => 137} }
-    it "sets accessors" do
-      expect(flow.parent).to eq(parent)
-      expect(flow.width).to eq(131)
-      expect(flow.height).to eq(137)
-      expect(flow.blk).to eq(input_block)
-    end
-
-    describe 'margins' do
-      let(:input_opts) { {margin: 143} }
-      it 'sets the margins' do
-        expect(flow.margin).to eq([143, 143, 143, 143])
-      end
-    end
-  end
-
-  it "sets default values" do
-    f = Shoes::Flow.new(app, parent)
-    expect(f.width).to eq(app.width)
-    expect(f.height).to eq(0)
-  end
-
-  it "clears with an optional block" do
-    expect(flow).to receive(:clear).with(&input_block)
-    flow.clear &input_block
-  end
-
-  describe "positioning" do
-    it_behaves_like 'positioning through :_position'
-    it_behaves_like 'positions the first element in the top left'
-
-    shared_examples_for 'positioning in the same line' do
-      it 'positions an element in the same row as long as they fit' do
-        expect(element2.absolute_top).to eq(flow.absolute_top)
-      end
-
-      it 'positions it next to the other element as long as it fits' do
-        expect(element2.absolute_left).to eq(element.absolute_right + 1)
-      end
-
-      it 'has a slot height of the maximum value of the 2 elements' do
-        expect(flow.height).to eq([element.height, element2.height].max)
-      end
-    end
-
-    describe 'two elements added' do
-      include_context 'two slot children'
-      include_context 'contents_alignment'
-
-      it_behaves_like 'positioning in the same line'
-
-      describe 'exact fit' do
-        let(:input_opts) {{width: element.width + element2.width}}
-        it_behaves_like 'positioning in the same line'
-      end
-
-    end
-
-    describe 'when the elements dont fit next to each other' do
-      let(:input_opts){ {width: element.width + 10} }
-      it_behaves_like 'arranges elements underneath each other'
-    end
-
-    describe 'elements dont fit next to each other and set small height' do
-      let(:input_opts) { {width: element.width + 10, height: element.height + 10} }
-      it_behaves_like 'set height and contents alignment'
-    end
-
-    describe 'elements dont fit next to each other and set big height' do
-      let(:input_opts){ {width: element.width + 10, height: 1000} }
-      it_behaves_like 'set height and contents alignment'
-    end
-
-    describe 'with margins and two elements not fitting next to each other' do
-      let(:input_opts){{width: element.width + 10, margin: 27}}
-      it_behaves_like 'taking care of margin'
-    end
-  end
-end

data/spec/shoes/font_spec.rb

@@ -1,38 +0,0 @@
-require 'spec/shoes/spec_helper'
-require 'fileutils'
-
-main_object = self
-
-describe Shoes::Font do
-  describe 'font method on the main object' do
-    it 'returns the name of the font loaded' do
-      result = main_object.font(Shoes::FONT_DIR + "Coolvetica" + '.ttf')
-      result.should eq 'Coolvetica'
-    end
-
-    it 'calls the backend add_font method' do
-      Shoes.backend::Font.should_receive :add_font
-      main_object.font 'some/path'
-    end
-  end
-
-  describe '.font_paths_from_dir' do
-    it 'returns an array of the paths of the fonts in the directory' do
-      result = Shoes::Font.font_paths_from_dir(Shoes::FONT_DIR)
-
-      result.should include(Shoes::FONT_DIR + 'Coolvetica.ttf',
-                            Shoes::FONT_DIR + 'Lacuna.ttf')
-    end
-
-    it 'handles sub directories' do
-      tmp_font_dir = Shoes::FONT_DIR + 'tmp/'
-      Dir.mkdir(tmp_font_dir)
-      tmp_font_path = tmp_font_dir + 'weird_font.ttf'
-      FileUtils.touch tmp_font_path
-      result = Shoes::Font.font_paths_from_dir(Shoes::FONT_DIR)
-      result.should include tmp_font_path
-      FileUtils.rm_r tmp_font_dir
-    end
-  end
-
-end

data/spec/shoes/framework_learning_spec.rb

@@ -1,30 +0,0 @@
-require "shoes/spec_helper"
-
-module Learning
-  class App
-    attr_accessor :gui
-
-    def initialize
-      @gui = gui_init
-    end
-  end
-end
-
-module TextPlugin
-  module App
-    def gui_init
-      "Peter"
-    end
-  end
-end
-
-  class Learning::App
-    include TextPlugin::App
-  end
-
-describe "A Shoes Framework" do
-
-  it "should include Framework Plugins" do
-    Learning::App.new.gui.should == "Peter"
-  end
-end

data/spec/shoes/helpers/fake_element.rb

@@ -1,11 +0,0 @@
-class Shoes
-  class FakeElement < Dimensions
-    include CommonMethods
-
-    def add_child(element)
-      true
-    end
-
-    attr_accessor :parent
-  end
-end

data/spec/shoes/helpers/sample17_helper.rb

@@ -1,66 +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,45 +0,0 @@
-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 { should 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 "clearable object"
-    it_behaves_like "object with dimensions"
-
-    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 'accepts web URL' do
-    let(:filename) { "http://is.gd/GVAGF7" }
-    subject { Shoes::Image.new(app, parent, filename, input_opts) }
-
-    its(:file_path) { should eq("http://is.gd/GVAGF7") }
-  end
-end

data/spec/shoes/input_box_spec.rb

@@ -1,44 +0,0 @@
-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 enver 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 "movable object"
-  it_behaves_like "an element that can respond to change"
-  it_behaves_like "object with state"
-
-  it { should respond_to :focus }
-  it { should respond_to :text  }
-  it { should 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 "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
-end