rad_core 0.0.13

data/spec/conveyor/conveyor_spec.rb

@@ -0,0 +1,124 @@
+require "conveyor/spec_helper"
+
+describe "Conveyor" do
+  inject conveyors: :conveyors
+  
+  with_environment environment: :development
+  
+  def call_conveyor
+    r = conveyors.web.call(result: [])
+    r.result
+  end
+  
+  it "smoke test" do
+    class SmokeTestASpec < Rad::Processor      
+      def call
+        workspace.result << :a_before          
+        next_processor.call
+        workspace.result << :a_after
+      end
+    end
+
+    class SmokeTestBSpec < Rad::Processor      
+      def call      
+        rad[:workspace].result << :b_before      
+        next_processor.call
+        rad[:workspace].result << :b_after
+      end
+    end
+    
+    conveyors.web.use SmokeTestASpec
+    conveyors.web.use SmokeTestBSpec
+    call_conveyor.should == [:a_before, :b_before, :b_after, :a_after]
+  end
+  
+  describe "error handling" do
+    it "common case" do
+      class CommonCaseASpec < Rad::Processor
+        def call
+          workspace.result << :a_before
+              
+          begin
+            next_processor.call
+          rescue StandardError => e
+            workspace.result << e.message
+          end
+        end
+      end    
+  
+      class CommonCaseBSpec < Rad::Processor
+        def call
+          workspace.result << :b_before
+          raise 'error before'
+        end
+      end
+  
+      conveyors.web.use CommonCaseASpec
+      conveyors.web.use CommonCaseBSpec
+      call_conveyor.should == [:a_before, :b_before, "error before"]
+    end
+  
+    it "should raise error if not catched" do
+      class NotCatchedErrorSpec < Rad::Processor
+        def call
+          workspace.result << :before
+          raise 'error before'
+        end
+      end
+            
+      conveyors.web.use NotCatchedErrorSpec
+      lambda{call_conveyor}.should raise_error(/error before/)
+    end
+  
+    it "in after block" do
+      class ErrorInAfterBlockASpec < Rad::Processor
+        def call
+          workspace.result << :a_before
+  
+          begin
+            next_processor.call
+          rescue StandardError => e
+            workspace.result << e.message
+          end
+        end
+      end    
+  
+  
+      class ErrorInAfterBlockBSpec < Rad::Processor
+        def call
+          workspace.result << :b_before
+          next_processor.call
+          raise 'error after'          
+        end
+      end
+  
+  
+      conveyors.web.use ErrorInAfterBlockASpec
+      conveyors.web.use ErrorInAfterBlockBSpec
+      call_conveyor.should == [:a_before, :b_before, "error after"]
+    end
+  
+    it "bubbling (from error)" do
+      class ErrorBubblingASpec < Rad::Processor
+        def call
+          begin
+            next_processor.call
+          rescue RuntimeError => e
+            workspace.result << e.message
+          end
+        end
+      end
+      
+      class ErrorBubblingBSpec < Rad::Processor
+        def call
+          raise 'error'
+        end
+      end      
+      
+      conveyors.web.use ErrorBubblingASpec
+      conveyors.web.use ErrorBubblingBSpec
+      
+      call_conveyor.should == ['error']
+    end
+  end
+end

data/spec/conveyor/spec_helper.rb

@@ -0,0 +1,3 @@
+require 'rad/conveyor'
+
+require 'rad/spec/environment'

data/spec/environment/config_spec/config.default.yml

@@ -0,0 +1,3 @@
+user_service:
+  default_key: default_value
+  name: default_name

data/spec/environment/config_spec/config.development.yml

@@ -0,0 +1,3 @@
+user_service:
+  test_key: test_value
+  name: test_name

data/spec/environment/config_spec/config.yml

@@ -0,0 +1,5 @@
+key2: another_value
+
+user_service:
+  key: value
+  name: name

data/spec/environment/config_spec.rb

