orange-core 0.5.3

data/lib/orange-core/templates/exceptions.haml

@@ -0,0 +1,111 @@
+-# adapted from Django <djangoproject.com>
+-# Copyright (c) 2005, the Lawrence Journal-World
+-# Used under the modified BSD license:
+-# http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5
+!!! 
+%html
+  %head
+    %meta{:name=>"robots", :content=>"NONE,NOARCHIVE"}
+    %title Orange raised #{h exception.class} at #{h path}
+    %link{:rel=>"stylesheet", :href=>"/assets/_orange_/css/exceptions.css", :type=>"text/css"}
+    %script{:type=>"text/javascript", :src=>"/assets/_orange_/js/exceptions.js"}
+  %body
+    #summary
+      %h1 #{h exception.class} at #{h path}
+      %h2 #{h exception.message}
+      %table
+        %tr
+          %th Ruby
+          %td= "<code>#{h frames.first.filename}</code>: in <code>#{h frames.first.function}</code>, line #{h frames.first.lineno }"
+        %tr
+          %th Web
+          %td= "<code>#{h req.request_method} #{h(req.host + path)}</code>"
+      %h3= "Jump to:"
+      %ul#quicklinks
+        %li
+          %a{:href=>"#get-info"} GET
+        %li
+          %a{:href=>"#post-info"} POST
+        %li
+          %a{:href=>"#cookie-info"} Cookies
+        %li
+          %a{:href=>"#env-info"} ENV
+        %li
+          %a{:href=>"#orange-info"} Orange
+    #traceback
+      %h2= "Traceback <span>(innermost first)</span>"
+      %ul.traceback
+        - frames.each do |frame|
+          %li.frame
+            = "<code>#{h frame.filename}</code>: in <code>#{h frame.function}</code>"
+            - if frame.context_line
+              .context{:id => "c#{frame.object_id}"}
+                - if frame.pre_context
+                  %ol.pre-context{:start=>"#{h frame.pre_context_lineno+1}", :id=>"pre#{h frame.object_id }"}
+                    - frame.pre_context.each do |line|
+                      %li{:onclick=>"toggle('pre#{h frame.object_id}', 'post#{h frame.object_id }')"} #{h line}
+                %ol.context-line{:start=>"#{h frame.lineno}"}
+                  %li{ :onclick=>"toggle('pre#{h frame.object_id}', 'post#{h frame.object_id }')"}= "#{h frame.context_line} <span>...</span>"
+                - if frame.post_context
+                  %ol.post-context{ :start=>"#{h frame.lineno+1 }", :id=>"post#{h frame.object_id}"}
+                    - frame.post_context.each do |line|
+                      %li{:onclick=>"toggle('pre#{h frame.object_id}', 'post#{h frame.object_id }')"} #{h line}
+    #requestinfo
+      %h2 Request information
+      - for var in [:GET, :POST, :cookies]
+        %h3{:id => "#{var.to_s.downcase}-info"}= "#{var.to_s}"
+        - unless req.__send__(var).empty?
+          %table.req
+            %thead
+              %tr
+                %th Variable
+                %th Value
+            %tbody
+              - req.__send__(var).sort_by { |k, v| k.to_s }.each do |key, val|
+                %tr
+                  %td #{h key}
+                  %td.code
+                    %div #{h val.inspect}
+        - else
+          %p No #{var.to_s} data.
+      %h3#env-info Rack ENV
+      %table.req
+        %thead
+          %tr
+            %th Variable
+            %th Value
+        %tbody
+          - env.sort_by { |k, v| k.to_s }.each do |key, val|
+            - unless key =~ /^orange\./ 
+              %tr
+                %td #{h key}
+                %td.code
+                  %div #{h val}
+      %h3#orange-info Orange ENV
+      %table.req
+        %thead
+          %tr
+            %th Variable
+            %th Value
+        %tbody
+          - env['orange.env'].sort_by { |k, v| k.to_s }.each do |key, val|
+            - if(![:request, :headers, :content].include?(key)) 
+              %tr
+                %td #{h key}
+                %td.code
+                  %div #{h val}
+      %h3#orange-info= 'Orange<br /> Response'
+      %table.req
+        %thead
+          %tr
+            %th Variable
+            %th Value
+        %tbody
+          - env['orange.env'].sort_by { |k, v| k.to_s }.each do |key, val|
+            - if([:request, :headers, :content].include?(key)) 
+              %tr
+                %td #{h key}
+                %td.code
+                  %div #{h val}
+    #explanation
+      %p= "You're seeing this error because you use <code>Orange::Middleware::ShowExceptions</code>."

