Improve Module Tests

test/t/module.rb

@@ -2,11 +2,11 @@
 # Module ISO Test
 
 assert('Module', '15.2.2') do
-  Module.class == Class
+  assert_equal Module.class, Class
 end
 
 assert('Module superclass', '15.2.2.2') do
-  Module.superclass == Object
+  assert_equal Module.superclass, Object
 end
 
 # TODO not implemented ATM assert('Module.constants', '15.2.2.3.1') do
@@ -18,7 +18,10 @@ assert('Module#ancestors', '15.2.2.4.9') do
   end
   sc = Test4ModuleAncestors.singleton_class
   r = String.ancestors
-  r.class == Array and r.include?(String) and r.include?(Object)
+
+  assert_equal r.class, Array
+  assert_true r.include?(String)
+  assert_true r.include?(Object)
 end
 
 assert('Module#append_features', '15.2.2.4.10') do
@@ -31,7 +34,7 @@ assert('Module#append_features', '15.2.2.4.10') do
     include Test4AppendFeatures
   end
 
-  Test4AppendFeatures2.const_get(:Const4AppendFeatures2) == Test4AppendFeatures2
+  assert_equal Test4AppendFeatures2.const_get(:Const4AppendFeatures2), Test4AppendFeatures2
 end
 
 assert('Module#class_eval', '15.2.2.4.15') do
@@ -44,9 +47,11 @@ assert('Module#class_eval', '15.2.2.4.15') do
     end
   end
   r = Test4ClassEval.instance_methods
-  Test4ClassEval.class_eval{ @a } == 11 and
-  Test4ClassEval.class_eval{ @b } == 12 and
-  r.class == Array and r.include?(:method1)
+
+  assert_equal Test4ClassEval.class_eval{ @a }, 11
+  assert_equal Test4ClassEval.class_eval{ @b }, 12
+  assert_equal r.class, Array
+  assert_true r.include?(:method1)
 end
 
 assert('Module#class_variable_defined?', '15.2.2.4.16') do
@@ -54,8 +59,8 @@ assert('Module#class_variable_defined?', '15.2.2.4.16') do
     @@cv = 99
   end
 
-  Test4ClassVariableDefined.class_variable_defined?(:@@cv) and
-  not Test4ClassVariableDefined.class_variable_defined?(:@@noexisting)
+  assert_true Test4ClassVariableDefined.class_variable_defined?(:@@cv)
+  assert_false Test4ClassVariableDefined.class_variable_defined?(:@@noexisting)
 end
 
 assert('Module#class_variable_get', '15.2.2.4.17') do
@@ -63,7 +68,7 @@ assert('Module#class_variable_get', '15.2.2.4.17') do
     @@cv = 99
   end
 
-  Test4ClassVariableGet.class_variable_get(:@@cv) == 99
+  assert_equal Test4ClassVariableGet.class_variable_get(:@@cv), 99
 end
 
 assert('Module#class_variable_set', '15.2.2.4.18') do
@@ -74,12 +79,11 @@ assert('Module#class_variable_set', '15.2.2.4.18') do
     end
   end
 
-  Test4ClassVariableSet.class_variable_set(:@@cv, 99)
-  Test4ClassVariableSet.class_variable_set(:@@foo, 101)
-
-  Test4ClassVariableSet.class_variables.include? :@@cv and
-  Test4ClassVariableSet.class_variable_get(:@@cv) == 99 and
-  Test4ClassVariableSet.new.foo == 101
+  assert_true Test4ClassVariableSet.class_variable_set(:@@cv, 99)
+  assert_true Test4ClassVariableSet.class_variable_set(:@@foo, 101)
+  assert_true Test4ClassVariableSet.class_variables.include? :@@cv
+  assert_equal Test4ClassVariableSet.class_variable_get(:@@cv), 99
+  assert_equal Test4ClassVariableSet.new.foo, 101
 end
 
 assert('Module#class_variables', '15.2.2.4.19') do
@@ -90,8 +94,8 @@ assert('Module#class_variables', '15.2.2.4.19') do
     @@var2 = 2
   end
 
-  Test4ClassVariables1.class_variables == [:@@var1] &&
-  Test4ClassVariables2.class_variables == [:@@var2, :@@var1]
+  assert_equal Test4ClassVariables1.class_variables, [:@@var1]
+  assert_equal Test4ClassVariables2.class_variables, [:@@var2, :@@var1]
 end
 
 assert('Module#const_defined?', '15.2.2.4.20') do
@@ -99,8 +103,8 @@ assert('Module#const_defined?', '15.2.2.4.20') do
     Const4Test4ConstDefined = true
   end
 