@@ -0,0 +1,30 @@
+require 'environment/spec_helper'
+
+require 'rad/environment'
+require 'rad/spec/environment'
+
+describe 'config' do  
+  before :each do 
+    @c = Rad::Config.new
+    @c.environment = 'development'
+    @c.key = 'value'
+    @c.key2 = 'value2'
+  end
+    
+  it "should merge with existing config" do    
+    @c.key2!.should == 'value2'
+    
+    @c.merge_config! "#{spec_dir}/config.yml"
+    @c.key!.should == 'value'
+    @c.key2!.should == 'another_value'
+  end
+  
+  it "should merge hashes (with the following order: config.default <= config <= config.environment)" do   
+    @c.merge_config! "#{spec_dir}/config.yml"    
+    
+    @c.user_service.default_key("invalid").should == 'default_value'
+    @c.user_service.key("invalid").should == 'value'
+    @c.user_service.test_key("invalid").should == 'test_value'
+    @c.user_service.name.should == 'test_name'
+  end
+end

data/spec/environment/environment_spec.rb

@@ -0,0 +1,65 @@
+require 'environment/spec_helper'
+
+require 'rad/environment'
+require 'rad/spec/environment'
+
+describe "Environment basic spec" do
+  with_load_path "#{spec_dir}/path1", "#{spec_dir}/path2"
+      
+  inject env: :environment
+
+  before :all do        
+    @path1, @path2 = "#{spec_dir}/path1", "#{spec_dir}/path2"
+  end
+  
+  describe 'files' do    
+    with_environment
+    
+    it "find_files?" do
+      env.file_exist?('/some_folder/some_file').should be_true
+      env.file_exist?('/file1').should be_true
+    end
+  
+    it "find_file" do
+      lambda{env.find_file('/some_folder/some_file')}.should raise_error(/Found multiple files/)
+      env.find_file('/file1').should == "#{@path1}/file1"
+      lambda{env.find_file('file1')}.should raise_error(AssertionError)
+    end
+  
+    it "find_files" do
+      env.find_files('/some_folder/some_file').sort.should == ["#{@path1}/some_folder/some_file", "#{@path2}/some_folder/some_file"]
+    end
+  
+    it "find_files_by_pattern" do
+      env.find_files_by_pattern('/*/some_file').sort.should == ["#{@path1}/some_folder/some_file", "#{@path2}/some_folder/some_file"]
+    end
+  end
+  
+  describe 'config' do
+    with_environment
+
+    it "smoke test" do
+      config
+    end
+  end
+  
+  describe "spec should be isolated (via swap_metadata)" do
+    describe "first spec" do
+      with_environment
+    
+      before :all do
+        rad.register(:spec_component)
+      end
+      
+      it "check" do
+        Micon.metadata.should include(:spec_component)
+      end
+    end
+    
+    describe "second spec" do
+      it "check" do
+        Micon.metadata.should_not include(:spec_component)
+      end
+    end
+  end
+end

data/spec/environment/logger_spec.rb

@@ -0,0 +1,19 @@
+require 'environment/spec_helper'
+
+require 'rad/environment'
+
+describe "Environment basic spec" do
+  before :all do
+    rad.clear
+    ::SILENCE_LOGGER = true
+  end
+  
+  after :all do    
+    rad.clear
+    remove_constants :SILENCE_LOGGER
+  end
+  
+  it "logger should work before Rad initialized" do
+    rad[:logger].should_not be_nil
+  end
+end

data/spec/environment/minimal_app_spec/app.rb

@@ -0,0 +1 @@
+rad[:config].environment = :test

data/spec/environment/minimal_app_spec.rb

@@ -0,0 +1,25 @@
+require 'environment/spec_helper'
+
+require 'rad/environment'
+
+describe "Environment basic spec" do    
+  inject env: :environment
+  
+  before :all do
+    load "#{spec_dir}/app.rb"
+  end
+  
+  after :all do
+    rad.clear
+  end
+  
+  it "core components" do
+    rad[:logger].should_not be_nil
+    rad[:environment].should_not be_nil
+    rad[:config].should_not be_nil
+  end
+  
+  it "application runtime_dir" do
+    env.config.runtime_dir?.should be_false
+  end
+end

data/spec/environment/spec_helper.rb

@@ -0,0 +1 @@
+require 'rspec_ext'

data/spec/environment/standard_app_spec/app/lib/app/init.rb

@@ -0,0 +1,3 @@
+SpecResult << "init"
+
+load 'plugin_a/init.rb'

data/spec/environment/standard_app_spec/plugin_a/lib/plugin_a/init.rb

@@ -0,0 +1 @@
+SpecResult << "plugin_a"

data/spec/environment/standard_app_spec.rb