data/lib/orange-core/views/default_resource/create.haml

@@ -0,0 +1,4 @@
+%form{:action => "#{packet.route_to(model_name, 'new')}", :method => 'post'}
+  - for prop in props
+    %p= view_attribute(prop, model_name, :label => true)
+  %input{:type => 'submit', :value => 'Save New Item'}

data/lib/orange-core/views/default_resource/edit.haml

@@ -0,0 +1,9 @@
+- if model
+  - if resource.options[:sitemappable, false] 
+    = orange[:sitemap, true].sitemap_links(packet, {:slug_me => orange[:sitemap, true].slug_for(model, props)})
+  %form{:action => packet.route_to(model_name, model[:id], 'save'), :method => 'post'}
+    - for prop in props
+      %p!= view_attribute(prop, model_name, :label => true, :value => model.attribute_get(prop[:name]), :model => model)
+    %input{:type => 'submit', :value => 'Save Changes'}
+- else
+  %p Couldn't find the item you're looking for.

data/lib/orange-core/views/default_resource/list.haml

@@ -0,0 +1,10 @@
+%table
+  %thead
+    %tr
+      - for prop in props
+        %th= prop[:name].to_s.split("_").each{|str| str.capitalize!}.join(" ")
+      %th
+  %tbody
+    - for obj in list
+      = view_table_row(model_name, :model => obj)
+%a{:href => route_to(model_name, 'create')} New

data/lib/orange-core/views/default_resource/show.haml

@@ -0,0 +1,4 @@
+- if model
+  %div{ :class => model_name}
+    - for prop in props
+      = view_attribute(prop, model_name, :show => true, :value => model.attribute_get(prop[:name]), :model => model)

data/lib/orange-core/views/default_resource/table_row.haml

@@ -0,0 +1,7 @@
+- if model
+  %tr
+    - for prop in props
+      %td= model.attribute_get(prop[:name]).to_s[0..150]
+    %td.actions
+      = form_link('Delete', route_to(model_name, model.id, 'delete'), 'Are you sure you want to delete this?', {:method => 'delete'})
+      %a{:href => route_to(model_name, model.id, 'edit')} Edit

data/lib/orange-core/views/not_found/404.haml

@@ -0,0 +1,2 @@
+%h1= "#{request.request_method}: #{request.path}"
+%h2 The file you were looking for cannot be found

data/spec/orange-core/application_spec.rb

