engine-rea 0.2.2 → 0.3.0

data/lib/rea/meta_type/group.rb

@@ -1,25 +0,0 @@
-module Rea
-  module MetaType
-    module Group
-      def self.included base
-        base.fields = [:name]
-        base.send :include, Entity
-        base.extend ClassMethods
-      end
-
-      module ClassMethods
-        
-        def entity_types
-          @@entity_types ||= []
-        end
-
-        def grouped *names
-          $options = names.extract_options!
-          names.each do |name|
-            entity_types << name
-          end
-        end
-      end
-    end
-  end
-end

data/lib/rea/meta_type/process.rb

@@ -1,28 +0,0 @@
-module Rea
-  module MetaType
-    class Process
-
-      def inflows
-        @inflows ||= []
-      end
-
-      def outflows
-        @outflows ||= []
-      end
-
-      def inflow *names, &block
-        $options = names.extract_options!
-        names.each do |name|
-          inflows << name
-        end
-      end
-
-      def outflow *names, &block
-        $options = names.extract_options!
-        names.each do |name|
-          outflows << name
-        end
-      end
-    end
-  end
-end

data/lib/rea/meta_type/resource.rb

@@ -1,14 +0,0 @@
-module Rea
-  module MetaType
-    module Resource
-      def self.included base
-        base.fields = [:name, :value]
-        base.send :include, Entity
-        base.extend ClassMethod
-      end
-
-      module ClassMethod
-      end
-    end
-  end
-end

data/lib/rea/meta_type.rb

@@ -1,8 +0,0 @@
-module Rea
-  module MetaType
-
-    %w{entity resource event agent commitment contract group type schedule process exchange conversion}.each do |name|
-      autoload name.camelize.to_sym, "rea/meta_type/#{name}"
-    end
-  end
-end

data/lib/rea/model.rb

@@ -1,65 +0,0 @@
-module Rea
-  module Model
-    class Context
-
-      def entities &block
-        instance_eval &block
-      end
-
-      %W{resource event agent commitment contract group}.each do |type_name|
-        define_method type_name do |*names, &block|
-          define_entity type_name, *names, &block
-        end
-      end
-
-      def processes &block
-        instance_eval &block
-      end
-
-      def exchange name, &block
-        $exchange = ::Rea::MetaType::Exchange.new
-        $exchange.instance_eval &block
-        symbol_table[name] = $exchange
-      end
-
-      def conversion name, &block
-        $conversion = ::Rea::MetaType::Conversion.new
-        $conversion.instance_eval &block
-        symbol_table[name] = $conversion
-      end
-
-
-      def symbol_table
-        @symbol_table ||= {}.with_indifferent_access
-      end
-
-      private
-      def define_entity type, *names, &block
-        $type_module = "Rea::MetaType::#{type.to_s.camelize}".constantize
-        $options = names.extract_options!
-        names.each do |name|
-          $target_class = name.is_a?(Symbol) ? name.to_s.camelize.constantize : name
-          $target_class.class_eval do
-            cattr_accessor :fields
-            include $type_module
-          end
-          $target_class.setup $options unless $options.empty?
-          $target_class.class_eval &block if block_given?
-          $name = name.is_a?(Symbol)? name : name.to_s.underscore.to_sym
-          symbol_table[$name] = $target_class
-        end
-      end
-    end
-
-    def self.included base
-    end
-
-    def model &block
-      self.context.instance_eval &block
-    end
-
-    def context
-      @context ||= Context.new
-    end
-  end
-end

data/lib/rea/plugins/active_model.rb

@@ -1,18 +0,0 @@
-module Rea
-  module Plugins
-    module ActiveModel
-      extend ActiveSupport::Concern
-
-      include ::ActiveModel::Conversion
-      include ::ActiveModel::Validations
-      include ::ActiveModel::Serialization
-      include ::ActiveModel::Serializers::Xml
-      include ::ActiveModel::Serializers::JSON
-
-      included do
-        extend ::ActiveModel::Naming
-        extend ::ActiveModel::Translation
-      end
-    end
-  end
-end

data/spec/models/rea/category_member_spec.rb

@@ -1,9 +0,0 @@
-require 'spec_helper'
-
-describe Rea::CategoryMember do
-  context :associations do
-    subject { described_class.reflect_on_all_associations.map(&:name) }
-    it { should include :category }
-    it { should include :entity }
-  end
-end

data/spec/models/rea/category_type_spec.rb

@@ -1,28 +0,0 @@
-require 'spec_helper'
-
-describe Rea::CategoryType do
-
-  context :class do
-    subject { described_class }
-    it { subject.respond_to?(:category_type).should be_true }
-
-    it :could_create_instance do
-      expect { subject.category_type :category_type_test }.to change {Rea::CategoryType.count}
-    end
-
-    it :could_yield_block do
-      expect { |b| subject.category_type :some, &b }.to yield_control
-    end
-  end
-
-  context :category do
-    before :all do
-      ct = described_class.create! :name=>:type
-      ct.category :c1, :c2
-    end
-
-    subject { described_class.first }
-    its(:categories) { should have(2).items }
-    
-  end
-end

data/spec/models/rea/group_type_spec.rb

@@ -1,8 +0,0 @@
-require 'spec_helper'
-
-describe Rea::GroupType do
-  context :association do
-    subject { described_class.reflect_on_all_associations.map(&:name) }
-    it { should include :groups }
-  end
-end

data/spec/models/rea/identifier_spec.rb

@@ -1,48 +0,0 @@
-require 'spec_helper'
-
-describe Rea::Identifier do
-  context :validation do
-    context :correct_setup do
-
-      subject { described_class.new :name=>:name, :id_rule=>'AAABBB#{last_value}'}
-
-      it :stub do end
-
-      after :each do
-        should be_valid
-      end
-
-    end
-
-    context :error_setup do
-      subject { described_class.new :name=>:name, :id_rule=>'AAABBB' }
-      it :without_name do subject.name=nil end
-      it :without_id_rule do subject.id_rule = nil end
-      it :malformed_id_rule do subject.id_rule = 'AAA#{a' end
-      it :malformed_value_reset_rule do subject.value_reset_rule = 'a > ' end
-      
-      after :each do
-        should_not be_valid
-      end
-    end
-  end
-
-  context :generate do
-    context :without_value_reset_rule do
-      subject { described_class.create! :name=>:name, :id_rule=>'AAA#{"%03d" % last_value}' }
-      it :test_id_value do
-        subject.generate.should =~ /AAA\d{3}/
-        subject.reload
-        subject.last_value.should == 1
-      end
-    end
-    
-    context :with_value_reset_rule do
-      subject { described_class.create! :name=>:name, :id_rule=>'AAA', :value_reset_rule=>'true' }
-      before(:each) { subject.generate }
-      5.times do
-        its(:last_value) { should == 1 }
-      end
-    end
-  end
-end

data/spec/rea/aspect_type/classification_spec.rb

@@ -1,107 +0,0 @@
-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

@@ -1,75 +0,0 @@
-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

@@ -1,64 +0,0 @@
-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

@@ -1,44 +0,0 @@
-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/meta_type/agent_spec.rb

@@ -1,28 +0,0 @@
-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

@@ -1,45 +0,0 @@
-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

@@ -1,42 +0,0 @@
-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