module-cluster 1.1.1 → 1.2.0

data/spec/ModuleCluster/Define/ModuleCluster_spec.rb

@@ -0,0 +1,275 @@
+
+require_relative '../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::ModuleCluster do
+
+	###########################
+	#  include_also_includes  #
+	###########################
+
+  it 'include other modules when this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock01
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_also_includes( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module2 ).should == true
+      end
+    end
+  end
+	
+	##########################
+	#  include_also_extends  #
+	##########################
+	
+  it 'extend other modules when this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock02
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock02
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module2 ).should == true
+      end
+    end
+  end
+	
+	#######################################
+	#  include_also_includes_and_extends  #
+	#######################################
+
+  it 'include and extend other modules when this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock03
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_also_includes_and_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module2 ).should == true
+      end
+    end
+    
+  end
+
+	##########################
+	#  extend_also_includes  #
+	##########################
+
+  it 'include other modules when this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock04
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_also_includes( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module2 ).should == true
+      end
+    end
+  end
+	
+	#########################
+	#  extend_also_extends  #
+	#########################
+	
+  it 'extend other modules when this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock05
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_also_extends( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock05
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module2 ).should == true
+      end
+    end
+  end
+	
+	######################################
+	#  extend_also_includes_and_extends  #
+	######################################
+
+  it 'include and extend other modules when this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock06
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_also_includes_and_extends( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module2 ).should == true
+      end
+    end
+  end
+
+	###############################
+	#  include_prepends_includes  #
+	###############################
+
+  it 'include other modules before this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock07
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_prepends_includes( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module2 ).should == true
+      end
+    end
+  end
+
+	##############################
+	#  include_prepends_extends  #
+	##############################
+	
+  it 'extend other modules before this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock08
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_prepends_extends( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock08
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module2 ).should == true
+      end
+    end
+  end
+	
+	###########################################
+	#  include_prepends_includes_and_extends  #
+	###########################################
+
+  it 'include and extend other modules before this one is included' do
+    module ModuleCluster::Define::ModuleCluster::Mock09
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      include_prepends_includes_and_extends( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module Proof
+        include ModuleCluster::Define::ModuleCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module2 ).should == true
+      end
+    end
+  end
+
+	##############################
+	#  extend_prepends_includes  #
+	##############################
+
+  it 'include other modules before this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock10
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_prepends_includes( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module2 ).should == true
+      end
+    end
+  end
+
+	#############################
+	#  extend_prepends_extends  #
+	#############################
+	
+  it 'extend other modules before this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock11
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_prepends_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock11
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module2 ).should == true
+      end
+    end
+  end
+	
+	##########################################
+	#  extend_prepends_includes_and_extends  #
+	##########################################
+
+  it 'include and extend other modules before this one is extended' do
+    module ModuleCluster::Define::ModuleCluster::Mock12
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      extend_prepends_includes_and_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module Proof
+        extend ModuleCluster::Define::ModuleCluster::Mock12
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module2 ).should == true
+      end
+    end
+  end
+  
+end

data/spec/ModuleCluster/Define/_private_/ClusterStack_spec.rb

@@ -0,0 +1,24 @@
+
+require_relative '../../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::ClusterStack do
+
+  #########################
+  #  clusterstack_module  #
+  #########################
+
+  it 'constructs an anonymous module to stack the included/extended/append_features/extend_object chain' do
+    
+    class ModuleCluster::Define::ClusterStack::Mock
+      extend ModuleCluster::Define::ClusterStack
+      # get instance of module
+      clusterstack_module_instance = clusterstack_module
+      # make sure it's a module
+      clusterstack_module_instance.is_a?( Module ).should == true
+      # make sure we get the same one after the first time
+      clusterstack_module.should == clusterstack_module_instance
+    end
+    
+  end
+  
+end

data/spec/ModuleCluster/Define/_private_/ModuleClusterCascadesToClass_spec.rb

