engine-rea 0.2.1 → 0.2.2

data/lib/rea/meta_type/event.rb

@@ -3,40 +3,33 @@ module Rea
     module Event
       def self.included base
         base.fields = [:amount]
-        Entity.included base
+        base.send :include, Entity
         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
+        def provider klass_or_symbol, options={}
+          define_belongs_to_relation :provider, klass_or_symbol, options
+        end
+
+        def recipient klass_or_symbol, options={}
+          define_belongs_to_relation :recipient, klass_or_symbol, options
         end
-        def recipient klass, options={}
-          define_belongs_to_relation :recipient, klass, options
+
+        def resource klass_or_symbol, options={}
+          define_belongs_to_relation :resource, klass_or_symbol, options
         end
-        def resource klass, options={}
-          define_belongs_to_relation :resource, klass, options
+
+        def setup options
+          class_option_set :type, options
         end
 
         protected
-        def define_belongs_to_relation name, klass, options
-          belongs_to name, {:class_name=>klass.name}.merge(options)
+        def define_belongs_to_relation name, klass_or_symbol, options
+          $klass = klass_or_symbol.is_a?(Symbol) ? klass_or_symbol.to_s.camelize.constantize : klass_or_symbol
+          attr_accessible :"#{name}_id"
+          belongs_to name, {:class_name=>$klass.name}.merge(options)
           validates_presence_of "#{name}_id".to_sym
         end
 

data/lib/rea/meta_type/exchange.rb

@@ -0,0 +1,6 @@
+module Rea
+  module MetaType
+    class Exchange < Process
+    end
+  end
+end

data/lib/rea/meta_type/group.rb

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

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

@@ -3,7 +3,11 @@ module Rea
     module Resource
       def self.included base
         base.fields = [:name, :value]
-        Entity.included base
+        base.send :include, Entity
+        base.extend ClassMethod
+      end
+
+      module ClassMethod
       end
     end
   end

data/lib/rea/model.rb

@@ -0,0 +1,65 @@
+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/settings.rb

@@ -0,0 +1,58 @@
+require 'active_support/concern'
+
+module Rea
+
+  # Adds a class method to a class to create settings with default values.
+  #
+  # Example:
+  #
+  #   class Configuration
+  #     include ActiveAdmin::Settings
+  #
+  #     setting :site_title, "Default Site Title"
+  #   end
+  #
+  #   conf = Configuration.new
+  #   conf.site_title #=> "Default Site Title"
+  #   conf.site_title = "Override Default"
+  #   conf.site_title #=> "Override Default"
+  #
+  module Settings
+    extend ActiveSupport::Concern
+
+    def read_default_setting(name)
+      default_settings[name]
+    end
+
+    private
+
+    def default_settings
+      self.class.default_settings
+    end
+
+    module ClassMethods
+
+      def setting(name, default)
+        default_settings[name] = default
+        attr_accessor(name)
+
+        # Create an accessor that grabs from the defaults
+        # if @name has not been set yet
+        class_eval <<-EOC, __FILE__, __LINE__ + 1
+          def #{name}
+            if instance_variable_defined? :@#{name}
+              @#{name}
+            else
+              read_default_setting(:#{name})
+            end
+          end
+        EOC
+      end
+
+      def default_settings
+        @default_settings ||= {}
+      end
+
+    end
+  end
+end

data/spec/dummy/db/schema.rb

@@ -11,61 +11,6 @@
 #
 # It's strongly recommended to check this file into your version control system.
 
-ActiveRecord::Schema.define(:version => 20120605082028) do
-
-  create_table "rea_categories", :force => true do |t|
-    t.string   "name"
-    t.integer  "category_type_id"
-    t.integer  "category_id"
-    t.datetime "created_at",       :null => false
-    t.datetime "updated_at",       :null => false
-  end
-
-  add_index "rea_categories", ["category_id"], :name => "index_rea_categories_on_category_id"
-  add_index "rea_categories", ["category_type_id"], :name => "index_rea_categories_on_category_type_id"
-
-  create_table "rea_category_members", :force => true do |t|
-    t.integer  "entity_id"
-    t.string   "entity_type"
-    t.integer  "category_id"
-    t.datetime "created_at",  :null => false
-    t.datetime "updated_at",  :null => false
-  end
-
-  add_index "rea_category_members", ["category_id"], :name => "index_rea_category_members_on_category_id"
-  add_index "rea_category_members", ["entity_id", "entity_type"], :name => "index_rea_category_members_on_entity_id_and_entity_type"
-
-  create_table "rea_category_types", :force => true do |t|
-    t.string  "name"
-    t.integer "group_id"
-    t.string  "group_type"
-    t.boolean "system"
-    t.boolean "automatic"
-    t.boolean "multiple"
-  end
-
-  add_index "rea_category_types", ["group_id", "group_type"], :name => "index_rea_category_types_on_group_id_and_group_type"
-
-  create_table "rea_group_entities", :force => true do |t|
-    t.integer "entity_id"
-    t.string  "entity_type"
-    t.integer "group_id"
-  end
-
-  create_table "rea_groups", :force => true do |t|
-    t.string   "name"
-    t.string   "entity_types"
-    t.datetime "created_at",   :null => false
-    t.datetime "updated_at",   :null => false
-  end
-
-  create_table "rea_identifiers", :force => true do |t|
-    t.string   "name"
-    t.string   "value_reset_rule"
-    t.string   "id_rule"
-    t.integer  "last_value",       :default => 0
-    t.datetime "created_at",                      :null => false
-    t.datetime "updated_at",                      :null => false
-  end
+ActiveRecord::Schema.define(:version => 0) do
 
 end

data/spec/generators/rea/install/install_generator_spec.rb

@@ -24,4 +24,6 @@ describe Rea::InstallGenerator do
       end
     }
   end