-  Test4ConstDefined.const_defined?(:Const4Test4ConstDefined) and
-    not Test4ConstDefined.const_defined?(:NotExisting)
+  assert_true Test4ConstDefined.const_defined?(:Const4Test4ConstDefined)
+  assert_false Test4ConstDefined.const_defined?(:NotExisting)
 end
 
 assert('Module#const_get', '15.2.2.4.21') do
@@ -108,7 +112,7 @@ assert('Module#const_get', '15.2.2.4.21') do
     Const4Test4ConstGet = 42
   end
 
-  Test4ConstGet.const_get(:Const4Test4ConstGet) == 42
+  assert_equal Test4ConstGet.const_get(:Const4Test4ConstGet), 42
 end
 
 assert('Module.const_missing', '15.2.2.4.22') do
@@ -118,7 +122,7 @@ assert('Module.const_missing', '15.2.2.4.22') do
     end
   end
 
-  Test4ConstMissing.const_get(:ConstDoesntExist) == 42
+  assert_equal Test4ConstMissing.const_get(:ConstDoesntExist), 42
 end
 
 assert('Module#const_get', '15.2.2.4.23') do
@@ -126,8 +130,8 @@ assert('Module#const_get', '15.2.2.4.23') do
     Const4Test4ConstSet = 42
   end
 
-  Test4ConstSet.const_set(:Const4Test4ConstSet, 23)
-  Test4ConstSet.const_get(:Const4Test4ConstSet) == 23
+  assert_true Test4ConstSet.const_set(:Const4Test4ConstSet, 23)
+  assert_equal Test4ConstSet.const_get(:Const4Test4ConstSet), 23
 end
 
 assert('Module.constants', '15.2.2.4.24') do
@@ -141,8 +145,8 @@ assert('Module.constants', '15.2.2.4.24') do
     $n = constants.sort
   end
 
-  TestA.constants == [ :Const ] and
-  $n == [ :Const, :Const2 ]
+  assert_equal TestA.constants, [ :Const ]
+  assert_equal $n, [ :Const, :Const2 ]
 end
 
 assert('Module#include', '15.2.2.4.27') do
@@ -153,7 +157,7 @@ assert('Module#include', '15.2.2.4.27') do
     include Test4Include
   end
 
-  Test4Include2.const_get(:Const4Include) == 42
+  assert_equal Test4Include2.const_get(:Const4Include), 42
 end
 
 assert('Module#include?', '15.2.2.4.28') do
@@ -165,9 +169,9 @@ assert('Module#include?', '15.2.2.4.28') do
   class Test4IncludeP3 < Test4IncludeP2
   end
 
-  Test4IncludeP2.include?(Test4IncludeP) &&
-  Test4IncludeP3.include?(Test4IncludeP) &&
-  ! Test4IncludeP.include?(Test4IncludeP)
+  assert_true Test4IncludeP2.include?(Test4IncludeP)
+  assert_true Test4IncludeP3.include?(Test4IncludeP)
+  assert_false Test4IncludeP.include?(Test4IncludeP)
 end
 
 assert('Module#included', '15.2.2.4.29') do
@@ -181,8 +185,8 @@ assert('Module#included', '15.2.2.4.29') do
     include Test4Included
   end
 
-  Test4Included2.const_get(:Const4Included) == 42 and
-    Test4Included2.const_get(:Const4Included2) == Test4Included2
+  assert_equal Test4Included2.const_get(:Const4Included), 42
+  assert_equal Test4Included2.const_get(:Const4Included2), Test4Included2
 end
 
 assert('Module#included_modules', '15.2.2.4.30') do
@@ -191,9 +195,10 @@ assert('Module#included_modules', '15.2.2.4.30') do
   module Test4includedModules2
     include Test4includedModules
   end
-
   r = Test4includedModules2.included_modules
-  r.class == Array and r.include?(Test4includedModules)
+
+  assert_equal r.class, Array
+  assert_true r.include?(Test4includedModules)
 end
 
 assert('Module#instance_methods', '15.2.2.4.33') do
@@ -209,10 +214,12 @@ assert('Module#instance_methods', '15.2.2.4.33') do
 
   r = Test4InstanceMethodsC.instance_methods(true)
 
-   Test4InstanceMethodsA.instance_methods              == [:method1] and
-   Test4InstanceMethodsB.instance_methods(false)       == [:method2] and
-   Test4InstanceMethodsC.instance_methods(false)       == [:method3] and
-   r.class == Array and r.include?(:method3) and r.include?(:method2)
+  assert_equal Test4InstanceMethodsA.instance_methods, [:method1]
+  assert_equal Test4InstanceMethodsB.instance_methods(false), [:method2]
+  assert_equal Test4InstanceMethodsC.instance_methods(false), [:method3]
+  assert_equal r.class, Array
+  assert_true r.include?(:method3)
+  assert_true r.include?(:method2)
 end
 
 assert('Module#method_defined?', '15.2.2.4.34') do