@@ -0,0 +1,48 @@
+require 'environment/spec_helper'
+
+require 'rad/environment'
+require 'rad/spec/environment'
+
+describe "Environment basic spec" do    
+  before :each do    
+    SpecResult.clear    
+  end
+  
+  inject environment: :environment
+  
+  the_spec_dir = with_tmp_spec_dir
+  
+  with_load_path(
+    "#{the_spec_dir}/plugin_a/lib", 
+    "#{the_spec_dir}/plugin_b/lib", 
+    "#{the_spec_dir}/app/lib"
+  )
+  
+  with_environment runtime_dir: the_spec_dir  
+  
+  before :all do
+    Env = Rad::Environment    
+    ::SpecResult = []    
+  end  
+  
+  before :each do
+    load "app/init.rb"
+  end  
+  
+  after :all do
+    remove_constants %w(SpecResult)
+  end  
+  
+  it "core components" do
+    rad[:logger].should_not be_nil
+    rad[:environment].should_not be_nil
+    rad[:config].should_not be_nil
+  end
+  
+  it "loading order" do
+    rad[:environment]
+    rad.register :custom_component
+    rad[:custom_component]
+    SpecResult.should == %w(init plugin_a)
+  end
+end

data/spec/html/basic_html_helper_spec.rb

@@ -0,0 +1,29 @@
+require 'html/spec_helper'
+
+require 'rad/spec/xhtml'
+
+describe "BasicHtmlHelper" do
+  before :each do        
+    @t = Rad::MockTemplateContext.new
+  end
+        
+  it "tag" do
+    @t.tag(:div, 'content', class: 'hidden').should == %(<div class="hidden">content</div>)
+    @t.tag(:div, class: 'hidden'){'content'}
+    @t.buffer.should == %(<div class="hidden">content</div>)
+  end
+  
+  it "stylesheet_link_tag" do
+    @t.stylesheet_link_tag('/public/js/app.css').should == %(<link href="/public/js/app.css" media="screen" rel="stylesheet" type="text/css"></link>)
+  end
+  
+  it "image_tag" do
+    @t.image_tag('face.png', width: 100).should == %(<img src="face.png" width="100"></img>)
+  end
+  
+  describe "basic html tags" do
+    it "label" do
+      @t.label_tag('book', 'Book').should == %(<label for="book">Book</label>)
+    end
+  end
+end

data/spec/html/form_helper_spec.rb

@@ -0,0 +1,63 @@
+require 'html/spec_helper'
+
+describe "FormHelper" do
+  class MockFormHelperContext < Rad::MockTemplateContext
+    include Rad::FormHelper
+  end
+  
+  before :each do
+    @t = MockFormHelperContext.new
+  end
+  
+  it "check_box_tag" do
+    @t.check_box_tag('item').should == %(<input class=" checkbox_input" name="item" type="checkbox" value="1"></input>)
+  end
+
+  it "field_set_tag" do
+    @t.field_set_tag{'content'}.should == %(<fieldset class=" fieldset_input">content</fieldset>)
+  end
+
+  it "file_field_tag" do
+    @t.file_field_tag('item').should == %(<input class=" file_input" name="item" type="file"></input>)
+  end
+
+  it "form_tag" do
+    @t.form_tag(id: 'the_form', action: '/'){"content"}
+    @t.buffer.to_xhtml('#the_form').should_be_fuzzy_equal_to(
+      id: 'the_form', action: '/', content: 'content', method: 'post'
+    )
+  end
+
+  it "hidden_field_tag" do
+    @t.hidden_field_tag('item', 'hidden value').should == %(<input class=" hidden_input" name="item" type="hidden" value="hidden value"></input>)
+  end
+
+  it "password_field_tag" do
+    @t.password_field_tag('item').should == %(<input class=" password_input" name="item" type="password"></input>)
+  end
+
+  it "radio_button_tag" do
+    @t.radio_button_tag('item').should == %(<input class=" radio_input" name="item" type="radio" value="1"></input>)
+  end
+
+  it "select_tag" do
+    @t.select_tag('item', nil, [["Dollar", "$"], ["Kroner", "DKK"]]).should == 
+      %(<select class=" select_input" name="item">\n<option value="$">Dollar</option>\n<option value="DKK">Kroner</option>\n</select>)
+    
+    @t.select_tag('item', '$', [["Dollar", "$"], ["Kroner", "DKK"]], class: 'highlight').should == 
+      %(<select class="highlight select_input" name="item">\n<option selected="selected" value="$">Dollar</option>\n\
+<option value="DKK">Kroner</option>\n</select>)
+  end
+
+  it "submit_tag" do
+    @t.submit_tag('ok').should == %(<input class=" submit_input" type="submit" value="ok"></input>)
+  end
+
+  it "text_field_tag" do
+    @t.text_field_tag('item', 'value').should == %(<input class=" text_input" name="item" type="text" value="value"></input>)
+  end
+
+  it "text_area_tag" do
+    @t.text_area_tag('item', 'value').should == %(<textarea class=" textarea_input" name="item">value</textarea>)
+  end
+end

