crystal-ext 0.0.1

data/readme.md

@@ -0,0 +1 @@
+# Crystal Ext - Extensions for the Crystal framework.

data/spec/mongo_mapper_ext/micelaneous_plugin_spec.rb

@@ -0,0 +1,56 @@
+require 'spec'
+require 'ruby_ext'
+require "mongo_mapper"
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext/micelaneous"
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext/plugins/micelaneous"
+
+describe "MongoMapper Default Scope" do
+  before :all do
+    class ::Post
+      include MongoMapper::Document      
+      plugin MongoMapper::Plugins::Micelaneous
+      
+      key :comments_count, Integer, :default => 0
+      has_many :comments
+    end
+    
+    class ::Comment
+      include MongoMapper::Document
+      plugin MongoMapper::Plugins::Micelaneous
+      
+      key :post_id
+      belongs_to :post, :counter_cache => true
+    end
+    
+    MongoMapper.database = 'test'
+  end
+  
+  after :all do
+    %w{Post Comment}.each do |obj_name|
+      Object.send :remove_const, obj_name if Object.const_defined? obj_name
+    end
+  end
+  
+  before :each do 
+    [Post, Comment].every.delete_all
+  end
+    
+  it "should increase count of comments" do
+    post = Post.create!
+    comment = post.comments.create!
+    
+    post.reload
+    post.comments_count.should == 1
+  end
+  
+  it "should decrease count of comments" do
+    post = Post.create!
+    comment = post.comments.create!
+    post.reload
+    post.comments_count.should == 1
+    
+    comment.destroy    
+    post.reload
+    post.comments_count.should == 0
+  end
+end

data/spec/mongo_mapper_ext/micelaneous_spec.rb

@@ -0,0 +1,51 @@
+require 'spec'
+require 'ruby_ext'
+require 'mongo_mapper'
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext/micelaneous"
+
+describe "MongoMapper micelaneous" do
+  before :all do
+    @db = Mongo::Connection.new.db('test')
+    MongoMapper.database = 'test'
+  end
+  
+  before :each do
+    @db.collection('test').drop
+    @coll = @db.collection('test')
+  end
+    
+  it "upsert should update" do
+    id = @coll.save :count => 2
+    @coll.upsert id, :$inc => {:count => 1}
+    @coll.find(:_id => id).first['count'].should == 3
+  end
+  
+  it "upsert should set" do
+    id = @coll.save({})
+    @coll.upsert id, :$inc => {:count => 1}
+    @coll.find(:_id => id).first['count'].should == 1
+  end
+    
+  describe "Handy upsert" do
+    class ::UpsertSample
+      include MongoMapper::Document
+      key :counter, Integer, :default => 1
+    end  
+    
+    before :each do 
+      @model = UpsertSample.create!
+    end
+  
+    it "class upsert" do
+      UpsertSample.upsert @model.id, :$inc => {:counter => 1}
+      @model.reload
+      @model.counter.should == 2
+    end
+  
+    it "model upsert" do
+      @model.upsert :$inc => {:counter => 1}
+      @model.reload
+      @model.counter.should == 2
+    end
+  end
+end

data/spec/mongo_mapper_ext/mongo_mapper_migration_spec.rb

@@ -0,0 +1,76 @@
+require 'spec'
+require 'ruby_ext'
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext"
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext/spec_helper"
+
+
+describe "MongoMapper Migration" do
+  Migration = MongoMapper::Migration  
+  
+  before :all do
+    MongoMapper.db_config = {
+      'global' => {'name' => 'global_test'},
+      'accounts' => {'name' => "accounts_test"}
+    }
+    
+    class ::Sample
+      include MongoMapper::Document
+      use_database :global
+
+      key :name, String
+    end
+    
+    Migration.logger = nil
+  end
+
+  after :all do
+    Object.send :remove_const, :Sample if Object.const_defined? :Sample
+  end
+  
+  before :each do
+    Migration.definitions.clear
+  end
+  
+  it "Shouldn't update if versions are the same" do
+    Migration.update(:global, 0).should be_false
+  end
+  
+  it "migration should provide access to current database" do
+    Sample.count.should == 0    
+    Migration.define :global, 1 do |m|
+      m.up do |db|
+        Sample.create :name => 'name'
+        coll = db.collection 'samples'
+        coll.find.count.should == 1
+      end
+    end
+  
+    Migration.update(:global, 1).should be_true    
+    Sample.count.should == 1
+  end
+
+  it "increase_db_version" do
+    Sample.count.should == 0
+    Migration.define :global, 1 do |m|
+      m.up{Sample.create :name => 'name'}
+    end
+  
+    Migration.update(:global, 1).should be_true    
+    Sample.count.should == 1
+    Migration.metadata(MongoMapper.databases[:global]).should == 1
+  end
+
+  it "decrease_db_version" do    
+    Migration.define :global, 1 do |m|
+      m.up{Sample.create :name => 'name'}
+      m.down{Sample.destroy_all}
+    end
+    Migration.update(:global, 1).should be_true
+    Sample.count.should == 1
+  
+    Migration.update(:global, 0).should be_true
+    Sample.count.should == 0
+    Migration.metadata(MongoMapper.databases[:global]).should == 0
+  end
+    
+end

