module-cluster 1.3.7 → 1.4.0

data/spec/ModuleCluster/Define/ClassOrInstanceCluster_spec.rb

@@ -0,0 +1,576 @@
+
+require_relative '../../../lib/module-cluster.rb'
+
+describe ModuleCluster::Define::ClassOrInstanceCluster do
+
+  ####################################
+  #  self.should_include_or_extend?  #
+  ####################################
+
+  it 'should return true if class or instance, false otherwise' do
+    ModuleCluster::Define::ClassOrInstanceCluster.should_include_or_extend?( Kernel ).should == false
+    ModuleCluster::Define::ClassOrInstanceCluster.should_include_or_extend?( Class ).should == true
+    ModuleCluster::Define::ClassOrInstanceCluster.should_include_or_extend?( Object.new ).should == true    
+  end
+
+  ##########################
+  #  self.should_cascade?  #
+  ##########################
+
+  it 'should report false' do
+    ModuleCluster::Define::ClassOrInstanceCluster.should_cascade?( Kernel ).should == false
+    ModuleCluster::Define::ClassOrInstanceCluster.should_cascade?( Class ).should == false
+    ModuleCluster::Define::ClassOrInstanceCluster.should_cascade?( Object.new ).should == false
+  end
+  
+	#########################################################################
+	#  class_include_or_extend_or_instance_extend_also_includes_or_extends  #
+	#########################################################################
+
+  it 'can include a module when this one is included in a class or extend an instance when this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_extend_or_instance_extend_also_includes_or_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == true
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock01
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock01::Module2 ).should == true
+      end
+    end
+  end
+	
+	#############################################################
+	#  class_include_or_extend_or_instance_extend_also_extends  #
+	#############################################################
+
+  it 'can include a module when this one is included in a class or extend with another module when this one is used to extend a class or extend an instance when this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_extend_or_instance_extend_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == true
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == true
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock02
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock02::Module2 ).should == true
+      end
+    end
+  end
+
+	###############################################################
+	#  class_include_or_instance_extend_also_includes_or_extends  #
+	###############################################################
+
+  it 'can include a module when this one is included in a class or extend with another module when this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_instance_extend_also_includes_or_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock03
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock03::Module2 ).should == true
+      end
+    end
+  end
+	
+	###################################################
+	#  class_include_or_instance_extend_also_extends  #
+	###################################################
+	
+  it 'can extend with another module when this one is included in a class or used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_instance_extend_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == true
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock04
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock04::Module2 ).should == true
+      end
+    end
+  end
+	
+	###########################################
+	#  class_or_instance_extend_also_extends  #
+	###########################################
+
+  it 'can extend with another module when this one is used to extend a class or instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_or_instance_extend_also_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == true
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock05
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock05::Module2 ).should == true
+      end
+    end
+  end
+
+	#############################################################################
+	#  class_include_or_extend_or_instance_extend_prepends_includes_or_extends  #
+	#############################################################################
+	
+  it 'can include a module before this one is included in a class or extend an instance before this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_extend_or_instance_extend_prepends_includes_or_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == true
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock06
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock06::Module2 ).should == true
+      end
+    end
+  end
+	
+	###################################################################
+	#  class_include_or_instance_extend_prepends_includes_or_extends  #
+	###################################################################
+
+  it 'can include a module before this one is included in a class or extend with another module before this one is used to extend a class or extend an instance before this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_instance_extend_prepends_includes_or_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock07
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock07::Module2 ).should == true
+      end
+    end
+  end
+
+	#################################################################
+	#  class_include_or_extend_or_instance_extend_prepends_extends  #
+	#################################################################
+	
+  it 'can include a module before this one is included in a class or extend with another module before this one is used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_extend_or_instance_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == true
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == true
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock08
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock08::Module2 ).should == true
+      end
+    end
+  end
+	
+	#######################################################
+	#  class_include_or_instance_extend_prepends_extends  #
+	#######################################################
+	
+  it 'can extend with another module before this one is included in a class or used to extend an instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_include_or_instance_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == true
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == false
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock09
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock09::Module2 ).should == true
+      end
+    end
+  end
+
+	###############################################
+	#  class_or_instance_extend_prepends_extends  #
+	###############################################
+
+  it 'can extend with another module before this one is used to extend a class or instance' do
+    module ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+      extend ModuleCluster::Define::ClassOrInstanceCluster
+      module Module1
+      end
+      module Module2
+      end
+      class_or_instance_extend_prepends_extends( Module1, Module2 )
+      respond_to?( :included ).should == true
+      respond_to?( :extended ).should == true
+      module ModuleProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+      end
+      module ModuleProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+      end
+      class ClassProof
+        include ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+      end
+      class ClassProof2
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == false
+        ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == false
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == true
+      end
+      Object.new.instance_eval do
+        extend ModuleCluster::Define::ClassOrInstanceCluster::Mock10
+        eigenclass = class << self ; self ; end
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module1 ).should == true
+        eigenclass.ancestors.include?( ModuleCluster::Define::ClassOrInstanceCluster::Mock10::Module2 ).should == true
+      end
+    end
+  end
+
+end