engine-rea 0.2.1 → 0.2.2

data/spec/rea/application_spec.rb

@@ -0,0 +1,8 @@
+require 'spec_helper'
+
+describe Rea::Application do
+
+  subject { Rea.application }
+
+  its(:load_paths) { should have(1).items }
+end

data/spec/rea/aspect_type/classification_spec.rb

@@ -0,0 +1,107 @@
+require 'spec_helper'
+
+describe Rea::AspectType::Classification do
+  let(:category_type) { Rea::CategoryType.create :name=>:category_type }
+  let(:category_type_multi) { Rea::CategoryType.create :name=>:category_type_multi }
+
+  before :all do
+    category_type.category :cate_l1_1, :cate_l1_2
+    category_type.category :cate_l1_3 do
+      category :cate_l2_1, :cate_l2_2
+    end
+    category_type_multi.category :catem_l1_1, :catem_l1_2
+    category_type_multi.category :catem_l1_3 do
+      category :catem_l2_1, :catem_l2_2
+    end
+  end
+
+
+  context :syntax_symbol_table_classification_aspect do
+    with_model :resource do
+      table do |t|
+        t.string :name
+        t.decimal :value
+        t.references :member_type
+      end
+      model do
+      end
+    end
+
+    before :each do
+      Rea.model do
+        entities do
+          resource :resource do
+            classification :auto_classification=>false do
+              member :member_type, :multiple_select=>false do
+                category :category_type
+              end
+              member :member_type_multi, :multiple_select=>true do
+                category :category_type_multi
+              end
+            end
+          end
+        end
+      end
+    end
+
+
+    subject { Rea.context.symbol_table[:resource_classification_aspect] }
+    it { should_not be_nil }
+    it { should be_a_kind_of Rea::AspectType::Classification::Aspect }
+    its(:members) { should have(2).items }
+    it { subject.member_type_for(:category_type).should == :member_type }
+    it { subject.member_type_for(:category_type_multi).should == :member_type_multi }
+
+    context :members do
+      subject { Rea.context.symbol_table[:resource_classification_aspect].members[:member_type_multi] }
+      its(:multiple_select) { should be_true }
+    end
+
+    context :model do
+      let(:category) { ::Rea::Category.find_by_name :cate_l1_1 }
+
+      context :class do
+        before :each do
+          Resource.delete_all
+          10.times do
+            Resource.create! :name=>:name, :value=>10, :member_type_id=>category.id
+          end
+        end
+        subject { Resource }
+        it { subject.by_category(category).size.should == 10 }
+        it { subject.categories_for(:member_type).size.should == 5 }
+      end
+
+      context :instance do
+        subject { Resource.create! :name=>:name, :value=>1, :member_type_id=>category.id }
+        it { subject.is?(category).should be_true }
+        it { subject.is_in?(category).should be_true }
+      end
+
+      context :instance_multi do
+        let(:resource_multi) do
+          ids = Rea::CategoryType.find_by_name(:category_type_multi).category_ids
+          Resource.create! :name=>:name, :value=>1, :member_type_multi_ids=> ids
+        end
+
+        subject { resource_multi }
+        
+        its(:member_type_multi) { should have(5).items }
+        
+      end
+
+    end
+  end
+
+  context :category_type_and_category do
+
+    context :category_type do
+      subject { category_type }
+      its(:categories) { should have(5).items }
+      context :category do
+        subject{ Rea::Category.find_by_name 'cate_l1_3' }
+        its(:child_categories) { should have(2).items }
+      end
+    end
+  end
+end

data/spec/rea/aspect_type/due_date_spec.rb

