module-cluster 1.3.7 → 1.4.0

data/spec/ModuleCluster/Define/InstanceCluster_spec.rb

@@ -0,0 +1,102 @@
+
+require_relative '../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::InstanceCluster do
+
+  ####################################
+  #  self.should_include_or_extend?  #
+  ####################################
+
+  it 'should return true if instance, false otherwise' do
+    ModuleCluster::Define::InstanceCluster.should_include_or_extend?( Kernel ).should == false
+    ModuleCluster::Define::InstanceCluster.should_include_or_extend?( Class ).should == false
+    ModuleCluster::Define::InstanceCluster.should_include_or_extend?( Object.new ).should == true    
+  end
+
+  ##########################
+  #  self.should_cascade?  #
+  ##########################
+
+  it 'should report false' do
+    ModuleCluster::Define::InstanceCluster.should_cascade?( Kernel ).should == false
+    ModuleCluster::Define::InstanceCluster.should_cascade?( Class ).should == false
+    ModuleCluster::Define::InstanceCluster.should_cascade?( Object.new ).should == false
+  end
+	
+	##################################
+	#  instance_extend_also_extends  #
+	##################################
+	
+  it 'can extend other modules when this one extends a module or instance' do
+    module ModuleCluster::Define::InstanceCluster::Mock01
+      extend ModuleCluster::Define::InstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      instance_extend_also_extends( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::InstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module2 ).should == false
+      end
+      class ClassProof
+        extend ModuleCluster::Define::InstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::InstanceCluster::Mock01
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock01::Module2 ).should == true
+      end
+    end
+  end
+
+	######################################
+	#  instance_extend_prepends_extends  #
+	######################################
+	
+  it 'can extend other modules before this one when this one extends an instance' do
+    module ModuleCluster::Define::InstanceCluster::Mock02
+      extend ModuleCluster::Define::InstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      instance_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::InstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module2 ).should == false
+      end
+      class ClassProof
+        extend ModuleCluster::Define::InstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::InstanceCluster::Mock02
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::InstanceCluster::Mock02::Module2 ).should == true
+      end
+    end
+  end
+	
+end

data/spec/ModuleCluster/Define/ModuleCluster_spec.rb