data/spec/html/javascript_helper_spec.rb

@@ -0,0 +1,15 @@
+require 'html/spec_helper'
+
+describe "BasicHtmlHelper" do
+  class MockJavascriptHelperContext < Rad::MockTemplateContext
+    inherit Rad::JavascriptHelper
+  end
+  
+  before :each do        
+    @t = MockJavascriptHelperContext.new
+  end
+        
+  it "javascript_include_tag" do
+    @t.javascript_include_tag('/public/js/app.js').should == %(<script src="/public/js/app.js" type="text/javascript"></script>)
+  end
+end

data/spec/html/model_helper_spec.rb

@@ -0,0 +1,81 @@
+require 'html/spec_helper'
+
+describe "ModelHelper" do
+  class MockModelHelperContext < Rad::MockTemplateContext
+    inherit Rad::FormHelper
+  end
+  
+  before :each do
+    @t = MockModelHelperContext.new
+  end
+  
+  it "form_for" do
+    @t.form_for(:aname, nil, id: 'the_form', action: '/'){"content"}
+    @t.buffer.to_xhtml('#the_form').should_be_fuzzy_equal_to(
+      id: 'the_form', action: '/', content: 'content', method: 'post'
+    )
+  end
+    
+  it "error_messages" do
+    @t.form_for(:aname, nil){|f| f.error_messages}
+    lambda{@t.buffer.to_xhtml('form div')}.should raise_error(/not found/)
+        
+    model = {errors: {base: ['some error']}}
+    @t.buffer = ""
+    @t.form_for(:book, model){|f| f.error_messages}
+    @t.buffer.to_xhtml('form div').should_be_fuzzy_equal_to class: 'error_messages', content: 'some error'
+  end
+  
+  it "field error" do
+    model = {
+      title: "Super Hero",
+      errors: {title: ['some error in title']}
+    }
+    @t.form_for(:book, model){|f| f.text_field(:title)}
+    doc = @t.buffer.to_xhtml
+    doc.css("form div.field_error_messages").first.content.should == "some error in title"
+    doc.css("form span.field_with_errors input").first.should_be_fuzzy_equal_to name: "book[title]", value: "Super Hero"
+  end
+  
+  it "should insert human readable label if not specified" do
+    model = {}
+    model.stub(:t).and_return{|k| "translated #{k}"}
+    
+    @t.form_for(:book, model){|f| f.text_field(:title)}
+    @t.buffer.should =~ /translated title/
+    
+    @t.form_for(:book, model){|f| f.text_field(:title, label: 'some label')}
+    @t.buffer.should =~ /some label/
+  end
+  
+  it "field_helpers" do
+    model = {
+      available: false,
+      title: "Super Hero",
+      theme: 'simple'
+    }
+    
+    @t.form_for(:book, model){|f| %{
+      #{f.check_box :available}
+      #{f.file_field :title}
+      #{f.hidden_field :title}
+      #{f.password_field :title}
+      #{f.radio_button :available}
+      #{f.submit 'Ok'}
+      #{f.text_field :title}
+      #{f.text_area :title}
+      #{f.select :theme, %w(a b)}
+    } }
+    doc = @t.buffer.to_xhtml
+    
+    doc.css("*[type='checkbox']").first.should_be_fuzzy_equal_to name: "book[available]", value: '1'
+    doc.css("*[type='file']").first.should_be_fuzzy_equal_to name: "book[title]"
+    doc.css("*[type='hidden']").first.should_be_fuzzy_equal_to name: "book[title]", value: 'Super Hero'
+    doc.css("*[type='password']").first.should_be_fuzzy_equal_to name: "book[title]"
+    doc.css("*[type='radio']").first.should_be_fuzzy_equal_to name: "book[available]", value: '1'
+    doc.css("*[type='submit']").first.should_be_fuzzy_equal_to value: 'Ok'
+    doc.css("*[type='text']").first.should_be_fuzzy_equal_to name: "book[title]", value: 'Super Hero'
+    doc.css("textarea").first.should_be_fuzzy_equal_to name: "book[title]", content: 'Super Hero'
+    doc.css("select").first.should_be_fuzzy_equal_to name: "book[theme]"
+  end
+end