@@ -0,0 +1,75 @@
+require 'spec_helper'
+
+describe Rea::AspectType::DueDate do
+
+  with_model :resource do
+    table do |t|
+      t.string :name
+      t.decimal :value
+      t.datetime :deadline
+    end
+    model do
+    end
+  end
+
+  before :each do
+    Rea.model do
+      entities do
+        resource :resource do
+          due_date do
+            member :deadline, :editable=>true
+            member :auto_date, :editable=>false, :activation_rule=>proc{Time.now}
+          end
+        end
+      end
+    end
+  end
+
+  context :syntax do
+    context :aspect do
+      subject { Rea.context.symbol_table[:resource_due_date_aspect] }
+      it(:member) { subject.respond_to?(:member).should be_true }
+    end
+    context :entity_class do
+      subject { Resource }
+      it(:expired_on){ subject.respond_to?(:expired_on).should be_true }
+      it(:active_on){ subject.respond_to?(:active_on).should be_true }
+
+      context :with_data do
+        before :each do
+          subject.delete_all
+          10.times do
+            subject.create :name=>:name1, :value=>1, :deadline=>1.days.ago
+            subject.create :name=>:name2, :value=>1, :deadline=>1.days.from_now
+          end
+        end
+
+        it :active_and_expired do
+          subject.count.should == 20
+          subject.active_on(:deadline).size.should == 10
+          subject.expired_on(:deadline).size.should == 10
+        end
+
+      end
+    end
+    context :entity_instance do
+      subject { Resource.new }
+      its(:public_methods) { should include :deadline, :deadline_state, :deadline_expired? }
+    end
+  end
+
+  context :model do
+    context :active do
+      subject { Resource.new :deadline=> 1.days.from_now }
+      its(:deadline_state) { should == :active }
+      its(:deadline_expired?) { should be_false }
+    end
+    context :expired do
+      subject { Resource.new :deadline=> 1.days.ago }
+      its(:deadline_state) { should == :expired }
+      its(:deadline_expired?) { should be_true }
+    end
+  end
+end
+
+

data/spec/rea/aspect_type/identification_spec.rb

@@ -0,0 +1,64 @@
+require 'spec_helper'
+
+describe Rea::AspectType::Identification do
+
+  def valid_attributes
+    {:name=>:name, :value=>1}
+  end
+
+  with_model :resource do
+    table do |t|
+      t.string :name
+      t.decimal :value
+      t.string :sn
+      t.string :sn_other
+    end
+    model do
+    end
+  end
+
+  before :each do
+    Rea.model do
+      entities do
+        resource :resource do
+          identification do
+            identifier :sn
+            identifier :sn_other, :type=>"resource.sn2"
+          end
+        end
+      end
+    end
+  end
+
+  context :syntax do
+    subject { Rea.context.symbol_table[:resource_identification_aspect] }
+    its(:identifiers) { should have(2).items }
+    it(:default_type) { subject.identifiers[:sn].type.should == "resource.sn" }
+    it(:customize_type) { subject.identifiers[:sn_other].type.should == 'resource.sn2'}
+  end
+
+  context :callback do
+    before :each do
+      Rea::Identifier.delete_all
+      Rea::Identifier.create :name=>"resource.sn", :id_rule=>"RESOURCE_SN"
+      Rea::Identifier.create :name=>"resource.sn2", :id_rule=>"RESOUCE_SN2"
+    end
+
+    context :update do
+      let(:resource) { Resource.create! valid_attributes }
+      subject { resource }
+      before(:each) { resource.save }
+      it { should be_valid }
+      it { should_not be_sn_changed }
+    end
+    
+    context :create do
+      subject { Resource.create! valid_attributes }
+      before(:each) { subject.reload }
+      its(:sn) { should == "RESOURCE_SN" }
+    end
+
+  end
+
+end
+

data/spec/rea/aspect_type_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe Rea::AspectType do
+
+  with_model :resource do
+    table do |t|
+      t.string :name
+      t.decimal :value
+    end
+    model do
+    end
+  end
+
+  before :each do
+    Rea.model do
+      entities do
+        resource :resource
+      end
+    end
+  end
+
+  def valid_attributes
+    {:name=>:name, :value=>1}
+  end
+
+  context :syntax do
+    subject { Resource }
+
+    %W{classification identification description due_date}.each do |method|
+      context "#{method}_context" do
+        before(:each) do
+          subject.send method, :name
+        end
+        it("respond_to? #{method}"){ subject.respond_to?(method).should be_true }
+        it("block called #{method}") do
+          expect { |b| subject.send(method,:"#{method}_aspect", &b) }.to yield_control
+        end
+        its("ancestors") { should include "Rea::AspectType::#{method.camelize}".constantize }
+        its("#{method}_aspect") { should be_a_kind_of "Rea::AspectType::#{method.camelize}::Aspect".constantize }
+      end
+    end
+  end
+
+end