data/spec/mongo_mapper_ext/scope_spec.rb

@@ -0,0 +1,125 @@
+require 'spec'
+require 'ruby_ext'
+require "#{File.dirname __FILE__}/../../lib/mongo_mapper_ext/plugins/default_scope"
+require "mongo_mapper"
+
+describe "MongoMapper Default Scope" do
+  before :all do
+    MongoMapper.database = 'test'
+  end
+  
+  before :each do 
+    class ::ScopeSample
+      include MongoMapper::Document
+      plugin MongoMapper::Plugins::DefaultScope
+      
+      key :name, String
+      key :_type, String
+    end
+    
+    ScopeSample.delete_all
+    ScopeSample.create! :name => 'a'
+    ScopeSample.create! :name => 'b'
+  end
+  
+  after :each do 
+    Object.send :remove_const, :ScopeSample if Object.const_defined? :ScopeSample
+  end
+    
+  it "should not affect objects without default_scope" do
+    ScopeSample.count.should == 2
+    ScopeSample.all.count.should == 2
+  end
+  
+  it "default_scope" do
+    ScopeSample.send :default_scope, :name => 'a'
+    ScopeSample.count.should == 1
+    ScopeSample.all.count.should == 1
+    ScopeSample.first.name.should == 'a'
+  end
+  
+  it "default_scope as block" do
+    ScopeSample.send :default_scope do
+      {:name => 'a'}
+    end
+    ScopeSample.count.should == 1
+    ScopeSample.all.count.should == 1
+    ScopeSample.first.name.should == 'a'
+  end
+  
+  it "default_scope should be inherited" do    
+    ScopeSample.send :default_scope, :name => 'a'
+    class ScopeSampleAncestor < ScopeSample
+    end
+    
+    ScopeSampleAncestor.create! :name => 'a'
+    ScopeSampleAncestor.create! :name => 'b'
+
+    ScopeSampleAncestor.count.should == 1
+    ScopeSampleAncestor.all.count.should == 1
+    ScopeSampleAncestor.first.name.should == 'a'
+  end
+  
+  it "ancestors should be able to override default_scope" do
+    ScopeSample.send :default_scope, :name => 'a'
+    class ScopeSampleAncestor2 < ScopeSample
+      default_scope :name => 'b'
+    end
+    
+    ScopeSampleAncestor2.create! :name => 'a'
+    ScopeSampleAncestor2.create! :name => 'b'
+        
+    ScopeSampleAncestor2.count.should == 1
+    ScopeSampleAncestor2.all.count.should == 1
+    ScopeSampleAncestor2.first.name.should == 'b'
+  end
+  
+  it "shouldn't allow to nest with_exclusive_scope" do
+    lambda{
+      ScopeSample.with_exclusive_scope do
+        ScopeSample.with_exclusive_scope{}
+      end
+    }.should raise_error(AssertionError)
+    
+    lambda{
+      ScopeSample.with_exclusive_scope do
+        ScopeSample.with_scope{}
+      end
+    }.should raise_error(AssertionError)
+  end
+      
+  it "with_exclusive_scope should clear other scopes" do
+    ScopeSample.send :default_scope, :name => 'a'
+    
+    ScopeSample.with_scope :name => 'a' do
+      ScopeSample.with_exclusive_scope :name => 'b' do        
+        ScopeSample.count.should == 1
+        ScopeSample.first.name.should == 'b'
+      end
+    end
+  end
+  
+  it "with_scope" do
+    ScopeSample.with_scope :name => 'a' do
+      ScopeSample.count.should == 1
+      ScopeSample.first.name.should == 'a'
+    end
+  end
+  
+  it "with scope should merge scope" do
+    ScopeSample.class_eval do
+      key :name2, String
+      key :name3, String
+      default_scope :name => 'a'
+    end
+    ScopeSample.create! :name => 'a', :name2 => 'a2', :name3 => 'a3'
+    ScopeSample.create! :name => 'b', :name2 => 'b2', :name3 => 'b3'
+    
+    ScopeSample.with_scope :name2 => 'a2' do
+      ScopeSample.with_scope :name3 => 'a3' do
+        ScopeSample.count.should == 1
+        ScopeSample.first.name2.should == 'a2'
+      end
+    end
+  end
+end

data/spec/rails_ext/haml_builder_spec.rb