@@ -0,0 +1,728 @@
+
+require_relative '../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::ModuleCluster do
+
+  ####################################
+  #  self.should_include_or_extend?  #
+  ####################################
+
+  it 'should return true if module (not class), false otherwise' do
+    ModuleCluster::Define::ModuleCluster.should_include_or_extend?( Kernel ).should == true
+    ModuleCluster::Define::ModuleCluster.should_include_or_extend?( Class ).should == false
+    ModuleCluster::Define::ModuleCluster.should_include_or_extend?( Object.new ).should == false    
+  end
+
+  ##########################
+  #  self.should_cascade?  #
+  ##########################
+
+  it 'should report false' do
+    ModuleCluster::Define::ModuleCluster.should_cascade?( Kernel ).should == false
+    ModuleCluster::Define::ModuleCluster.should_cascade?( Class ).should == false
+    ModuleCluster::Define::ModuleCluster.should_cascade?( Object.new ).should == false
+  end
+  
+	##################################
+	#  module_include_also_includes  #
+	##################################
+
+  it 'can include other modules when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock01
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_also_includes( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock01::Module2 ).should == false
+      end
+    end
+  end
+	
+	#################################
+	#  module_include_also_extends  #
+	#################################
+	
+  it 'can extend other modules when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock02
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module2 ).should == false
+        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
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock02::Module2 ).should == false
+      end
+    end    
+  end
+	
+	##############################################
+	#  module_include_also_includes_and_extends  #
+	##############################################
+
+  it 'can include and extend other modules when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock03
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_also_includes_and_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module ModuleProof
+        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
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock03::Module2 ).should == false
+      end
+    end
+  end
+
+	#################################
+	#  module_extend_also_includes  #
+	#################################
+
+  it 'can include other modules when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock04
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_also_includes( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::ModuleCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module2 ).should == false
+      end
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock04::Module2 ).should == false
+      end
+    end
+  end
+	
+	################################
+	#  module_extend_also_extends  #
+	################################
+	
+  it 'can extend other modules when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock05
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_also_extends( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::ModuleCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module2 ).should == false
+        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
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ModuleCluster::Mock05
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock05::Module2 ).should == false
+      end
+    end
+  end
+	
+	#############################################
+	#  module_extend_also_includes_and_extends  #
+	#############################################
+
+  it 'can include and extend other modules when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock06
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_also_includes_and_extends( Module1, Module2 )
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        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
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ModuleCluster::Mock06
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock06::Module2 ).should == false
+      end
+    end
+  end
+
+	######################################
+	#  module_include_prepends_includes  #
+	######################################
+
+  it 'can include other modules before this one when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock07
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_prepends_includes( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock07::Module2 ).should == false
+      end
+    end
+  end
+
+	#####################################
+	#  module_include_prepends_extends  #
+	#####################################
+	
+  it 'can extend other modules before this one when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock08
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_prepends_extends( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module2 ).should == false
+        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
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock08::Module2 ).should == false
+      end
+    end
+  end
+	
+	##################################################
+	#  module_include_prepends_includes_and_extends  #
+	##################################################
+
+  it 'can include and extend other modules before this one when this one is included in a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock09
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_prepends_includes_and_extends( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        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
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock09::Module2 ).should == false
+      end
+    end    
+  end
+
+	#####################################
+	#  module_extend_prepends_includes  #
+	#####################################
+
+  it 'can include other modules before this one when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock10
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_prepends_includes( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::ModuleCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module2 ).should == false
+      end
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock10::Module2 ).should == false
+      end
+    end
+  end
+
+	####################################
+	#  module_extend_prepends_extends  #
+	####################################
+	
+  it 'can extend other modules before this one when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock11
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module ModuleProof
+        extend ModuleCluster::Define::ModuleCluster::Mock11
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module2 ).should == false
+        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
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock11
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ModuleCluster::Mock11
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock11::Module2 ).should == false
+      end
+    end
+  end
+	
+	#################################################
+	#  module_extend_prepends_includes_and_extends  #
+	#################################################
+
+  it 'can include and extend other modules before this one when this one extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock12
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_extend_prepends_includes_and_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module ModuleProof
+        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
+      class ClassProof
+        extend ModuleCluster::Define::ModuleCluster::Mock12
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ModuleCluster::Mock12
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock12::Module2 ).should == false
+      end
+    end
+  end
+	
+	############################################
+	#  module_include_or_extend_also_includes  #
+	############################################
+
+  it 'can include other modules when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock13
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_also_includes( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock13
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock13
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock13
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+      end
+      class ClassProof2
+        include ModuleCluster::Define::ModuleCluster::Mock13
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock13::Module2 ).should == false
+      end
+    end
+  end
+
+	###########################################
+	#  module_include_or_extend_also_extends  #
+	###########################################
+
+  it 'can extend other modules when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock14
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock14
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == true
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock14
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == true
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock14
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock14
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock14::Module2 ).should == false
+      end
+    end
+  end
+
+	########################################################
+	#  module_include_or_extend_also_includes_and_extends  #
+	########################################################
+
+  it 'can include and extend other modules when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock15
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_also_includes_and_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock15
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == true
+      end
+      module ModuleProo2
+        extend ModuleCluster::Define::ModuleCluster::Mock15
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == true
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock15
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock15
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock15::Module2 ).should == false
+      end
+    end
+  end
+
+	################################################
+	#  module_include_or_extend_prepends_includes  #
+	################################################
+
+  it 'can include other modules before this one when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock16
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_prepends_includes( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock16
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock16
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock16
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock16
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock16::Module2 ).should == false
+      end
+    end
+  end
+
+	###############################################
+	#  module_include_or_extend_prepends_extends  #
+	###############################################
+
+  it 'can extend other modules before this one when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock17
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :extend_object ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock17
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == true
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock17
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == true
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock17
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock17
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ModuleCluster::Mock17
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock17::Module2 ).should == false
+      end
+    end
+  end
+
+	############################################################
+	#  module_include_or_extend_prepends_includes_and_extends  #
+	############################################################
+
+  it 'can include and extend other modules before this one when this one is included in or extends a module' do
+    module ModuleCluster::Define::ModuleCluster::Mock18
+      extend ModuleCluster::Define::ModuleCluster
+      module Module1
+      end
+      module Module2
+      end
+      module_include_or_extend_prepends_includes_and_extends( Module1, Module2 )
+      respond_to?( :append_features ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ModuleCluster::Mock18
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == true
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock18
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == true
+      end
+      class ClassProof
+        include ModuleCluster::Define::ModuleCluster::Mock18
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ModuleCluster::Mock18
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ModuleCluster::Mock18::Module2 ).should == false
+      end
+    end    
+  end
+
+end