data/spec/rea/engine_spec.rb

@@ -3,8 +3,5 @@ require 'spec_helper'
 describe Rea::Engine do
 
   context :initialize do
-    it :monkey_patch_active_record do
-      ActiveRecord::Base.included_modules.should include(Rea::Dsl)
-    end
   end
 end

data/spec/rea/meta_type/agent_spec.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+
+describe Rea::MetaType::Agent do
+
+  context :active_record_resource_define do
+    with_model :agent do
+      table do |t|
+        t.string :name
+      end
+    end
+
+    before(:each) do
+      Rea.model do
+        entities do
+          agent :agent
+        end
+      end
+    end
+
+    subject { Agent.new :name=>:name }
+    it { should be_valid }
+    it :name_not_nil do
+      subject.name = nil
+      should_not be_valid
+    end
+
+  end
+end

data/spec/rea/meta_type/commitment_spec.rb

@@ -0,0 +1,45 @@
+require 'spec_helper'
+
+describe Rea::MetaType::Commitment do
+
+  with_model :commitment do
+    table do |t|
+      t.references :provider
+      t.references :resource
+      t.decimal :amount
+      t.boolean :fulfilled
+    end
+    model do
+    end
+  end
+
+  before(:each) do
+    Rea.model do
+      entities do
+        commitment :commitment, :type=>:increment do
+          event_creator do
+            raise :callback
+          end
+        end
+      end
+
+    end
+  end
+
+  context :syntax do
+    subject { Rea.context.symbol_table[:commitment] }
+    its(:ancestors) { should include Rea::MetaType::Commitment }
+    its(:event_handler) {should_not be_nil }
+  end
+
+  context :model do
+    subject { Commitment.new :amount=>1 }
+    it {
+      expect do |b|
+      Commitment.event_creator &b
+      subject.fulfilled = true
+      subject.save
+      end.to yield_control
+    }
+  end
+end

data/spec/rea/meta_type/contract_spec.rb

@@ -0,0 +1,42 @@
+require 'spec_helper'
+
+describe Rea::MetaType::Contract do
+
+  with_model :contract do
+    table do |t|
+    end
+    model do
+    end
+  end
+  with_model :agent do
+    
+  end
+  with_model :commitment do
+    table do
+    end
+    model do
+    end
+  end
+
+  before(:each) do
+    Rea.model do
+      entities do
+        agent :agent
+        commitment :commitment
+        contract :contract do
+          clause :commitment
+          party :buyer, Agent
+          party :seller, :agent
+        end
+      end
+    end
+  end
+
+  context :syntax do
+    subject { Rea.context.symbol_table[:contract] }
+    it { should_not be_nil }
+    its(:clauses) { should include Commitment }
+    its(:reflect_on_all_associations) { should have(3).items }
+  end
+
+end

data/spec/rea/meta_type/entity_spec.rb

@@ -0,0 +1,58 @@
+require 'spec_helper'
+
+describe Rea::MetaType::Entity do
+
+  with_model :agent do
+    table do |t|
+      t.string :name
+      t.references :group
+    end
+  end
+
+  with_model :group do
+    table do |t|
+      t.string :name
+    end
+  end
+
+  before :each do
+    Rea.model do
+      entities do
+        group :group
+        agent :agent do
+          grouping :group
+        end
+      end
+    end
+  end
+
+  context :syntax do
+    subject { Rea.context.symbol_table[:agent] }
+    it { should == Agent }
+    context :group_reflect do
+      subject { Agent.reflect_on_association(:group) }
+      it { should_not be_nil }
+      its(:macro) { should == :belongs_to }
+    end
+
+  end
+
+  context :model do
+    before :each do
+      Agent.delete_all
+      Group.delete_all
+      Group.create! :name=>:group
+      2.times do
+        Agent.create! :name=>:agent, :group_id=>Group.last.id
+      end
+    end
+    context :class do
+      subject { Agent }
+      it :groups_for do
+        subject.groups_for(:group).should have(1).items
+      end
+
+    end
+  end
+
+end