@@ -0,0 +1,183 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Orange::Application do
+  before(:all) do
+    class MockApplication
+      set :banana, 'foo'
+      attr_accessor :quux, :wibble
+      def init
+        opts[:init] = true
+        @quux = true
+      end
+      def stack_init
+        opts[:stack_init] = true
+        @wibble = true
+      end
+    end
+    # allow deep introspection into rack builder
+    class Rack::Builder 
+      attr_accessor :ins
+      # introspection into the Builder object's list of items
+      # builder uses Proc magic to chain the middleware together,
+      # so we undo it.
+      def ins_no_procs
+        @ins.map{|x| x.instance_of?(Proc)? x.call(nil) : x }
+      end
+    end
+    class Orange::Stack 
+      attr_accessor :build
+      def middlewarez
+        build.ins_no_procs
+      end
+    end
+  end
+  
+  def app
+    MockApplication.app
+  end
+  
+  it "should be a subclass of Orange::Application" do
+    MockApplication.new(Orange::Core.new).should be_a_kind_of(Orange::Application)
+  end
+  
+  it "should have a stack method" do
+    MockApplication.should respond_to(:stack)
+  end
+  
+  it "should have a different app stack after using stack method" do
+    lambda {
+      MockApplication.stack do
+      end
+    }.should change(MockApplication, :app)
+  end
+
+  it "should respond to the app method" do
+    MockApplication.should respond_to(:app)
+  end
+  
+  it "should return an Orange::Stack with the app method" do
+    MockApplication.stack do
+    end
+    MockApplication.app.should be_an_instance_of(Orange::Stack)
+  end
+  
+  it "should be able to set options" do
+    MockApplication.set(:test4, Time.now.to_f-5)
+    opts_test4 = MockApplication.opts[:test4]
+    MockApplication.set(:test4, Time.now.to_f)
+    MockApplication.opts[:test4].should_not == opts_test4
+    MockApplication.opts[:banana].should == 'foo'
+  end
+  
+  it "should be able to accept instance option setting" do
+    x= MockApplication.new(Orange::Core.new, {:test => 'go'}){
+      baz 'bar'
+    }
+    x.opts.should have_key(:baz)
+    x.opts.should have_key(:banana)
+    x.opts[:baz].should == 'bar'
+    x.opts[:test].should == 'go'
+  end
+  
+  it "should override class variables with instance ones" do
+    x= MockApplication.new(Orange::Core.new)
+    y= MockApplication.new(Orange::Core.new){
+      banana 'bar'
+    }
+    x.opts.should have_key(:banana)
+    y.opts.should have_key(:banana)
+    x.opts[:banana].should == 'foo'
+    y.opts[:banana].should == 'bar'
+    x.opts[:banana].should_not == y.opts[:banana]
+  end
+  
+  it "should be able to access options via #opts" do
+    x= MockApplication.new(Orange::Core.new){
+      baz 'bar'
+    }
+    x.opts.should be_an_instance_of(Hash)
+    x.opts.should respond_to(:[])
+    x.opts.should have_key(:baz)
+    x.opts[:baz].should == 'bar'
+  end
+  
+  it "should call init after being initialized" do
+    x=MockApplication.new(Orange::Core.new){
+      init false
+    }
+    x.opts[:init].should be_true
+    x.quux.should be_true
+  end
+  
+  it "should call stack_init after stack loaded" do
+    c = Orange::Core.new
+    app = MockApplication.new(c){
+      stack_init false
+    }
+    c.fire(:stack_loaded, false) # Falsify the stack_load call
+    app.opts[:stack_init].should be_true
+    app.wibble.should be_true
+  end
+  
+  it "should raise a default error if route isn't redefined" do
+    x= MockApplication.new(Orange::Core.new)
+    lambda{ 
+      x.route(Orange::Packet.new(x.orange, {})) 
+    }.should raise_error(Exception, 'default response from Orange::Application.route')
+  end
+  
+  it "should return the orange core on #orange" do
+    c = Orange::Core.new
+    x= MockApplication.new(c)
+    x.orange.should eql(c)
+  end
+  
+  it "should change the core on #set_core(orange_core)" do
+    c1 = Orange::Core.new
+    c2 = Orange::Core.new
+    x= MockApplication.new(c1)
+    c1.should_not eql(c2)
+    lambda {
+      x.set_core(c2)
+    }.should change(x, :orange)
+  end
+  
+  it "should allow setting the core via #app" do
+    c = Orange::Core.new
+    x= MockApplication.app(c)
+    x.orange.should equal(c)
+  end
+  
+  it "should allow setting the core via #stack" do
+    c = Orange::Core.new
+    MockApplication.stack(c) do
+      run MockApplication.new(orange)
+    end
+    x= MockApplication.app
+    x.orange.should equal(c)
+    x.middlewarez.first.orange.should equal(c)
+    p = Orange::Packet.new(c, {'orange.core' => c})
+    Orange::Packet.should_receive(:new).with(c, {'orange.core' => c}).and_return(p)
+    lambda{
+      x.call({}) # We don't care about the error, we care about the should_receive
+    }.should raise_error 
+  end
+  
+  it "should respond correctly to call" do
+    x= MockApplication.new(Orange::Core.new)
+    lambda{
+      x.call({})
+    }.should raise_error(Exception, 'default response from Orange::Application.route')
+    r = TestRouter.new
+    lambda{
+      x.call({'orange.env' => {'route.router' => r}})
+    }.should change(r, :x)
+  end
+  
+  it "should auto initialize the self.opts" do
+    lambda{
+      MockApplication2.opts
+    }.should_not raise_error
+  end
+    
+end

data/spec/orange-core/carton_spec.rb