@@ -231,11 +238,11 @@ assert('Module#method_defined?', '15.2.2.4.34') do
     end
   end
 
-  Test4MethodDefined::A.method_defined? :method1   and
-  Test4MethodDefined::C.method_defined? :method1   and
-  Test4MethodDefined::C.method_defined? "method2"  and
-  Test4MethodDefined::C.method_defined? "method3"  and
-  not Test4MethodDefined::C.method_defined? "method4"
+  assert_true Test4MethodDefined::A.method_defined? :method1
+  assert_true Test4MethodDefined::C.method_defined? :method1
+  assert_true Test4MethodDefined::C.method_defined? "method2"
+  assert_true Test4MethodDefined::C.method_defined? "method3"
+  assert_false Test4MethodDefined::C.method_defined? "method4"
 end
 
 
@@ -244,8 +251,9 @@ assert('Module#module_eval', '15.2.2.4.35') do
     @a = 11
     @b = 12
   end
-   Test4ModuleEval.module_eval{ @a } == 11 and
-   Test4ModuleEval.module_eval{ @b } == 12
+
+  assert_equal Test4ModuleEval.module_eval{ @a }, 11
+  assert_equal Test4ModuleEval.module_eval{ @b }, 12
 end
 
 assert('Module#remove_class_variable', '15.2.2.4.39') do
@@ -253,8 +261,8 @@ assert('Module#remove_class_variable', '15.2.2.4.39') do
     @@cv = 99
   end
 
-  Test4RemoveClassVariable.remove_class_variable(:@@cv) == 99 and
-  not Test4RemoveClassVariable.class_variables.include? :@@cv
+  assert_equal Test4RemoveClassVariable.remove_class_variable(:@@cv), 99
+  assert_false Test4RemoveClassVariable.class_variables.include? :@@cv
 end
 
 assert('Module#remove_const', '15.2.2.4.40') do
@@ -272,11 +280,11 @@ assert('Module#remove_const', '15.2.2.4.40') do
   end
 
   # Constant removed from Module
-  not Test4RemoveConst.const_defined? :ExistingConst and
+  assert_false Test4RemoveConst.const_defined? :ExistingConst
   # Return value of binding
-    result == 23 and
+  assert_equal result, 23
   # Name Error raised when Constant doesn't exist
-    name_error
+  assert_true name_error
 end
 
 assert('Module#remove_method', '15.2.2.4.41') do
@@ -292,10 +300,9 @@ assert('Module#remove_method', '15.2.2.4.41') do
     end
   end
 
-  Test4RemoveMethod::Child.class_eval{ remove_method :hello }
-
-  Test4RemoveMethod::Child.instance_methods.include? :hello and
-  not Test4RemoveMethod::Child.instance_methods(false).include? :hello
+  assert_true Test4RemoveMethod::Child.class_eval{ remove_method :hello }
+  assert_true Test4RemoveMethod::Child.instance_methods.include? :hello
+  assert_false Test4RemoveMethod::Child.instance_methods(false).include? :hello
 end
 
 assert('Module.undef_method', '15.2.2.4.42') do
@@ -313,27 +320,25 @@ assert('Module.undef_method', '15.2.2.4.42') do
      class GrandChild < Child
      end
   end
-
   Test4UndefMethod::Child.class_eval{ undef_method :hello }
 
-  Test4UndefMethod::Parent.new.respond_to?(:hello) and
-  not Test4UndefMethod::Child.new.respond_to?(:hello) and
-  not Test4UndefMethod::GrandChild.new.respond_to?(:hello)
+  assert_true Test4UndefMethod::Parent.new.respond_to?(:hello)
+  assert_false Test4UndefMethod::Child.new.respond_to?(:hello)
+  assert_false Test4UndefMethod::GrandChild.new.respond_to?(:hello)
 end
 
-
 # Not ISO specified
 
 assert('Module#to_s') do
   module Test4to_sModules
   end
 
-  Test4to_sModules.to_s == 'Test4to_sModules'
+  assert_equal Test4to_sModules.to_s, 'Test4to_sModules'
 end
 
 assert('Module#inspect') do
   module Test4to_sModules
   end
 
-  Test4to_sModules.inspect == 'Test4to_sModules'
+  assert_equal Test4to_sModules.inspect, 'Test4to_sModules'
 end