@@ -0,0 +1,249 @@
+
+require_relative '../../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::ModuleClusterCascadesToClass do
+
+  #######################################################
+  #  anonymous_module_cascade_to_class_append_features  #
+  #######################################################
+  
+  it 'it can construct an anonymous module each time requested to append features with modules' do
+    class ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      module Module1
+      end
+      module Module2
+      end
+      anonymous_module_cascade_to_class_append_features_instance = anonymous_module_cascade_to_class_append_features( :include, Module1, Module2 )
+      anonymous_module_cascade_to_class_append_features_instance.is_a?( Module ).should == true
+      anonymous_module_cascade_to_class_append_features_instance.instance_methods.include?( :append_features ).should == true
+      module SomeModule
+      end
+      SomeModule.extend( anonymous_module_cascade_to_class_append_features_instance )
+      SomeModule.respond_to?( :append_features ).should == true
+      module SomeOtherModule
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::SomeModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == false
+      end
+      module Cascade1
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::SomeOtherModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == false
+      end
+      class CascadeClass1
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Cascade1
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == true
+        ( ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ) > ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ) ).should == true
+        ( ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ) > ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::SomeModule ) ).should == true
+        ( ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::SomeModule ) > ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::SomeOtherModule ) ).should == true
+      end
+      anonymous_module_cascade_to_class_append_features_instance2 = anonymous_module_cascade_to_class_append_features( :extend, Module1, Module2 )
+      anonymous_module_cascade_to_class_append_features_instance2.should_not == anonymous_module_cascade_to_class_append_features_instance
+      module AnotherModule
+      end
+      AnotherModule.extend( anonymous_module_cascade_to_class_append_features_instance2 )
+      AnotherModule.respond_to?( :append_features ).should == true
+      module YetAnotherModule
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::AnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == false
+      end
+      module Cascade2
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::YetAnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == false
+      end
+      class CascadeClass2
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Cascade2
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ).should == true        
+        ( eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module1 ) > eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock01::Module2 ) ).should == true
+      end
+    end
+  end
+
+  ################################################
+  #  anonymous_module_cascade_to_class_included  #
+  ################################################
+
+  it 'it can construct an anonymous module each time requested to include with modules' do
+    class ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      module Module1
+      end
+      module Module2
+      end
+      anonymous_module_cascade_to_class_included_instance = anonymous_module_cascade_to_class_included( :include, Module1, Module2 )
+      anonymous_module_cascade_to_class_included_instance.is_a?( Module ).should == true
+      anonymous_module_cascade_to_class_included_instance.instance_methods.include?( :included ).should == true
+      module SomeModule
+      end
+      SomeModule.extend( anonymous_module_cascade_to_class_included_instance )
+      SomeModule.respond_to?( :included ).should == true
+      module SomeOtherModule
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::SomeModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ).should == false
+      end
+      module Cascade1
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::SomeOtherModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ).should == false
+      end
+      class CascadeClass1
+      end
+      anonymous_module_cascade_to_class_included_instance2 = anonymous_module_cascade_to_class_included( :extend, Module1, Module2 )
+      anonymous_module_cascade_to_class_included_instance2.should_not == anonymous_module_cascade_to_class_included_instance
+      module AnotherModule
+      end
+      AnotherModule.extend( anonymous_module_cascade_to_class_included_instance2 )
+      AnotherModule.respond_to?( :included ).should == true
+      module YetAnotherModule
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::AnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ).should == false
+      end
+      module Cascade2
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::YetAnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ).should == false
+      end
+      class CascadeClass2
+        include ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Cascade2
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ).should == true
+        ( eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module1 ) > eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock02::Module2 ) ).should == true
+      end
+    end
+  end
+
+  #####################################################
+  #  anonymous_module_cascade_to_class_extend_object  #
+  #####################################################
+
+  it 'it can construct an anonymous module each time requested to extend object with modules' do
+    class ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      module Module1
+      end
+      module Module2
+      end
+      anonymous_module_cascade_to_class_extend_object_instance = anonymous_module_cascade_to_class_extend_object( :include, Module1, Module2 )
+      anonymous_module_cascade_to_class_extend_object_instance.is_a?( Module ).should == true
+      anonymous_module_cascade_to_class_extend_object_instance.instance_methods.include?( :extend_object ).should == true
+      module SomeModule
+      end
+      SomeModule.extend( anonymous_module_cascade_to_class_extend_object_instance )
+      SomeModule.respond_to?( :extend_object ).should == true
+      module SomeOtherModule
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::SomeModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ).should == false
+      end
+      module Cascade1
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::SomeOtherModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ).should == false
+      end
+      class CascadeClass1
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Cascade1
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ).should == true
+        ( ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ) > ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ) ).should == true
+      end
+      anonymous_module_cascade_to_class_extend_object_instance2 = anonymous_module_cascade_to_class_extend_object( :extend, Module1, Module2 )
+      anonymous_module_cascade_to_class_extend_object_instance2.should_not == anonymous_module_cascade_to_class_extend_object_instance
+      module AnotherModule
+      end
+      AnotherModule.extend( anonymous_module_cascade_to_class_extend_object_instance2 )
+      AnotherModule.respond_to?( :extend_object ).should == true
+      module YetAnotherModule
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::AnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ).should == false
+      end
+      module Cascade2
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::YetAnotherModule
+      end
+      class CascadeClass2
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Cascade2
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ).should == true
+        ( eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module1 ) > eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock03::Module2 ) ).should == true
+      end
+    end
+  end
+
+  ################################################
+  #  anonymous_module_cascade_to_class_extended  #
+  ################################################
+
+  it 'it can construct an anonymous module each time requested to extend with modules' do
+    class ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      module Module1
+      end
+      module Module2
+      end
+      anonymous_module_cascade_to_class_extended_instance = anonymous_module_cascade_to_class_extended( :include, Module1, Module2 )
+      anonymous_module_cascade_to_class_extended_instance.is_a?( Module ).should == true
+      anonymous_module_cascade_to_class_extended_instance.instance_methods.include?( :extended ).should == true
+      module SomeModule
+      end
+      SomeModule.extend( anonymous_module_cascade_to_class_extended_instance )
+      SomeModule.respond_to?( :extended ).should == true
+      module SomeOtherModule
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::SomeModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == false
+      end
+      module Cascade1
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::SomeOtherModule
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == false
+      end
+      class CascadeClass1
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Cascade1
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == true
+        ( ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ) > ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ) ).should == true
+      end
+      anonymous_module_cascade_to_class_extended_instance2 = anonymous_module_cascade_to_class_extended( :extend, Module1, Module2 )
+      anonymous_module_cascade_to_class_extended_instance2.should_not == anonymous_module_cascade_to_class_extended_instance
+      module AnotherModule
+      end
+      AnotherModule.extend( anonymous_module_cascade_to_class_extended_instance2 )
+      AnotherModule.respond_to?( :extended ).should == true
+      module YetAnotherModule
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::AnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == false
+      end
+      module Cascade2
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::YetAnotherModule
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == false
+      end
+      class CascadeClass2
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Cascade2
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ).should == true
+        ( eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module1 ) > eigenclass.ancestors.index( ModuleCluster::Define::ModuleClusterCascadesToClass::PrivateMock04::Module2 ) ).should == true
+      end
+    end    
+  end
+
+end