rapid 0.0.1

data/lib/rad.rb

@@ -0,0 +1,32 @@
+# crystal
+require 'crystal_ext/profiles/web_ext'
+
+# crystal plugins
+require 'crystal_jquery'
+require 'common_interface'
+
+# gems
+%w(
+  mongo_mapper
+  nokogiri
+  bluecloth
+  sanitize
+  state_machine
+  rack  
+).each{|n| gem n}
+# paperclip
+
+# 
+# rad
+# 
+
+# lib
+module Rad
+  autoload :TextUtils, 'rad/lib/text_utils'
+end
+
+require 'rad/locales'
+crystal.after :environment do
+  require 'rad/models'
+end
+require 'rad/http_controller'

data/readme.md

@@ -0,0 +1,3 @@
+# Rapid Application Development platform for Crystal framework
+
+[add docs]

data/spec/controller/authorization_spec.rb

@@ -0,0 +1,146 @@
+require "#{File.expand_path(File.dirname(__FILE__))}/helper"
+
+describe "Authorizations" do
+  with_environment
+  with_http
+  with_rad_model
+    
+  before :all do
+    load 'crystal_ext/profiles/web_ext.rb'
+    
+    permissions = {
+      'call_controller_level' => [],
+      'call_business_logic_level' => [],
+      'call_with_owner' => []
+    }
+    Space.stub!(:permissions).and_return(permissions)
+    
+    class ::AuthorizationController
+      inherit Crystal::HttpController
+      
+      acts_as_authorized
+    
+      require_permission :call_controller_level, :only => :controller_level
+    
+      def unprotected
+        render_ok
+      end
+    
+      def controller_level
+        render_ok
+      end
+          
+      def business_logic_level
+        require_permission :call_business_logic_level
+        render_ok
+      end
+      
+      def with_owner
+        require_permission :call_with_owner, owned_object
+        render_ok
+      end
+      
+      def with_owner_controller_level
+        render_ok
+      end
+      require_permission :call_with_owner, :only => :with_owner_controller_level do
+        owned_object
+      end
+      
+      protected 
+        def owned_object
+          @@owned_object
+        end
+        
+        def self.owned_object= o
+          @@owned_object = o
+        end
+    end
+    
+    I18n.locale = :en
+  end
+  
+  after :all do
+    remove_constants %w(AuthorizationController)
+  end
+  
+  before :each do
+    AuthorizationController.owned_object = nil
+    
+    @user = User.new
+    User.stub!(:current).and_return(@user)    
+  end
+  
+  def raise_authorization_error
+    raise_error(UserError, /Access Denied/)
+  end
+  
+  it "should allow to call unprotected methods" do
+    wcall('/authorization_controller/unprotected')
+    response.body.should == "ok"
+  end
+  
+  it "should allow declarative authorization at controller level" do    
+      @user.stub!(:can?).and_return(false)
+      lambda{
+        wcall '/authorization_controller/controller_level'
+      }.should raise_authorization_error
+      # response.should be_redirect
+    
+      @user.stub!(:can?).and_return(true)
+      wcall '/authorization_controller/controller_level'
+      response.body.should == "ok"
+    end
+    
+    it "should allow declarative authorization at business logic level" do    
+      @user.stub!(:can?).and_return(false)
+      lambda{
+        wcall '/authorization_controller/business_logic_level'
+      }.should raise_authorization_error
+      # response.should be_redirect
+        
+      @user.stub!(:can?).and_return(true)
+      wcall '/authorization_controller/business_logic_level'
+      response.body.should == "ok"
+    end
+    
+    it "should use owner if provided" do
+      @user.stub!(:can?){false}
+      lambda{
+        wcall '/authorization_controller/with_owner'
+      }.should raise_authorization_error
+      # response.should be_redirect
+    
+      
+      o = Object.new
+      o.stub!(:owner_name){@user.name}
+      AuthorizationController.owned_object = o 
+      
+      @user.stub!(:can?) do |operation, object|       
+        object and object.owner_name == @user.name
+      end
+      
+      wcall '/authorization_controller/with_owner'
+      response.body.should == "ok"
+    end
+    
+    it "should use owner if provided (action level)" do    
+      @user.stub!(:can?){false}
+      lambda{
+        wcall '/authorization_controller/with_owner_controller_level'
+      }.should raise_authorization_error
+      # response.should be_redirect
+      
+      
+      o = Object.new
+      o.stub!(:owner_name){@user.name}
+      AuthorizationController.owned_object = o
+    
+      @user.stub!(:can?) do |operation, object|       
+        object and object.owner_name == @user.name
+      end
+      
+      wcall '/authorization_controller/with_owner_controller_level'
+      response.body.should == "ok"
+    end
+end