data/spec/html/scoped_params_spec.rb

@@ -0,0 +1,15 @@
+require 'html/spec_helper'
+
+describe "ScopedParams" do
+  it "basic" do    
+    workspace = Rad::Workspace.new.update(params: {"book[title]" => "Super Hero"})
+    
+    @processor = Rad::Processors::ScopedParams.new(lambda{})
+    @processor.stub(:workspace).and_return(workspace)
+    @processor.call
+
+    workspace.params.should == {
+      book: {"title" => "Super Hero"}
+    }
+  end
+end

data/spec/html/spec_helper.rb

@@ -0,0 +1,28 @@
+require 'rspec_ext'
+
+require 'rad/html'
+
+module Rad
+  class MockTemplateContext
+    inject config: :config, workspace: :workspace
+    
+    attr_accessor :output, :capture, :buffer
+
+    def capture &block
+      block.call
+    end
+      
+    def concat value = nil
+      @buffer ||= ""
+      @buffer << value
+      nil
+    end
+    
+    inherit Rad::BasicHtmlHelper
+    # include BasicHtmlHelper, FlashHelper, FormHelper, JavascriptHelper, UrlHelper
+  end
+end
+
+
+require 'rad/spec/environment'
+require 'rad/spec/xhtml'

data/spec/http/http_spec/app/lib/app/init.rb

@@ -0,0 +1,10 @@
+load 'plugin_a/init.rb'
+load 'plugin_b/init.rb'
+
+# # Plugins initialization
+# dir = __FILE__.parent_dirname
+# 
+# $LOAD_PATH << "#{dir}/plugin_a"
+# $LOAD_PATH << "#{dir}/plugin_b"
+# 
+# require 'plugin_b'

data/spec/http/http_spec/plugin_b/lib/plugin_b/init.rb

@@ -0,0 +1,5 @@
+plugin_dir = File.expand_path "#{__FILE__}/../../.."
+
+rad.after :environment do
+  rad.ensure_public_symlink "plugin_b", "#{plugin_dir}/static"
+end

data/spec/http/http_spec.rb

@@ -0,0 +1,51 @@
+require 'http/spec_helper'
+
+describe "HTTP basics" do
+  inject environment: :environment, conveyors: :conveyors
+  
+  the_spec_dir = with_tmp_spec_dir
+  with_environment environment: :development, runtime_dir: "#{the_spec_dir}/app/runtime"
+  
+  with_load_path(
+    "#{the_spec_dir}/app/lib",
+    "#{the_spec_dir}/plugin_a/lib",
+    "#{the_spec_dir}/plugin_b/lib",
+  )
+    
+  before :all do    
+    rad.after :environment do      
+      rad.conveyors.web do |web|
+        web.use Rad::Processors::HttpWriter
+        web.use Rad::Processors::PrepareParams
+        web.use Rad::Processors::EvaluateFormat
+      end
+    end
+  end
+  
+  after :all do
+    remove_constants %w(PrepareParamsStub)
+  end
+  
+  before :each do
+    load "app/init.rb"
+  end
+  
+  it "public symlink" do
+    rad[:environment]
+    rad.config.environment.should == 'development'
+    File.should exist("#{spec_dir}/app/runtime/public/plugin_b")
+  end
+  
+  it "http call" do    
+    workspace = nil
+    Rad::HTTPAdapter.call Rad::HTTPAdapter.mock_environment do |c|
+      c.call
+      workspace = rad[:workspace]
+    end
+    # .should == [200, {"Content-Type" => "text/html"}, ""]      
+    
+    workspace.delete(:env).should be_a(Hash)
+    expected_result = {path: "/", response: [200, {"Content-Type" => "text/html"}, ""], params: {format: 'html'}}
+    workspace.to_h.subset(expected_result.keys).should == expected_result      
+  end
+end