engine-rea 0.1.1 → 0.2.1

data/README.md

@@ -2,3 +2,36 @@ ENGINE-REA
 ===
 
 Rails Engine for MDA pattern Resource Event  Agent
+
+What's REA
+-----------
+
+Resources, events, agents (REA) is a model of how an accounting system can be re-engineered for the computer age. REA was originally proposed in 1982 by William E. McCarthy as a generalized accounting model, and contained the concepts of resources, events and agents.
+
+see [REA model on wikipedia](http://en.wikipedia.org/wiki/Resources,_events,_agents)
+
+REA is a popular model in teaching accounting information systems (AIS). But it is rare in business practice—companies cannot easily dismantle their legacy systems to meet REA's radical demands. REA has never actually been implemented, it is a data model primarily, the processing model is still vague (see Huang Wei-Peng 2005).
+
+The REA model gets rid of many accounting objects that are not necessary in the computer age. Most visible of these are debits and credits—double-entry bookkeeping disappears in an REA system. Many general ledger accounts also disappear, at least as persistent objects; e.g., accounts receivable or accounts payable. The computer can generate these accounts in real time using source document records.
+
+REA treats the accounting system as a virtual representation of the actual business. In other words, it creates computer objects that directly represent real-world-business objects. In computer science terms, REA is an ontology. The real objects included in the REA model are:
+
+* goods, services or money, i.e., resources
+* business transactions or agreements that affect resources, i.e., events
+* people or other human agencies (other companies, etc.), i.e., agents
+
+The Aim of The Project
+----------------------
+This project added useful functions to ActiveRecord, aim to support easy modeling with REA ontology.
+Provide straight forward DSLs that follows Structural and Behavioral patterns defined in REA.
+
+see https://github.com/lazing/engine-rea/wiki
+
+# REA Ontology
+
+“An ontology is a study of the categories of things that exist or may exist
+in some domain” (Sowa 1999). Ontological categories define the concepts
+that exist in the domain, as well as relationships between these concepts.
+Geerts and McCarthy (Geerts, McCarthy 2000, 2002) formulated REA as
+an ontology for business systems. The REA ontological categories are il-
+lustrated in Fig. 226.

data/VERSION

@@ -1 +1 @@
-0.1.1
+0.2.1

data/app/models/rea/category.rb

@@ -1,8 +1,9 @@
 module Rea
   class Category < ActiveRecord::Base
+    include ::Rea::AspectType::Classification::Category
     belongs_to :category_type
-    belongs_to :parent_category, :class_name=>self.name
+    belongs_to :parent_category, :class_name=>self.name, :foreign_key=>:category_id
     has_many :child_categories, :class_name=>self.name
-    attr_accessible :name
+    attr_accessible :name, :category_type_id, :category_id
   end
 end

data/app/models/rea/category_type.rb

@@ -1,7 +1,7 @@
 module Rea
   class CategoryType < ActiveRecord::Base
-    belongs_to :group, :polymorphic=>true
+    include ::Rea::AspectType::Classification::CategoryType
     has_many :categories
-    attr_accessible :group_type, :name, :system, :automatic, :multiple
+    attr_accessible :name, :system, :automatic, :multiple
   end
 end

data/db/migrate/20120601074531_create_rea_category_types.rb

@@ -2,12 +2,10 @@ class CreateReaCategoryTypes < ActiveRecord::Migration
   def change
     create_table :rea_category_types do |t|
       t.string :name
-      t.references :group
-      t.string :group_type
       t.boolean :system
       t.boolean :automatic
       t.boolean :multiple
     end
-    add_index :rea_category_types, [:group_id, :group_type]
+    add_index :rea_category_types, :name
   end
 end

data/engine-rea.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = "engine-rea"
-  s.version = "0.1.1"
+  s.version = "0.2.1"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Ryan Wong"]
-  s.date = "2012-06-06"
+  s.date = "2012-06-19"
   s.description = "\n    follow REA model\n\t"
   s.email = "lazing@gmail.com"
   s.extra_rdoc_files = [
@@ -43,13 +43,31 @@ Gem::Specification.new do |s|
     "db/migrate/20120605030708_create_rea_group_entities.rb",
     "db/migrate/20120605082028_create_rea_identifiers.rb",
     "engine-rea.gemspec",
+    "lib/engine-rea.rb",
     "lib/generators/rea/install/USAGE",
     "lib/generators/rea/install/install_generator.rb",
     "lib/rea.rb",
+    "lib/rea/aspect_type.rb",
+    "lib/rea/aspect_type/base.rb",
+    "lib/rea/aspect_type/classification_aspect.rb",
+    "lib/rea/aspect_type/description.rb",
+    "lib/rea/aspect_type/due_date_type.rb",
+    "lib/rea/aspect_type/identifier_setup.rb",
     "lib/rea/dsl.rb",
     "lib/rea/dsl/behavioral.rb",
     "lib/rea/dsl/structural.rb",
     "lib/rea/engine.rb",
+    "lib/rea/meta_type.rb",
+    "lib/rea/meta_type/agent.rb",
+    "lib/rea/meta_type/commitment.rb",
+    "lib/rea/meta_type/contract.rb",
+    "lib/rea/meta_type/entity.rb",
+    "lib/rea/meta_type/event.rb",
+    "lib/rea/meta_type/group.rb",
+    "lib/rea/meta_type/resource.rb",
+    "lib/rea/meta_type/schedule.rb",
+    "lib/rea/meta_type/type.rb",
+    "lib/rea/plugins/active_model.rb",
     "lib/tasks/cucumber.rake",
     "lib/tasks/rea_tasks.rake",
     "lib/tasks/watchr.rake",
@@ -80,7 +98,6 @@ Gem::Specification.new do |s|
     "spec/dummy/config/initializers/wrap_parameters.rb",
     "spec/dummy/config/locales/en.yml",
     "spec/dummy/config/routes.rb",
-    "spec/dummy/db/development.sqlite3",
     "spec/dummy/db/schema.rb",
     "spec/dummy/lib/assets/.gitkeep",
     "spec/dummy/log/.gitkeep",
@@ -101,6 +118,7 @@ Gem::Specification.new do |s|
     "spec/rea/dsl/structural_spec.rb",
     "spec/rea/dsl_spec.rb",
     "spec/rea/engine_spec.rb",
+    "spec/rea/meta_type_spec.rb",
     "spec/spec_helper.rb"
   ]
   s.homepage = "http://github.com/lazing/engine-rea"

data/lib/engine-rea.rb

@@ -0,0 +1 @@
+require 'rea'

data/lib/rea.rb

@@ -2,6 +2,12 @@ require "rea/engine"
 
 module Rea
   autoload :Dsl, 'rea/dsl'
-
   autoload :InstallGenerator, 'generators/rea/install/install_generator'
+
+  autoload :AspectType, 'rea/aspect_type'
+  autoload :MetaType, 'rea/meta_type'
+
+  module Plugins
+    autoload :ActiveModel, 'rea/plugins/active_model'
+  end
 end

data/lib/rea/aspect_type.rb

@@ -0,0 +1,11 @@
+module Rea
+  module AspectType
+    autoload :Base, 'rea/aspect_type/base'
+    autoload :IdentifierSetup, 'rea/aspect_type/identifier_setup'
+    autoload :Description, 'rea/aspect_type/description'
+    autoload :DueDateType, 'rea/aspect_type/due_date_type'
+    autoload :Classification, 'rea/aspect_type/classification_aspect'
+    autoload :ClassificationAspect, 'rea/aspect_type/classification_aspect'
+    autoload :MemberType, 'rea/aspect_type/classification_aspect'
+  end
+end

data/lib/rea/aspect_type/base.rb

@@ -0,0 +1,9 @@
+module Rea
+  module AspectType
+    class Base
+      def initialize options={}
+        options.keys.each { |key| self.instance_variable_set("@#{key}", options[key]) }
+      end
+    end
+  end
+end

data/lib/rea/aspect_type/classification_aspect.rb

@@ -0,0 +1,75 @@
+module Rea
+  module AspectType
+    module Classification
+      def self.included base
+        base.extend ClassMethods
+        base.scope :by_category, lambda { |category_type_name, category_name|
+          $field_name = base.rea_ast[:classification][category_type_name.to_sym]
+          base.where($field_name.to_sym=>category_name)
+        }
+      end
+
+      def is category
+        $field_name = self.class.rea_ast[:classification][category.category_type.name.to_sym]
+        self.send($field_name).to_sym == category.name.to_sym
+      end
+
+      def is_in category
+        field_name = self.class.rea_ast[:classification][category.category_type.name.to_sym]
+        $current = category.class.find_by_name(self.send(field_name))
+        while($current) do
+          return true if $current.name.to_s == category.name.to_s
+          $current = $current.parent_category
+        end
+        return false
+      end
+
+      module CategoryType
+        def category *category_names, &block
+          options = category_names.extract_options!
+          category_names.flatten.each do |name|
+            category = self.categories.find_or_create_by_name name, options
+            block.call(category) if block_given?
+          end
+        end
+      end
+
+      module Category
+        def category *category_names, &block
+          options = category_names.extract_options!
+          options = {:category_type_id=>self.category_type_id, :category_id=>self.id}.merge(options)
+          category_names.flatten.each do |name|
+            category = self.child_categories.find_or_create_by_name name, options
+            block.call(category) if block_given?
+          end
+        end
+      end
+
+      module ClassMethods
+        def category_type category_type_name, options={}, &block
+          category_type = ::Rea::CategoryType.find_or_create_by_name category_type_name, options
+          block.call(category_type) if block_given?
+        end
+
+
+        def member name, options={}
+          options = { :name=>name.to_s }.merge options
+          rea[name] = ::Rea::AspectType::MemberType.new options
+          rea_ast[:classification][options[:type]] = name
+        end
+      end
+    end
+    class ClassificationAspect < Base
+    end
+    
+    class MemberType < Base
+      attr_reader :name, :type
+
+      def category_options
+        category_type = ::Rea::CategoryType.find_by_name(self.type.to_s)
+        category_type.categories
+      end
+    end
+  end
+
+end

data/lib/rea/aspect_type/description.rb

@@ -0,0 +1,7 @@
+module Rea
+  module AspectType
+    class Description < Base
+      attr_accessor :name, :media
+    end
+  end
+end

data/lib/rea/aspect_type/due_date_type.rb

@@ -0,0 +1,5 @@
+class Rea::AspectType::DueDateType < Rea::AspectType::Base
+
+  attr_reader :name, :activation_rule
+
+end

data/lib/rea/aspect_type/identifier_setup.rb

@@ -0,0 +1,7 @@
+module Rea
+  module AspectType
+    class IdentifierSetup < Base
+      attr_reader :name, :identifier
+    end
+  end
+end

data/lib/rea/dsl.rb

@@ -7,6 +7,10 @@ module Rea
 
     def self.included base
       base.extend ClassMethods
+      base.cattr_reader :rea, :rea_ast
+      base.cattr_accessor :type, :fields
+      base.class_variable_set "@@rea", {}
+      base.class_variable_set "@@rea_ast", {}
       base.class_eval do
         include Structural
         include Behavioral

data/lib/rea/dsl/behavioral.rb

@@ -6,34 +6,44 @@ module Rea
       end
 
       def create_id_string
-        self.send("#{self.class.identifier_field}=", Rea::Identifier.find_last_by_name(self.class.identifier).try(:generate))
+        id_setup = self.class.rea_ast[:identifier]
+        self.send("#{id_setup.name}=", Rea::Identifier.find_last_by_name(id_setup.identifier).try(:generate))
       end
 
       module ClassMethods
-        def classification name, options={}, &block
-          precontext = @context
-          @context = @context.category_types.find_or_create_by_name name, options
+
+        def classification options={}, &block
+          include ::Rea::AspectType::Classification
+          rea_ast[:classification] = {}
+          Rea::CategoryType.find_or_create_by_name name.to_s, options
           block.call if block_given?
-          @context = precontext
         end
 
-        def category *category_names, &block
-          options = category_names.extract_options!
-          category_names.flatten.each do |name|
-            attr_name = @context.is_a?(Rea::Category) ? :child_categories : :categories
-            precontext = @context
-            @context = @context.send(attr_name).find_or_create_by_name name, options
-            block.call if block_given?
-            @context = precontext
-          end
-        end
 
-        def identification name, options={}
-          cattr_accessor :identifier, :identifier_field
-          self.identifier = name
-          self.identifier_field = options.delete(:identifier_field) || :sn
+        def identification name, identifier
+          rea_ast[:identifier] = ::Rea::AspectType::IdentifierSetup.new :name=>name, :identifier=>identifier
           self.before_create :create_id_string
         end
+
+        def description name, media, options={}
+          rea[name] = ::Rea::AspectType::Description.new :name=>name, :media=>media
+        end
+
+        def due_date name, options={}
+          options = {:name=>name, :activation_rule=>'true'}.merge(options)
+          rea[name] = ::Rea::AspectType::DueDateType.new options
+          define_method "#{name}_state".to_sym do
+            if try(name).nil?
+              :disabled
+            else
+              if send(name) > Time.now
+                :incoming
+              else
+                :expired
+              end
+            end
+          end
+        end
       end
     end
   end

data/lib/rea/dsl/structural.rb

@@ -3,68 +3,51 @@ module Rea
     module Structural
       def self.included base
         base.extend ClassMethods
+        if base == ActiveRecord::Base
+
+        else
+          base.class_eval do
+            include ::Rea::Plugins::ActiveModel
+            def initialize options = {}
+              options.keys.each do |key|
+                instance_variable_set "@#{key}", options[key]
+              end
+            end
+          end
+        end
       end
 
-      module ClassMethods
-
-        def def_entity options={}, &block
-          validates_presence_of :name
-          block.call if block_given?
-        end
 
+      module ClassMethods
 
-        def item name, options={}, &block
-          @context = self.find_or_create_by_name name, options
+        def acts_as_resource options={}, &block
+          include ::Rea::MetaType::Resource
           block.call if block_given?
         end
 
-        def resource options={}, &block
-          def_entity options, &block
-        end
-
-        def event increase=true, options={}, &block
-          def_entity options, &block
-          cattr_accessor :increase
-          self.increase = increase
-        end
-
-        def increase_event options={}, &block
-          event true, options, &block
-        end
-
-        def decrease_event options={}, &block
-          event false, options, &block
-        end
 
-        def agent options={}, &block
-          def_entity options, &block
+        def acts_as_commitment options={}, &block
+          include ::Rea::MetaType::Commitment
+          yield
         end
 
-        def grouping options={}, &block
-          has_many :group_entities, :as=>:entity
-          has_many :groups, :through=>:group_entities
-          #group_class.entity_classes << self
+        def acts_as_event options={}, &block
+          include ::Rea::MetaType::Event
           block.call if block_given?
         end
 
-        def group_item *group_names, &block
-          options = group_names.extract_options!
-          group_names.flatten.each do |name|
-            @context = Rea::Group.groups(self).find_or_create_by_name(name, :entity_types=>self.name)
-            block.call if block_given?
-          end
-        end
-
-        def entity_type name, options={}, &block
-          has_many name, options
-          def_entity options, &block
+        def acts_as_agent options={}, &block
+          include ::Rea::MetaType::Agent
+          yield if block_given?
         end
 
-        def specification name, options={}
-          belongs_to name, options
+        def acts_as_contract options={}
+          include ::Rea::MetaType::Contract
+          yield if block_given?
         end
 
       end
+
     end
   end
 end

data/lib/rea/meta_type.rb

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

data/lib/rea/meta_type/agent.rb

@@ -0,0 +1,10 @@
+module Rea
+  module MetaType
+    module Agent
+      def self.included base
+        base.fields = [:name]
+        Entity.included base
+      end
+    end
+  end
+end

data/lib/rea/meta_type/commitment.rb

@@ -0,0 +1,27 @@
+module Rea
+  module MetaType
+    module Commitment
+      def self.included base
+        base.fields = [:amount]
+        Entity.included base
+        base.extend ::Rea::MetaType::Event::ClassMethods
+        base.extend ClassMethods
+        base.after_save :after_save_commitment
+      end
+
+      def after_save_commitment
+        if fulfilled_changed?
+          self.class.event_creator.create_event(self)
+        end
+      end
+
+      module ClassMethods
+
+        def event_creator klass, options={}
+          cattr_reader :event_creator
+          self.class_variable_set "@@event_creator", klass
+        end
+      end
+    end
+  end
+end

data/lib/rea/meta_type/contract.rb

@@ -0,0 +1,19 @@
+module Rea
+  module MetaType
+    module Contract
+      def self.included base
+        base.fields = nil
+        Entity.included base
+        base.extend ClassMethods
+      end
+
+      module ClassMethods
+        def clause klass, options={}
+          has_many klass.name.tableize.to_sym, {:class_name=>klass.name, :foreign_key=>:contract_id}.merge(options)
+          klass.belongs_to :contract, :class_name => self.name
+        end
+      end
+    end
+
+  end
+end

data/lib/rea/meta_type/entity.rb

@@ -0,0 +1,50 @@
+module Rea
+  module MetaType
+    module Entity
+      def self.included base
+        base.class_eval do
+          unless self.ancestors.include? ActiveRecord::Base
+            include ::Rea::Plugins::ActiveModel
+            attr_accessor *self.fields if base.fields
+          end
+          validates_presence_of *self.fields if base.fields
+        end
+        base.extend ClassMethods
+      end
+
+      module ClassMethods
+
+        def item name, options={}, &block
+          if self.ancestors.include?(ActiveRecord::Base)
+            @context = self.find_or_create_by_name name, options
+          else
+            cattr_reader name
+            @context = self.new({:name=>name.to_s, :value=>1}.merge(options))
+            self.class_variable_set "@@#{name}", @context
+          end
+          block.call if block_given?
+        end
+
+        def grouping options={}, &block
+          has_many :group_entities, :as=>:entity
+          has_many :groups, :through=>:group_entities
+          #group_class.entity_classes << self
+          block.call if block_given?
+        end
+
+        def group_item *group_names, &block
+          options = group_names.extract_options!
+          group_names.flatten.each do |name|
+            @context = Rea::Group.groups(self).find_or_create_by_name(name, :entity_types=>self.name)
+            block.call if block_given?
+          end
+        end
+
+
+        def specification name, options={}
+          belongs_to name, options
+        end
+      end
+    end
+  end
+end

data/lib/rea/meta_type/event.rb

@@ -0,0 +1,46 @@
+module Rea
+  module MetaType
+    module Event
+      def self.included base
+        base.fields = [:amount]
+        Entity.included base
+        base.extend ClassMethods
+        base.extend EventClassMethods
+      end
+
+      module EventClassMethods
+        def create_event commitment
+          amount = (commitment.fulfilled?) ? commitment.amount : -commitment.amount
+          options = {:resource_id=>commitment.resource_id, :amount=>amount}
+          options.merge!(
+            if commitment.respond_to?(:provider)
+              {:provider_id=>commitment.provider_id}
+            else
+              {:recipient_id=>commitment.recipient_id}
+            end
+          )
+          self.create! options
+        end
+      end
+
+      module ClassMethods
+        def provider klass, options={}
+          define_belongs_to_relation :provider, klass, options
+        end
+        def recipient klass, options={}
+          define_belongs_to_relation :recipient, klass, options
+        end
+        def resource klass, options={}
+          define_belongs_to_relation :resource, klass, options
+        end
+
+        protected
+        def define_belongs_to_relation name, klass, options
+          belongs_to name, {:class_name=>klass.name}.merge(options)
+          validates_presence_of "#{name}_id".to_sym
+        end
+
+      end
+    end
+  end
+end

data/lib/rea/meta_type/resource.rb

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

data/lib/rea/plugins/active_model.rb

@@ -0,0 +1,18 @@
+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/rea/dsl/behavioral_spec.rb

@@ -6,23 +6,23 @@ describe Rea::Dsl::Behavioral do
     with_model :entity do
       table do |t|
         t.string :name
+        t.string :value
         t.string :sn
       end
       model do
-        resource do
-          identification :entity_sn
+        acts_as_resource do
+          identification :sn, :entity_sn
         end
       end
     end
 
     context :sematics do
-      subject { Entity }
-      its(:identifier) { should == :entity_sn }
-      its(:identifier_field) { should == :sn }
+      subject { Entity.rea_ast }
+      its([:identifier]) { should be_a_kind_of Rea::AspectType::IdentifierSetup }
     end
 
     context :model do
-      subject { Entity.create :name=>:entity }
+      subject { Entity.create :name=>:entity, :value=>1 }
 
       before(:all) { Rea::Identifier.create! :name=>:entity_sn, :id_rule=>'#{"%010d" % last_value}' }
 
@@ -38,44 +38,112 @@ describe Rea::Dsl::Behavioral do
     with_model :entity do
       table do |t|
         t.string :name
+        t.string :value
+        t.string :category
       end
       model do
-        resource do
-          grouping do
-            group_item :group_one do
-              classification 'category_type_one'
-              classification 'category_type_two', :automatic=>true, :system=>true do
-                category :category_one, :category_two
-                category :category_tree do
-                  category :category_node_1, :category_node_2, :category_node_3
-                end
+        acts_as_resource do
+          classification do
+            category_type 'category_type_one' do |ct|
+              ct.category :cate_1 do |c|
+                c.category :cate_2, :cate_3
+              end
+            end
+            category_type 'category_type_two', :automatic=>true, :system=>true do |ct|
+              ct.category :category_one, :category_two
+              ct.category :category_tree do |c|
+                c.category :category_node_1, :category_node_2, :category_node_3
               end
             end
           end
+          member :category, :type=>:category_type_one
         end
       end
     end
 
-    context :category_type_defaults do
-      subject { Rea::CategoryType.find_by_name 'category_type_one' }
+    context :sematics do
+
+      context :category_type_defaults do
+        subject { Rea::CategoryType.find_by_name 'category_type_one' }
+
+        it { should_not be_nil }
+        it { should_not be_system }
+        it { should_not be_multiple }
+        it { should_not be_automatic }
+      end
+
+      context :category_type_two do
+        subject { Rea::CategoryType.find_by_name 'category_type_two' }
+
+        it { should_not be_nil }
+        its(:categories) { should have(6).items }
+        context :category_tree do
+          subject { Rea::Category.find_by_name('category_tree').child_categories }
+          it { should have(3).items }
+        end
+      end
 
-      it { should_not be_nil }
-      it { should_not be_system }
-      it { should_not be_multiple }
-      it { should_not be_automatic }
+      context :rea do
+        subject { Entity.rea }
+        its([:category]) { should be_a_kind_of(Rea::AspectType::MemberType) }
+      end
+      context :member_field do
+        subject { Entity.rea[:category] }
+        its(:category_options) { should have(3).items }
+      end
     end
+    context :model do
+      context :entity do
+        context :methods do
+          let(:cate_3) { Rea::Category.find_by_name :cate_3 }
+          let(:cate_1) { Rea::Category.find_by_name :cate_1 }
+          subject { Entity.create :name=>:name, :value=>1, :category=>:cate_3 }
+          it { subject.is(cate_3).should be_true }
+          it { subject.is_in(cate_1).should be_true }
+        end
+      end
+    end
+  end
 
-    context :category_type_two do
-      subject { Rea::CategoryType.find_by_name 'category_type_two' }
+  context :description do
 
-      it { should_not be_nil }
-      its(:categories) { should have(3).items }
-      context :category_tree do
-        subject { Rea::Category.find_by_name('category_tree').child_categories }
-        it { should have(3).items }
+    with_model :entity do
+      table do |t|
       end
+      model do
+        acts_as_resource do
+          description :text, :text
+          description :markdown, :md
+        end
+      end
+    end
 
+    subject { Entity.rea }
+    its([:text]) { should be_a_kind_of(Rea::AspectType::Description) }
+  end
+
+  context :due_date do
+    with_model :entity do
+      table do |t|
+        t.datetime :date_one
+        t.datetime :date_two
+      end
+      model do
+        acts_as_resource do
+          due_date :date_one
+          due_date :date_two, :activation_rule=>'date_one.nil?'
+        end
+      end
     end
 
+    context :sematics do
+      subject { Entity.rea }
+      its([:date_one]) { should be_a_kind_of(::Rea::AspectType::DueDateType) }
+    end
+    context :model do
+      subject { Entity.new :date_one=>1.day.ago, :date_two=>nil }
+      its(:date_one_state) { should == :expired }
+      its(:date_two_state) { should == :disabled }
+    end
   end
 end

data/spec/rea/dsl/structural_spec.rb

@@ -1,112 +1,270 @@
 require 'spec_helper'
 
 describe Rea::Dsl::Structural do
-
-  context :resource do
-    with_model :resource do
-      table do |t|
-        t.string :name
-      end
-      model do
-        resource do
-        end
+  shared_examples "entities" do |attrs, defaults|
+    context :definations do
+      let!(:entity) { entity_class.new defaults }
+      subject { entity_class }
+      attrs.each do |attr|
+        its(:public_instance_methods) { should include attr }
       end
     end
-
-    subject { Resource.new }
-    context :validation do
-      it { subject.respond_to?(:name).should be_true }
-      it { subject.should_not be_valid }
+    context :validations do
+      context :valid do
+        subject { (entity_class).new defaults }
+        after(:each) { pp subject.errors unless subject.valid? }
+        it { should be_valid }
+      end
+      context :invalid do
+        subject { (entity_class).new }
+        it { should_not be_valid }
+      end
     end
   end
 
-  context :event do
-    with_model :event do
+  def self.create_entity_model name, columns = [:name, :value], &block
+    with_model name do
       table do |t|
-        t.string :name
-      end
-      model do
-        event
+        columns.each do |c| t.string c end
       end
+      model &block
     end
-    subject { Event.new }
-    it { subject.respond_to?(:name).should be_true }
+    let!(:entity_class) { name.to_s.camelize.constantize }
   end
 
-  context :agent do
-    with_model :agent do
-      table do |t|
-        t.string :name
+
+  context :acts_as_resource do
+    context :active_record do
+      with_model :resource do
+        table do |t|
+          t.string :name
+          t.decimal :value
+        end
+        model do
+          acts_as_resource
+        end
       end
-      model do
-        agent
+      let!(:entity_class) { Resource }
+      include_examples "entities", [:name, :value], :name=>:name, :value=>1
+    end
+
+    context :simple_class do
+      class SimpleResource
+        include Rea::Dsl
+        acts_as_resource do
+          item :rmb, :id=>1, :value=>1
+          item :usd, :id=>2, :value=>6.78
+        end
+      end
+
+      entity_class = SimpleResource
+      let!(:entity_class) { entity_class }
+      include_examples "entities", [:name, :value], :name=>:name, :value=>1
+      context :nested_items do
+        subject { entity_class }
+        its("rmb.value") { should == 1 }
+        its("rmb.name") { should == "rmb" }
+        its("usd.value") { should == 6.78 }
       end
     end
-    subject { Agent.new }
-    it { subject.respond_to?(:name).should be_true }
   end
 
-  context :entity do
+  context :acts_as_agent do
+    context :active_record do
+      create_entity_model(:agent, [:name]) do acts_as_agent end
+      include_examples "entities", [:name], :name=>:name
+    end
 
-    with_model :entity do
-      table do |t|
-        t.string :name
-      end
-      model do
-        resource do
-          item :name_one
-          item :name_two
+    context :simple_class do
+      class SimpleAgent
+        include Rea::Dsl
+        acts_as_agent do
+          item :facebook, :id=>1
+          item :google, :id=>2
         end
       end
-    end
-    context :item do
-      it :have_2_items do
-        Entity.count.should == 2
+      entity_class = SimpleAgent
+      let!(:entity_class) { entity_class}
+      include_examples "entities", [:name], :name=>:name
+      context :nested_items do
+        subject { entity_class }
+        its("facebook.name") { should == "facebook" }
       end
     end
+
   end
 
-  context :entity_type do
-    with_model :entity_type do
-      table do |t|
-        t.string :name
+  context :acts_as_event do
+    context :active_record do
+      with_model :resource do
+        table do |t|
+          t.string :name
+          t.decimal :value
+        end
+        model do
+          acts_as_resource
+        end
       end
-      model do
-        entity_type :entities
+      with_model :agent do
+        table do |t|
+          t.string :name
+        end
+        model do
+          acts_as_agent
+        end
+      end
+      with_model :increment_event do
+        table do |t|
+          t.references :resource
+          t.references :provider
+          t.decimal :amount
+          t.timestamps
+        end
+        model do
+          acts_as_event do
+            resource Resource
+            provider Agent
+          end
+        end
       end
+      let!(:entity_class) { IncrementEvent }
+      include_examples "entities", [:resource, :amount, :provider ], {:resource_id=>1,:provider_id=>1,:amount=>1}
     end
 
-    with_model :entity do
-      table do |t|
-        t.string :name
-        t.references :entity_type
+  end
+  context :acts_as_increment_commitment do
+    context :active_record do
+      with_model :resource do
+        table do |t|
+          t.string :name
+          t.decimal :value
+        end
+        model do
+          acts_as_resource
+        end
       end
-      model do
-        resource do
-          specification :entity_type
+      with_model :agent do
+        table do |t|
+          t.string :name
+        end
+        model do
+          acts_as_agent
+        end
+      end
+      with_model :increment_event do
+        table do |t|
+          t.references :resource
+          t.references :provider
+          t.decimal :amount
+          t.timestamps
+        end
+        model do
+          acts_as_event do
+            resource Resource
+            provider Agent
+          end
         end
       end
-    end
 
-    context :entity do
-      subject { Entity.reflect_on_association(:entity_type) }
+      with_model :increment_commitment do
+        table do |t|
+          t.references :resource
+          t.references :provider
+          t.decimal :amount
+          t.boolean :fulfilled, :default=>false
+          t.timestamps
+        end
+        model do
+          acts_as_commitment do
+            resource Resource
+            provider Agent
+            event_creator IncrementEvent
+          end
+        end
+      end
+      let!(:entity_class) { IncrementCommitment }
+      include_examples "entities", [:resource, :amount, :provider ], {:resource_id=>1,:provider_id=>1,:amount=>1}
 
-      it { should_not be_nil }
-      its(:macro) { should == :belongs_to }
-    end
+      context :fulfill do
+        subject { IncrementCommitment }
+        its(:event_creator) { should == IncrementEvent }
+      end
 
-    context :entity_type do
-      subject { EntityType.reflect_on_association(:entities) }
-      it { should_not be_nil }
-      its(:macro) { should == :has_many }
+      context :callback do
+        subject { IncrementCommitment.new :resource_id=>1, :provider_id=>1, :amount=>1, :fulfilled=>true }
+        it :should_create_event do
+          expect {
+            subject.save
+          }.to change {IncrementEvent.count}
+        end
+        it :event_sum_amount_should_plus_when_fulfill do
+          expect {
+            subject.save
+          }.to change{IncrementEvent.sum(:amount)}.by(1)
+        end
+        it :event_sum_amount_should_minus_when_not_fulfill do
+          subject.save
+          subject.fulfilled = false
+          expect {
+            subject.save
+          }.to change{IncrementEvent.sum(:amount)}.by(-1)
+        end
+      end
     end
+  end
 
-    context :entity_create do
-      let!(:entity_type) { EntityType.create :name=>:type }
-      let!(:entity) { entity_type.entities.create :name=>:type }
-
-      subject { entity_type }
-      its(:entities) { should have(1).items }
+  context :acts_as_contract do
+    context :normal do
+      with_model :increment_commitment do
+        table do |t|
+          t.references :provider
+          t.references :resource
+          t.references :contract
+          t.decimal :amount
+          t.boolean :fulfilled
+        end
+        model do
+          acts_as_commitment do
+          end
+        end
+      end
+      with_model :decrement_commitment do
+        table do |t|
+          t.references :contract
+        end
+        model do
+          acts_as_commitment do
+          end
+        end
+      end
+      with_model :order do
+        table do |t|
+        end
+        model do
+          acts_as_contract do
+            clause IncrementCommitment
+            clause DecrementCommitment
+          end
+        end
+      end
+      context :sematics do
+        context :contract do
+          subject { Order }
+          its(:public_instance_methods) { should include :increment_commitments }
+          its(:public_instance_methods) { should include :decrement_commitments }
+        end
+        context :commitment do
+          subject { IncrementCommitment }
+          its(:public_instance_methods) { should include :contract }
+        end
+      end
+      context :model do
+        subject { Order.create }
+        it :could_add_increment_commitment do
+          expect { subject.increment_commitments.create :provider_id=>1, :resource_id=>1, :amount=>10
+          }.to change{IncrementCommitment.count}
+        end
+      end
     end
   end
 
@@ -116,7 +274,7 @@ describe Rea::Dsl::Structural do
         t.string :name
       end
       model do
-        resource do
+        acts_as_resource do
           grouping do
             group_item :group_one, :group_two
             group_item :group_three

data/spec/rea/meta_type_spec.rb

@@ -0,0 +1,11 @@
+require 'spec_helper'
+
+describe Rea::MetaType do
+
+  context :autoload do
+
+    subject { described_class }
+
+    it { subject.autoload?(:Event).should be_true }
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: engine-rea
 version: !ruby/object:Gem::Version
-  version: 0.1.1
+  version: 0.2.1
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-06-06 00:00:00.000000000 Z
+date: 2012-06-19 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rails
@@ -301,13 +301,31 @@ files:
 - db/migrate/20120605030708_create_rea_group_entities.rb
 - db/migrate/20120605082028_create_rea_identifiers.rb
 - engine-rea.gemspec
+- lib/engine-rea.rb
 - lib/generators/rea/install/USAGE
 - lib/generators/rea/install/install_generator.rb
 - lib/rea.rb
+- lib/rea/aspect_type.rb
+- lib/rea/aspect_type/base.rb
+- lib/rea/aspect_type/classification_aspect.rb
+- lib/rea/aspect_type/description.rb
+- lib/rea/aspect_type/due_date_type.rb
+- lib/rea/aspect_type/identifier_setup.rb
 - lib/rea/dsl.rb
 - lib/rea/dsl/behavioral.rb
 - lib/rea/dsl/structural.rb
 - lib/rea/engine.rb
+- lib/rea/meta_type.rb
+- lib/rea/meta_type/agent.rb
+- lib/rea/meta_type/commitment.rb
+- lib/rea/meta_type/contract.rb
+- lib/rea/meta_type/entity.rb
+- lib/rea/meta_type/event.rb
+- lib/rea/meta_type/group.rb
+- lib/rea/meta_type/resource.rb
+- lib/rea/meta_type/schedule.rb
+- lib/rea/meta_type/type.rb
+- lib/rea/plugins/active_model.rb
 - lib/tasks/cucumber.rake
 - lib/tasks/rea_tasks.rake
 - lib/tasks/watchr.rake
@@ -338,7 +356,6 @@ files:
 - spec/dummy/config/initializers/wrap_parameters.rb
 - spec/dummy/config/locales/en.yml
 - spec/dummy/config/routes.rb
-- spec/dummy/db/development.sqlite3
 - spec/dummy/db/schema.rb
 - spec/dummy/lib/assets/.gitkeep
 - spec/dummy/log/.gitkeep
@@ -359,6 +376,7 @@ files:
 - spec/rea/dsl/structural_spec.rb
 - spec/rea/dsl_spec.rb
 - spec/rea/engine_spec.rb
+- spec/rea/meta_type_spec.rb
 - spec/spec_helper.rb
 homepage: http://github.com/lazing/engine-rea
 licenses:
@@ -375,7 +393,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
       version: '0'
       segments:
       - 0
-      hash: -984343217
+      hash: -104373165
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements: