module-cluster 1.3.7 → 1.4.0

data/spec/_private_/ModuleCluster/CascadeFeatures/PerformCascades_spec.rb

@@ -0,0 +1,278 @@
+
+require_relative '../../../../lib/module-cluster.rb'
+
+describe ModuleCluster::CascadeFeatures::PerformCascades do
+
+  ##########################################
+  #  collect_block_runtime_result_modules  #
+  ##########################################
+
+  it 'can run a block and return any modules that were returned by the block' do
+    # condition is a ModuleCluster-extended module
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule01
+    end
+    # a module to be included/extended at hook time
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule01
+    end
+    # another module includes the first module and invokes the runtime hook
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule01
+    end
+    # we need a mock instance to use our methods
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock01
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module_self = ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule01
+    hooked_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule01
+    block_ran = false
+    runtime_includes_block = Proc.new { block_ran = true ; ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule01 }
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include, nil, runtime_includes_block )
+    result_modules = ModuleCluster::CascadeFeatures::PerformCascades::Mock01.collect_block_runtime_result_modules( module_self,
+                                                                                                                   hooked_instance,
+                                                                                                                   set )
+    block_ran.should == true
+    result_modules.should == [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule01 ]
+  end
+
+  ########################################
+  #  should_include_or_extend_instance?  #
+  ########################################
+
+  it 'can report whether an instance should be included or extended based on a descriptor symbol' do
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock02
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleInstance02
+    end
+    class ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02
+    end
+    
+    module_class_instance_or_all = :all
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02.new
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+    module_class_instance_or_all = :module
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02.new
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    module_class_instance_or_all = :class
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02.new
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    module_class_instance_or_all = :instance
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == false
+    into_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockClassInstance02.new
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock02.should_include_or_extend_instance?( module_class_instance_or_all, into_instance ).should == true
+  end
+
+  #######################################
+  #  include_or_extend_hooked_instance  #
+  #######################################
+
+  it 'can include or extend the hooked instance as appropriate' do
+    # condition is a ModuleCluster-extended module
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule03
+    end
+    # a module to be included/extended at hook time
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03
+    end
+    # another module includes the first module and invokes the runtime hook
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03A
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03B
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03C
+    end
+    # we need a mock instance to use our methods
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock03
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module_self = ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule03
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ] )
+
+    # include
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock03.include_or_extend_hooked_instance( ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03A, 
+                                                                                               set, 
+                                                                                               true, 
+                                                                                               false, 
+                                                                                               set.modules )
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03A.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == true
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03A ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == false
+    # extend
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock03.include_or_extend_hooked_instance( ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03B, 
+                                                                                               set, 
+                                                                                               false, 
+                                                                                               true, 
+                                                                                               set.modules )    
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03B.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == false
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03B ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == true
+    # include and extend
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock03.include_or_extend_hooked_instance( ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03C, 
+                                                                                               set, 
+                                                                                               true, 
+                                                                                               true, 
+                                                                                               set.modules )
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03C.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == true
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule03C ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule03 ).should == true
+    
+  end
+
+  ##########################################
+  #  cascade_modules_into_hooked_instance  #
+  ##########################################
+
+  it 'can cascade modules into the hooked instance as appropriate' do
+    # condition is a ModuleCluster-extended module
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule04
+      def declaration_method( modules )
+        @declaration_method_called = true
+      end
+      def called_declaration_method
+        return @declaration_method_called
+      end
+    end
+    # a module to be included/extended at hook time
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule04A
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule04B
+    end
+    # another module includes the first module and invokes the runtime hook
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule04
+    end
+    # we need a mock instance to use our methods
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock04
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module_self = ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule04
+    hooked_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule04
+    block_ran = false
+    runtime_includes_block = Proc.new { block_ran = true ; ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule04B }
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule04A ], runtime_includes_block )
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock04.cascade_modules_into_hooked_instance( module_self, hooked_instance, set, set.modules )
+    # hooked instance should be extended with dependency module (module_self) and :declaration_method should be called on it
+    hooked_instance_eigenclass = class << hooked_instance ; self ; end
+    hooked_instance_eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule04 ).should == true
+    hooked_instance.called_declaration_method.should == true
+  end
+
+  ############################
+  #  include_extend_modules  #
+  ############################
+
+  it 'can perform include and/or extend of specified modules into instance' do
+    # condition is a ModuleCluster-extended module
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule05
+    end
+    # a module to be included/extended at hook time
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05
+    end
+    # another module includes the first module and invokes the runtime hook
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05A
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05B
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05C
+    end
+    # we need a mock instance to use our methods
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock05
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module_self = ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule05
+
+    # include
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ] )
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock05.include_extend_modules( ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule05, 
+                                                                                    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05A, 
+                                                                                    set, 
+                                                                                    set.modules )
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05A.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == true
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05A ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == false
+    # extend
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :extend, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ] )
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock05.include_extend_modules( ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule05, 
+                                                                                    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05B, 
+                                                                                    set, 
+                                                                                    set.modules )    
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05B.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == false
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05B ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == true
+    # include and extend
+    set = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include_and_extend, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ] )
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock05.include_extend_modules( ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule05, 
+                                                                                    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05C, 
+                                                                                    set, 
+                                                                                    set.modules )
+    ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05C.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == true
+    eigenclass = class << ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule05C ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule05 ).should == true
+    
+  end
+
+  ######################
+  #  cascade_features  #
+  ######################
+
+  it 'can perform cascade of specified modules into instance' do
+
+    # condition is a ModuleCluster-extended module
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule06
+      def self.should_include_or_extend?( hooked_instance )
+        return true
+      end
+      def self.should_cascade?( hooked_instance )
+        return true
+      end
+      def declaration_method( modules )
+        @declaration_method_called = true
+      end
+      def called_declaration_method
+        return @declaration_method_called
+      end
+    end
+    # a module to be included/extended at hook time
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06A
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06B
+    end
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06C
+    end
+    # another module includes the first module and invokes the runtime hook
+    module ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule06
+    end
+    # we need a mock instance to use our methods
+    module ModuleCluster::CascadeFeatures::PerformCascades::Mock06
+      extend ModuleCluster::CascadeFeatures::PerformCascades
+    end
+    module_self = ModuleCluster::CascadeFeatures::PerformCascades::MockCascadeModule06
+    hooked_instance = ModuleCluster::CascadeFeatures::PerformCascades::MockModuleIncludingMockCascadeModule06
+    set_one = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06A ] )
+    set_two = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :extend, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06B ] )
+    set_three = ModuleCluster::ClusterStack::Set.new( module_self, :declaration_method, :all, :include_and_extend, [ ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06C ] )
+    set_stack = [ set_one, set_two, set_three ]
+    ModuleCluster::CascadeFeatures::PerformCascades::Mock06.cascade_features( module_self, hooked_instance, set_stack )
+    hooked_instance.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06A ).should == true
+    hooked_instance.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06C ).should == true
+    eigenclass = class << hooked_instance ; self ; end
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06B ).should == true
+    eigenclass.ancestors.include?( ModuleCluster::CascadeFeatures::PerformCascades::MockHookedIncludeModule06C ).should == true
+    # also our dependency module should be extended
+    eigenclass.ancestors.include?( module_self ).should == true
+    hooked_instance.called_declaration_method.should == true
+  end
+
+end

metadata

@@ -2,7 +2,7 @@
 name: module-cluster
 version: !ruby/object:Gem::Version 
   prerelease: 
-  version: 1.3.7
+  version: 1.4.0
 platform: ruby
 authors: 
 - Asher
@@ -10,7 +10,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-10-18 00:00:00 Z
+date: 2011-12-22 00:00:00 Z
 dependencies: []
 
 description: "Provides methods for clustering modules so that when the main module is included other modules are also included or extended, either before or after the main module. There are currently three variants: cluster, cascade, cascade to class. Cluster causes the next module to be affected. Cascade causes all subsequent modules to be affected. Cascade to class causes the first including/extending class to be affected, but not any modules prior to it (although the effects will cascade through those unaffected modules)."
@@ -22,32 +22,61 @@ extensions: []
 extra_rdoc_files: []
 
 files: 
-- lib/module-cluster/ModuleCluster/CascadeFeatures.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/Block/Class.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/Block/Module.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/Block.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/Extends.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/Includes.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/PrependsExtends.rb
-- lib/module-cluster/ModuleCluster/ClusterStack/PrependsIncludes.rb
-- lib/module-cluster/ModuleCluster/ClusterStack.rb
+- lib/module-cluster/_private_/ModuleCluster/CascadeFeatures/ClusterStack.rb
+- lib/module-cluster/_private_/ModuleCluster/CascadeFeatures/PerformCascades.rb
+- lib/module-cluster/_private_/ModuleCluster/CascadeFeatures.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Block/Class.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Block/Instance.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Block/Module.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Block/Set.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Block.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Extends.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Includes.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/PrependsExtends.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/PrependsIncludes.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack/Set.rb
+- lib/module-cluster/_private_/ModuleCluster/ClusterStack.rb
+- lib/module-cluster/_private_/ModuleCluster/ExtendForCascade.rb
 - lib/module-cluster/ModuleCluster/Define/Block/Class.rb
+- lib/module-cluster/ModuleCluster/Define/Block/ClassOrInstance.rb
 - lib/module-cluster/ModuleCluster/Define/Block/ClassOrModule.rb
+- lib/module-cluster/ModuleCluster/Define/Block/ClassOrModuleOrInstance.rb
+- lib/module-cluster/ModuleCluster/Define/Block/Instance.rb
 - lib/module-cluster/ModuleCluster/Define/Block/Module.rb
+- lib/module-cluster/ModuleCluster/Define/Block/ModuleOrInstance.rb
 - lib/module-cluster/ModuleCluster/Define/Block.rb
+- lib/module-cluster/ModuleCluster/Define/ClassCluster.rb
+- lib/module-cluster/ModuleCluster/Define/ClassOrInstanceCluster.rb
 - lib/module-cluster/ModuleCluster/Define/Cluster.rb
 - lib/module-cluster/ModuleCluster/Define/ClusterCascades.rb
 - lib/module-cluster/ModuleCluster/Define/ClusterCascadesToClass.rb
 - lib/module-cluster/ModuleCluster/Define/ClusterCascadesToModule.rb
-- lib/module-cluster/ModuleCluster/Define/ClusterStack.rb
 - lib/module-cluster/ModuleCluster/Define/Deprecated.rb
-- lib/module-cluster/ModuleCluster/ExtendForCascade.rb
+- lib/module-cluster/ModuleCluster/Define/InstanceCluster.rb
+- lib/module-cluster/ModuleCluster/Define/ModuleCluster.rb
+- lib/module-cluster/ModuleCluster/Define/ModuleOrClassCluster.rb
+- lib/module-cluster/ModuleCluster/Define/ModuleOrInstanceCluster.rb
 - lib/module-cluster/ModuleCluster.rb
 - lib/module-cluster.rb
+- spec/_private_/ModuleCluster/CascadeFeatures/PerformCascades_spec.rb
+- spec/ModuleCluster/Define/Block/Class_spec.rb
+- spec/ModuleCluster/Define/Block/ClassOrInstance_spec.rb
+- spec/ModuleCluster/Define/Block/ClassOrModule_spec.rb
+- spec/ModuleCluster/Define/Block/ClassOrModuleOrInstance_spec.rb
+- spec/ModuleCluster/Define/Block/Instance_spec.rb
+- spec/ModuleCluster/Define/Block/Module_spec.rb
+- spec/ModuleCluster/Define/Block/ModuleOrInstance_spec.rb
+- spec/ModuleCluster/Define/Block_spec.rb
+- spec/ModuleCluster/Define/ClassCluster_spec.rb
+- spec/ModuleCluster/Define/ClassOrInstanceCluster_spec.rb
 - spec/ModuleCluster/Define/Cluster_spec.rb
 - spec/ModuleCluster/Define/ClusterCascades_spec.rb
 - spec/ModuleCluster/Define/ClusterCascadesToClass_spec.rb
 - spec/ModuleCluster/Define/ClusterCascadesToModule_spec.rb
+- spec/ModuleCluster/Define/InstanceCluster_spec.rb
+- spec/ModuleCluster/Define/ModuleCluster_spec.rb
+- spec/ModuleCluster/Define/ModuleOrClassCluster_spec.rb
+- spec/ModuleCluster/Define/ModuleOrInstanceCluster_spec.rb
 - spec/ModuleCluster_spec.rb
 - README.md
 - README.rdoc

data/lib/module-cluster/ModuleCluster/CascadeFeatures.rb

@@ -1,197 +0,0 @@
-
-module ModuleCluster::CascadeFeatures
-  
-  CascadeStruct = Struct.new( :includes, :extends, :cascades, :runtime_block )
-  DependencyModule = Struct.new( :class_or_module, :method, :modules )
-  
-  #####################################################
-  #  self.get_runtime_includes_or_extends_from_block  #
-  #####################################################
-  
-  def self.get_runtime_includes_or_extends_from_block( module_self, class_or_module, include_or_extend, runtime_includes_or_extends_block )
-    
-    includes_or_extends = nil
-    
-    case runtime_includes_or_extends_block.arity
-      when 0
-        includes_or_extends = module_self.instance_eval( & runtime_includes_or_extends_block )
-      else
-        includes_or_extends = module_self.instance_exec( class_or_module, & runtime_includes_or_extends_block )
-    end
-    
-    unless includes_or_extends.is_a?( Array )
-      includes_or_extends = [ includes_or_extends ]
-    end
-    
-    return includes_or_extends
-    
-  end
-  
-  #######################################
-  #  self.cascade_struct_for_set_stack  #
-  #######################################
-  
-  def self.cascade_struct_for_set_stack( module_self, class_or_module, set_stack )
-    
-    includes = Array.new
-    extends = Array.new
-    cascades = Hash.new
-    
-    set_stack.each do |this_set|
-      
-      if this_set.is_a?( ModuleCluster::ClusterStack::Block::Set )
-        
-        class_or_module.instance_eval do
-          extend( ModuleCluster )
-        end
-        
-        case this_set.runtime_block.arity
-          when 0
-            module_self.instance_eval( & this_set.runtime_block )
-          else
-            module_self.instance_exec( class_or_module, & this_set.runtime_block )
-        end
-        
-      else
-        
-        # get cascades
-        if this_set.dependency_module.should_cascade?( class_or_module )
-          cascades[ this_set.dependency_module ] ||= Hash.new
-          cascades[ this_set.dependency_module ][ this_set.method ] ||= Array.new
-          cascades[ this_set.dependency_module ][ this_set.method ].concat( this_set.modules )            
-        end
-
-        # get runtime block
-        runtime_set = nil
-        if block = this_set.runtime_includes_or_extends_block
-          runtime_set = ModuleCluster::CascadeFeatures.get_runtime_includes_or_extends_from_block( module_self, 
-                                                                                                   class_or_module,
-                                                                                                   this_set.include_or_extend,
-                                                                                                   block )
-          cascades[ this_set.dependency_module ] ||= Hash.new
-          cascades[ this_set.dependency_module ][ this_set.method ] ||= Array.new
-          cascades[ this_set.dependency_module ][ this_set.method ].concat( runtime_set )
-        end
-        # get includes/extends
-        case this_set.include_or_extend
-          when :include
-            this_set.modules.each do |this_module|
-              if this_set.dependency_module.should_include_or_extend?( class_or_module )
-                includes.concat( this_set.modules )            
-              end
-            end
-            includes.concat( runtime_set ) if runtime_set
-          when :extend
-            if this_set.dependency_module.should_include_or_extend?( class_or_module )
-              extends.concat( this_set.modules )
-            end
-            extends.concat( runtime_set ) if runtime_set
-        end
-      
-      end
-      
-    end
-    
-    includes.uniq!
-    includes.compact!
-    extends.uniq!
-    extends.compact!
-    cascades.each do |this_dependency_module, this_method_and_module_set|
-      this_method_and_module_set.each do |this_method, this_module_set|
-        this_module_set.uniq!
-        this_module_set.compact!
-      end
-    end
-        
-    return ModuleCluster::CascadeFeatures::CascadeStruct.new( includes, extends, cascades )
-    
-  end
-  
-  ###########################
-  #  self.cascade_features  #
-  ###########################
-  
-  def self.cascade_features( class_or_module, cascade_struct )
-    
-    if class_or_module.is_a?( Module )
-
-      class_or_module.module_eval do
-        include( *cascade_struct.includes.reverse ) unless cascade_struct.includes.empty?
-        extend( *cascade_struct.extends.reverse ) unless cascade_struct.extends.empty?
-      end
-
-      cascade_struct.cascades.each do |this_dependency_module, this_method_and_module_set|
-        this_method_and_module_set.each do |this_method, this_module_set|
-          this_dependency_module.perform_cascades( class_or_module, this_method, this_module_set )
-        end
-      end
-
-    else
-      
-      class_or_module.instance_eval do
-        extend( *cascade_struct.extends.reverse ) unless cascade_struct.extends.empty?
-      end
-
-      cascade_struct.cascades.each do |this_dependency_module, this_method_and_module_set|
-        this_method_and_module_set.each do |this_method, this_module_set|
-          this_dependency_module.perform_cascades( class_or_module, :extend, this_module_set )
-        end
-      end
-      
-    end
-    
-  end
-
-  #####################
-  #  append_features  #
-  #####################
-
-  def append_features( class_or_module )
-        
-    cascade_struct = ModuleCluster::CascadeFeatures.cascade_struct_for_set_stack( self, class_or_module, cluster_stack.cascading_prepending_includes )
-    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
-    
-    super
-    
-  end
-  
-  ##############
-  #  included  #
-  ##############
-
-  def included( class_or_module )
-
-    super
-
-    cascade_struct = ModuleCluster::CascadeFeatures.cascade_struct_for_set_stack( self, class_or_module, cluster_stack.cascading_includes )
-    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
-    
-  end
-  
-  ###################
-  #  extend_object  #
-  ###################
-
-  def extend_object( class_or_module )
-
-    cascade_struct = ModuleCluster::CascadeFeatures.cascade_struct_for_set_stack( self, class_or_module, cluster_stack.cascading_prepending_extends )
-    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
-    
-    super
-    
-  end
-  
-  ##############
-  #  extended  #
-  ##############
-
-  def extended( class_or_module )
-
-    super
-
-    cascade_struct = ModuleCluster::CascadeFeatures.cascade_struct_for_set_stack( self, class_or_module, cluster_stack.cascading_extends )
-    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
-
-  end
-  
-end