@@ -0,0 +1,136 @@
+require 'spec'
+
+require 'ruby_ext'
+require 'active_support'
+require "#{File.dirname __FILE__}/../../lib/abstract_interface/haml_builder"
+
+require 'facets/openobject'
+
+
+# 
+# Don't use should ==, it doesn't works with OpenObject
+# 
+describe "HamlBuilder use cases" do  
+  class TemplateStub
+    def self.capture &block
+      block.call
+      self.output
+    end
+    
+    class << self
+      attr_accessor :output
+    end
+  end
+  
+  def build *args, &block
+    opt = args.extract_options!
+    args.size.should! :be_in, 0..1
+    opt[:content] = args.first if args.size == 1
+    
+    r = AbstractInterface::HamlBuilder.get_input(TemplateStub, opt, &block)
+    convert_to_hashes r
+  end
+  
+  def convert_to_hashes value
+    if value.is_a? OpenObject
+      r = {}
+      value.each do |k, v|
+        r[k] = convert_to_hashes v
+      end
+      r
+    else
+      value
+    end
+  end
+  
+  it "hash" do
+    (build do |o|
+      o.a :b
+    end).should == {:a => :b}
+  
+    build(:a => :b).should == {:a => :b}
+  end
+  
+  it "array" do
+    (build do |a|
+      a.add 1
+      a.add 2
+    end).should == {:content => [1, 2]}
+    
+    (build do |o|
+      o.a :b
+      o.ar do |a|
+        a.add 1
+        a.add 2
+      end      
+    end).should == {:a => :b, :ar => [1, 2]}
+  end
+  
+  it "capture" do
+    build("value").should == {:content => "value"}
+    
+    (build do
+      TemplateStub.output = "value"
+    end).should == {:content => "value"}
+    
+    (build do |o|
+      o.content do
+        TemplateStub.output = "value"
+      end
+    end).should == {:content => "value"}
+    
+    (build do |o|
+      o.value do
+        TemplateStub.output = "value"
+      end
+    end).should == {:value => "value"}
+  end
+  
+  it "invalid usage" do
+    lambda{
+      build "value" do
+        TemplateStub.output = "value"
+      end
+    }.should raise_error(/Invalid usage!/)
+  end
+  
+  it "merge" do
+    (build :a => :b do
+      TemplateStub.output = "value"
+    end).should == {:a => :b, :content => "value"}
+    
+    (build :a => :b do |o|
+      o.c :d
+    end).should == {:a => :b, :c => :d}
+  end
+  
+  it "nested" do
+    (build :a => :b do |o|
+      o.a do |o|
+        o.b :c
+      end
+    end).should == {
+      :a => {:b => :c}
+    }
+  end
+  
+  it "complex" do
+    (build :a => :b do |o|      
+      o.hs do |h|
+        h.c :d
+      end
+      o.ar do |a|
+        a.add 1        
+        a.add 2
+      end
+      o.html do
+        TemplateStub.output = "value"
+      end
+    end).should == {
+      :a => :b,
+      :hs => {:c => :d},
+      :ar => [1, 2],
+      :html => 'value'
+    }
+  end
+end

data/spec/rails_ext/safe_hash_spec.rb

@@ -0,0 +1,71 @@
+require 'spec'
+
+require 'active_support'
+require "#{File.dirname __FILE__}/../../lib/rails_ext/micelaneous/safe_hash"
+
+describe "SafeHash and SafeNil" do
+  it "should allow check for value presence" do
+    h = SafeHash.new :a => :b
+    h.a?.should be_true
+    h.b?.should be_false
+    
+    h.should include(:a)
+    h.should_not include(:b)
+  end
+  
+  it "should allow owerride values" do
+    h = SafeHash.new :a => :b
+    h[:b] = :c
+    h.b!.should == :c
+  end
+  
+  it "general behaviour" do
+    h = SafeHash.new :key => :value
+    
+    h.key.should == :value
+    h.key(:missing).should == :value
+    
+    h[:key].should == :value
+    h[:key, :missing].should == :value
+    
+    h['key'].should == :value
+    h['key', :missing].should == :value
+        
+    h.a.b.c[:d].e('missing').should == 'missing'
+    h.a.b.c[:d][:e, 'missing'].should == 'missing'
+  end
+  
+  it "should build hierarchies of SafeHash" do
+    h = SafeHash.new :a => {:a => :b}
+    
+    h.a.a.should == :b
+    h.a.missing.b.c('missing').should == 'missing'
+  end
+  
+  it "should require setting if ! used" do
+    h = SafeHash.new :a => :v, :b => {:c => :v}
+    
+    h.a!.should == :v
+    h.b.c!.should == :v
+    h.b!.c!.should == :v
+    
+    lambda{h.j!}.should raise_error(/No key j/) 
+    lambda{h.j.b.c!}.should raise_error(/No key c/)
+  end
+  
+  it "should be able to update itself" do
+    h = SafeHash.new 
+    h.b?.should be_false
+    h[:a] = :a
+    h.a!.should == :a
+  end
+  
+  it "should implement include?" do
+    h = SafeHash.new :a => :b
+    h.include?(:a).should be_true
+    h.include?('a').should be_true
+    h.include?(:b).should be_false
+
+    h.b.include?(:a).should be_false
+  end
+end

data/spec/spec.opts

@@ -0,0 +1,4 @@
+--colour
+--format progress
+--loadby mtime
+--reverse