@@ -0,0 +1,136 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Orange::Carton do
+  it "should call property with :id, Serial on #self.id" do
+    MockCartonBlank.should_receive(:property).with(:id, DataMapper::Types::Serial)
+    MockCartonBlank.id
+  end
+  
+  it "should call self.init after calling id" do
+    MockCartonBlankTwo.should_receive(:init)
+    MockCartonBlankTwo.id
+  end
+  
+  it "should give form properties" do
+    MockCarton.form_props(:live).length.should >= 1
+    MockCarton.form_props(:admin).length.should >= 2
+    MockCarton.form_props(:orange).length.should >= 3
+    MockCarton.form_props(:banana).should have(0).items
+  end
+  
+  it "should call instance eval on admin block" do
+    MockCartonBlank.should_receive(:instance_eval)
+    MockCartonBlank.admin {}
+  end
+  
+  it "should call instance eval on orange block" do
+    MockCartonBlank.should_receive(:instance_eval)
+    MockCartonBlank.orange {}
+  end
+  
+  it "should call instance eval on front block" do
+    MockCartonBlank.should_receive(:instance_eval)
+    MockCartonBlank.front {}
+  end
+  
+  it "should change props when calling front_property" do
+    lambda {
+      MockCarton.front_property :foo, String
+    }.should change(MockCarton, :form_props)
+    
+  end
+  
+  it "should change admin props when calling admin_property (but not front props)" do
+    old_props = MockCarton.form_props(:admin)
+    lambda {
+      MockCarton.admin_property :foo, String
+    }.should_not change(MockCarton, :form_props)
+    old_props.should_not == MockCarton.form_props(:admin)
+  end
+  
+  it "should change orange props when calling orange_property (but not front/admin props)" do
+    admin_props = MockCarton.form_props(:admin)
+    old_props = MockCarton.form_props(:orange)
+    lambda {
+      MockCarton.orange_property :foo, String
+    }.should_not change(MockCarton, :form_props)
+    admin_props.should == MockCarton.form_props(:admin)
+    old_props.should_not == MockCarton.form_props(:orange)
+  end
+  
+  it "should change the levels var when using front block" do
+    MockCartonBlank.should_receive(:test_levels){|me| me.levels.should include(:live)}
+    MockCartonBlank.front{ test_levels(self) }
+    MockCartonBlank.levels.should == false
+  end
+  
+  it "should change the levels var when using admin block" do
+    MockCartonBlank.should_receive(:test_levels){|me| 
+      me.levels.should_not include(:front)
+      me.levels.should include(:admin)
+    }
+    MockCartonBlank.admin{ test_levels(self) }
+    MockCartonBlank.levels.should == false
+  end
+  
+  it "should change the levels var when using orange block" do
+    MockCartonBlank.should_receive(:test_levels){|me| 
+      me.levels.should_not include(:front)
+      me.levels.should_not include(:admin)
+      me.levels.should include(:orange)
+    }
+    MockCartonBlank.orange{ test_levels(self) }
+    MockCartonBlank.levels.should == false
+  end
+  
+  it "should have a front property after calling #front" do
+    front = MockCarton.scaffold_properties.select{|i| i[:name] == :front}
+    front.should have_at_least(1).items
+    front.first[:levels].should include(:live)
+  end 
+  
+  it "should have an admin property after calling #admin" do
+    front = MockCarton.scaffold_properties.select{|i| i[:name] == :admin}
+    front.should have_at_least(1).items
+    front.first[:levels].should_not include(:live)
+    front.first[:levels].should include(:admin)
+  end
+  
+  it "should have an orange property after calling #orange" do
+    front = MockCarton.scaffold_properties.select{|i| i[:name] == :orange}
+    front.should have_at_least(1).items
+    front.first[:levels].should_not include(:live)
+    front.first[:levels].should_not include(:admin)
+    front.first[:levels].should include(:orange)
+  end
+  
+  it "should call property on title" do
+    MockCarton.should_receive(:property).with(an_instance_of(Symbol), String, anything())
+    MockCarton.title(:wibble)
+  end
+  
+  it "should call property on text" do
+    MockCarton.should_receive(:property).with(an_instance_of(Symbol), String, anything())
+    MockCarton.text(:wobble)
+  end
+
+  it "should call property on string" do
+    MockCarton.should_receive(:property).with(an_instance_of(Symbol), String, anything())
+    MockCarton.string(:wubble)
+  end
+  
+  it "should call property on fulltext" do
+    MockCarton.should_receive(:property).with(an_instance_of(Symbol), DataMapper::Types::Text, anything())
+    MockCarton.fulltext(:cudge)
+  end
+  
+  it "should define a constant (resource class)" do
+    lambda{
+      MockCartonBlankTwo_Resource.nil?
+    }.should raise_error(NameError)
+    MockCartonBlankTwo.as_resource
+    lambda{
+      MockCartonBlankTwo_Resource.nil?
+    }.should_not raise_error
+  end
+end