data/spec/controller/helper.rb

@@ -0,0 +1,14 @@
+dir = File.expand_path(File.dirname(__FILE__))
+lib_dir = File.expand_path("#{dir}/../../../lib")
+$LOAD_PATH << lib_dir unless $LOAD_PATH.include? lib_dir
+
+require 'crystal_ext/profiles/web_ext_require'
+
+
+require 'mongo_mapper'
+require 'mongo_mapper_ext'
+require 'rad/http_controller'
+
+
+require 'crystal/spec'
+require 'rad/spec'

data/spec/lib/helper.rb

@@ -0,0 +1,7 @@
+dir = File.expand_path(File.dirname(__FILE__))
+lib_dir = File.expand_path("#{dir}/../../../../lib")
+$LOAD_PATH << lib_dir unless $LOAD_PATH.include? lib_dir
+
+require 'spec_ext'
+
+require 'crystal/support'

data/spec/lib/text_utils_spec.rb

@@ -0,0 +1,238 @@
+require "#{File.expand_path(File.dirname(__FILE__))}/helper"
+
+require 'rad/lib/text_utils.rb'
+
+describe "TextUtils" do  
+  def to_doc markup
+    Nokogiri::HTML(to_html(markup))
+  end
+  
+  def to_html markup
+    TextUtils.markup(markup)
+  end
+  
+  ::Nokogiri::XML::Node.class_eval do
+    def should_be_equal_to attributes
+      attributes.stringify_keys!
+      self.content.should == content if content = attributes.delete('content')
+      
+      attributes.each do |attr_name, value|
+        self[attr_name].to_s.should == value.to_s
+      end
+    end
+  end
+  
+  describe "MarkdDown" do
+    it "should do basic markup" do
+      doc = to_doc "**text**"
+      doc.css("p b, p strong").first.should_be_equal_to :content => 'text'
+    end
+    
+    it "should guess urls" do      
+      doc = to_doc "This is a http://www.some.com/some link"
+      doc.content.strip.should == "This is a http://www.some.com/some link"
+      doc.css("p a").first.should_be_equal_to :href => "http://www.some.com/some"
+      
+      # from error
+      doc = to_doc "http://www.some.com/some"
+      doc.content.strip.should == "http://www.some.com/some"
+      doc.css("p a").first.should_be_equal_to :href => "http://www.some.com/some"
+      
+      # from error
+      # http://mastertalk.ru/topic111478.html
+    end
+    
+    it "should allow 'a' elements" do
+      html = <<HTML
+<a href="http://www.some.com/some">Absolute Link</a>
+<a href="/some">Relative Link</a>
+HTML
+      
+      doc = to_doc html
+      doc.css("a").first[:href].should == "http://www.some.com/some"
+      doc.css("a").last[:href].should == "/some"
+    end
+    
+    it "should embed YouTube Videos" do 
+      html =<<HTML
+<object width="425" height="344">
+<param name="movie" value="http://www.youtube.com/v/s8hYKKXV5wU&hl=en_US&fs=1&"></param>
+<param name="allowFullScreen" value="true"></param>
+<param name="allowscriptaccess" value="always"></param>
+<embed src="http://www.youtube.com/v/s8hYKKXV5wU&hl=en_US&fs=1&" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed>
+</object>
+HTML
+
+      doc = to_doc html      
+      obj = doc.css("object").first.should_be_equal_to :width => 425, :height => 344
+      p1, p2, p3, embed = doc.css("object *")
+      p1.should_be_equal_to :name => "movie", :value => "http://www.youtube.com/v/s8hYKKXV5wU&hl=en_US&fs=1&"
+      p2.should_be_equal_to :name => "allowFullScreen", :value => "true"
+      p3.should_be_equal_to :name => "allowscriptaccess", :value => "always"
+      embed.should_be_equal_to :src => "http://www.youtube.com/v/s8hYKKXV5wU&hl=en_US&fs=1&", 
+        :type => "application/x-shockwave-flash", :allowscriptaccess => "always",
+        :allowfullscreen => "true", :width => "425", :height => "344"
+    end
+    
+    it "should skip empty paragraphs" do
+      html = "line 1\n\nline 2\n\n\n\nline 3"
+      to_html(html).should =~ /<p> line 1<\/p>\n<p>line 2<\/p>\n<p>line 3 <\/p>.?/
+    end
+    
+    it "should convert \n to <br/>" do
+      to_doc("foo\nbar").css('br').size.should == 1
+    end
+    
+    it "should not touch single underscores inside words" do
+      to_html("foo_bar").should include("foo_bar")
+    end
+    
+    it "should works with unicode" do
+      html = %{Юникод <a href="http://www.some.com/" class="_image_box">Юникод</a>}
+      doc = to_doc html
+      doc.css('p').first.content.should =~ /Юникод/
+      doc.css('p a').first.should_be_equal_to :href => "http://www.some.com/", :class => "_image_box", :content => "Юникод"
+    end
+    
+    it 'should allow class and rel attribute' do
+      html = %{<a href="http://www.some.com/" class="_image_box" rel="nofollow">Some</a>}
+      doc = to_doc html
+      doc.css('a').first.should_be_equal_to  :href => "http://www.some.com/", :class => "_image_box", :rel => "nofollow"
+    end
+    
+    it "should allow image inside of link" do
+      html = <<HTML
+<a rel="article_images" class="_image_box" href="/some_image">
+<img src="/some_image"></img>
+</a>
+HTML
+    
+      doc = to_doc html
+      doc.css('a').first.should_be_equal_to :href => "/some_image", :class => "_image_box"
+      doc.css('a img').first.should_be_equal_to :src => "/some_image"
+    end
+    
+    it "should use simplifyed syntax for image boxes (!![img_thumb] => [![img_thumb]][img_full_version])" do
+      html = <<HTML
+!![img]
+![img]
+
+!![img_2]
+![img_2]
+
+[img]: /some_prefix/image_name.png
+[img_2]: /some_prefix/image_name2.icon.png
+HTML
+
+      doc = to_doc html
+      doc.css('a').first.should_be_equal_to :href => "/some_prefix/image_name.png"
+      doc.css('a img').first.should_be_equal_to :src => "/some_prefix/image_name.thumb.png"
+      
+      doc.css('a').last.should_be_equal_to :href => "/some_prefix/image_name2.png"
+      doc.css('a img').last.should_be_equal_to :src => "/some_prefix/image_name2.icon.png"
+      
+      doc.css('img').size.should == 4
+    end
+    
+    it "simplifyed syntax for image boxes should be robust (from error)" do
+      html = "!![img] " # without resolved reference
+      to_html(html)
+      lambda{to_html(html)}.should_not raise_error
+    end
+    
+    it "should create teaser from text" do
+      text = %{Hi    there, I have a page that will list news articles}
+      TextUtils.truncate(text, 20).should == "Hi there, I have a ..."
+    end
+    
+    it "should create teaser from html" do
+      text = %{Hi    <div><b>there</b>, I have a page that will list news articles</div>}
+      TextUtils.truncate(text, 20).should == "Hi there, I have a ..."
+            
+      TextUtils.truncate(%{a<br/>b}, 20).should == "a b" # from error
+    end
+    
+    it "embed metaweb.com wiget" do
+      html = <<HTML
+<div itemtype="http://www.freebase.com/id/computer/software" itemid="http://www.freebase.com/id/en/google_web_toolkit" itemscope="" style="border: 0pt none; outline: 0pt none; padding: 0pt; margin: 0pt; position: relative;" id="fbtb-6ffc2545598340cbbc7945f43ebd45de" class="fb-widget">
+    <iframe frameborder="0" scrolling="no" src="http://www.freebase.com/widget/topic?track=topicblocks_homepage&amp;mode=content&amp;id=%2Fen%2Fgoogle_web_toolkit" style="height: 285px; width: 413px; border: 0pt none; outline: 0pt none; padding: 0pt; margin: 0pt;" classname="fb-widget-iframe" allowtransparency="true" class=" "></iframe>
+    <script defer="" type="text/javascript" src="http://freebaselibs.com/static/widgets/2/widget.js"></script>
+</div>
+HTML
+      
+      text = "{metaweb:google_web_toolkit}"
+      to_html(text).should include(html)
+    end
+    
+    it "should correctly insert newline (from error)" do
+      html = <<HTML
+![img] Open Design.
+http://oomps.com
+
+[img]: /some_link
+HTML
+
+      to_doc(html).css('br').size.should == 1
+    end
+    
+    it "clear div" do
+      html = "[clear]"
+      
+      doc = to_doc html
+      doc.css('div.clear').size.should == 1
+    end
+    
+    it "space div" do
+      html = "[space]"
+      
+      doc = to_doc html
+      doc.css('div.space').size.should == 1
+    end
+
+    it "should correctly guess links (from error)" do
+      to_doc("http://some_domain.com http://some_domain.com").css('a').size == 2
+    end
+    
+    it "should leave existing links intact" do
+      doc = to_doc(%{<a href="http://some_domain.com">http://some_domain.com</a>})
+      doc.css('a').size.should == 1
+      doc.css('a').first['href'].should == "http://some_domain.com"
+    end
+    
+    it "should leave existing links intact" do
+      md = %{\
+[Download Page][dl]
+[dl]: http://www.mozilla.org/products/firefox/}
+
+      to_doc(md).css('a').first['href'].should == 'http://www.mozilla.org/products/firefox/'
+    end
+    
+    it "should allow div with any classes (from error)" do
+      html = %{<div class="col3 left"><a href='#'>text</a></div>}
+      to_doc(html).css("div.col3.left a").size.should == 1
+    end
+    
+    it "should apply markup inside of html elements (from error)" do
+      html = <<HTML
+<div class='right'>
+![img]
+</div>
+
+[img]: /some_link
+HTML
+
+      to_doc(html).css('.right img').size.should == 1
+    end
+    
+    it "shouldn't create newline after > sign (from error)" do
+      html = %{\
+<div>text</div>
+text}
+      to_doc(html).css('br').size.should == 0
+    end
+    
+    it "shouldn't add empty <p> before first line (from error)" do
+      to_html("<span>text</span>text").should_not =~ /<p>\s*<\/p>/
+    end
+  end
+end

data/spec/models/authorization_spec.rb

@@ -0,0 +1,93 @@
+require "#{File.expand_path(File.dirname(__FILE__))}/helper"
+
+describe "Authorization" do  
+  with_rad_model
+  
+  before :each do
+    set_default_space
+  end
+  
+  describe "Roles" do
+    it "normalization" do
+      Role.normalize_roles(%w{manager member specific_role user:user1}).should == %w{member specific_role user:user1}
+    end
+    
+    it "denormalization to higher roles" do
+      Role.denormalize_to_higher_roles(%w{member specific_role user:user1}).should == %w{manager member specific_role user:user1}
+    end
+    
+    it "denormalization to lower roles" do
+      Role.denormalize_to_lower_roles(%w{member specific_role user:user1}).should == %w{member specific_role user user:user1}
+    end
+            
+    it "user should have it's name in roles" do
+      user = Factory.build :user, :name => 'some_name'
+      user.roles.include?('user:some_name').should be_true
+    end
+    
+    it ":anonymous, :registered, :user roles" do
+      anonymous = Factory.build :anonymous
+      anonymous.roles.should == %w{anonymous user user:anonymous}
+    
+      user = Factory.build :user, :name => 'name'
+      user.roles.should == %w{registered user user:name}
+    
+      admin = Factory.build :admin, :name => 'john'
+      admin.roles.should == %w{admin manager member registered user user:john}
+    end
+      
+    it "all managers should also have the member role, always" do
+      user = Factory.build :manager, :name => 'john'
+      user.roles.should == %w{manager member registered user user:john}
+    end
+      
+    it "handy methods" do
+      u = User.anonymous      
+      u.roles.anonymous?.should be_true
+      u.roles.registered?.should be_false
+      u.roles.has?(:anonymous).should be_true
+      u.should have_role(:anonymous)
+    end
+      
+    it "add_role" do
+      u = Factory.create :member
+      u.should_not have_role('manager')
+      u.add_role :manager
+      u.save!
+      u.reload
+      u.should have_role('manager')
+    end    
+    
+    it "remove_role" do
+      u = Factory.create :manager
+      u.remove_role :member
+      u.save!
+      u.reload
+      u.should_not have_role('manger')
+      u.should_not have_role('member')
+    end
+    
+    it "should add also all lover roles" do
+      u = Factory.create :user
+      u.roles.should_not include('member')
+      u.add_role :manager
+      u.roles.should include('member')
+    end
+    
+    it "special case, admin role" do
+      u = Factory.create :user
+      u.should_not have_role('manager')
+      u.add_role :admin
+      u.save!
+      u.reload
+      u.should have_role('admin')
+      u.should have_role('manager')
+    end
+    
+    it "major_roles" do
+      u = Factory.create :member, :name => 'aname'
+      u.add_role :director
+      u.major_roles.should == %w{director member user:aname}
+    end
+  end
+end