+
+
 end

data/spec/models/rea/category_member_spec.rb

@@ -1,5 +1,9 @@
 require 'spec_helper'
 
 describe Rea::CategoryMember do
-  pending "add some examples to (or delete) #{__FILE__}"
+  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_spec.rb

@@ -1,5 +1,23 @@
 require 'spec_helper'
 
 describe Rea::Category do
-  pending "add some examples to (or delete) #{__FILE__}"
+
+  before :all do
+    ct = Rea::CategoryType.create! :name=>'type'
+    ct.category :cate0101, :cate0102
+  end
+
+  context :class do
+    subject { described_class }
+  end
+
+  context :instance do
+    subject { Rea::Category.last }
+    before :all do
+      subject.category_members.create! 
+    end
+
+    its(:category_members) { should have(1).items }
+  end
+
 end

data/spec/models/rea/category_type_spec.rb

@@ -1,5 +1,28 @@
 require 'spec_helper'
 
 describe Rea::CategoryType do
-  pending "add some examples to (or delete) #{__FILE__}"
+
+  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_spec.rb

@@ -1,5 +1,38 @@
 require 'spec_helper'
 
 describe Rea::Group do
-  pending "add some examples to (or delete) #{__FILE__}"
+  context :associations do
+    subject { described_class.reflect_on_all_associations.map(&:name) }
+    it { should include :group_type }
+    it { should include :categories }
+    it { should include :category_types }
+  end
+
+  context :model do
+    context :categories do
+      subject { described_class.create! :name=>:group }
+
+      it { should_not be_nil }
+      it :could_relate_category do
+        category = Rea::Category.create :name=>:category
+        expect {
+          subject.categories << category
+        }.to change { category.groups.count }.by(1)
+      end
+    end
+
+    context :category_types do
+      let(:category_type){Rea::CategoryType.create :name=>:type}
+      let(:category) { category_type.categories.create :name=>:category }
+
+      subject { described_class.create! :name=>:group }
+
+      before :each do
+        subject.categories = [category]
+      end
+
+      its(:category_types) { should have(1).items }
+      its(:category_types) { should include category_type }
+    end
+  end
 end

data/spec/models/rea/group_type_spec.rb

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