From fe5324bd17d1716592b244762173e7478ebf7853 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Fri, 19 Jul 2013 22:39:54 +1000 Subject: Wrote tests around attr, attr_reader, attr_writer, attr_accessor --- test/t/module.rb | 180 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 180 insertions(+) (limited to 'test/t/module.rb') diff --git a/test/t/module.rb b/test/t/module.rb index 9d735f5da..a03511b09 100644 --- a/test/t/module.rb +++ b/test/t/module.rb @@ -37,6 +37,186 @@ assert('Module#append_features', '15.2.2.4.10') do assert_equal Test4AppendFeatures2.const_get(:Const4AppendFeatures2), Test4AppendFeatures2 end +assert('Module#attr', '15.2.2.4.11') do + %w[ + foo? + @foo + @@foo + $foo + ].each do |name| + assert_raise(NameError) do + module NameTest; end + NameTest.module_eval { attr_reader name.to_sym } + end + end + + class AttrTest + class << self + attr :cattr + def cattr_val + @cattr + end + def cattr_val=(val) + @cattr = val + end + end + attr :iattr + + def iattr_val + @iattr + end + def iattr_val=(val) + @iattr = val + end + end + + test = AttrTest.new + assert_true AttrTest.respond_to?(:cattr) + assert_true test.respond_to?(:iattr) + + assert_false AttrTest.respond_to?(:vattr=) + assert_false test.respond_to?(:iattr=) + + test.iattr_val = 'test' + assert_equal 'test', test.iattr + + AttrTest.cattr_val = 'test' + assert_equal 'test', AttrTest.cattr +end + +assert('Module#attr_accessor', '15.2.2.4.12') do + %w[ + foo? + @foo + @@foo + $foo + ].each do |name| + assert_raise(NameError) do + module NameTest; end + NameTest.module_eval { attr_reader name.to_sym } + end + end + + class AttrTestAccessor + class << self + attr_accessor :cattr + end + attr_accessor :iattr, 'iattr2' + end + + attr_instance = AttrTestAccessor.new + assert_true AttrTestAccessor.respond_to?(:cattr=) + assert_true attr_instance.respond_to?(:iattr=) + assert_true attr_instance.respond_to?(:iattr2=) + assert_true AttrTestAccessor.respond_to?(:cattr) + assert_true attr_instance.respond_to?(:iattr) + assert_true attr_instance.respond_to?(:iattr2) + + attr_instance.iattr = 'test' + assert_equal 'test', attr_instance.iattr + + AttrTestAccessor.cattr = 'test' + assert_equal 'test', AttrTestAccessor.cattr +end + +assert('Module#attr_reader', '15.2.2.4.13') do + %w[ + foo? + @foo + @@foo + $foo + ].each do |name| + assert_raise(NameError) do + module NameTest; end + NameTest.module_eval { attr_reader name.to_sym } + end + end + + class AttrTestReader + class << self + attr_reader :cattr + def cattr_val + @cattr + end + def cattr_val=(val) + @cattr = val + end + end + attr_reader :iattr, 'iattr2' + + def iattr_val + @iattr + end + def iattr_val=(val) + @iattr = val + end + end + + attr_instance = AttrTestReader.new + assert_true AttrTestReader.respond_to?(:cattr) + assert_true attr_instance.respond_to?(:iattr) + assert_true attr_instance.respond_to?(:iattr2) + + assert_false AttrTestReader.respond_to?(:cattr=) + assert_false attr_instance.respond_to?(:iattr=) + assert_false attr_instance.respond_to?(:iattr2=) + + attr_instance.iattr_val = 'test' + assert_equal 'test', attr_instance.iattr + + AttrTestReader.cattr_val = 'test' + assert_equal 'test', AttrTestReader.cattr +end + +assert('Module#attr_writer', '15.2.2.4.14') do + %w[ + foo? + @foo + @@foo + $foo + ].each do |name| + assert_raise(NameError) do + module NameTest; end + NameTest.module_eval { attr_reader name.to_sym } + end + end + + class AttrTestWriter + class << self + attr_writer :cattr + def cattr_val + @cattr + end + def cattr_val=(val) + @cattr = val + end + end + attr_writer :iattr, 'iattr2' + + def iattr_val + @iattr + end + def iattr_val=(val) + @iattr = val + end + end + + attr_instance = AttrTestWriter.new + assert_true AttrTestWriter.respond_to?(:cattr=) + assert_true attr_instance.respond_to?(:iattr=) + assert_true attr_instance.respond_to?(:iattr2=) + + assert_false AttrTestWriter.respond_to?(:cattr) + assert_false attr_instance.respond_to?(:iattr) + assert_false attr_instance.respond_to?(:iattr2) + + attr_instance.iattr = 'test' + assert_equal 'test', attr_instance.iattr_val + + AttrTestWriter.cattr = 'test' + assert_equal 'test', AttrTestWriter.cattr_val +end + assert('Module#class_eval', '15.2.2.4.15') do class Test4ClassEval @a = 11 -- cgit v1.2.3 From ab787ab9683b8295ab2cb03d94dbbad1ebfe5db7 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Sun, 21 Jul 2013 18:43:00 +1000 Subject: Cleaned up some of the Module#attr tests --- test/t/module.rb | 77 +++++++++++++------------------------------------------- 1 file changed, 18 insertions(+), 59 deletions(-) (limited to 'test/t/module.rb') diff --git a/test/t/module.rb b/test/t/module.rb index a03511b09..618b57f06 100644 --- a/test/t/module.rb +++ b/test/t/module.rb @@ -37,34 +37,43 @@ assert('Module#append_features', '15.2.2.4.10') do assert_equal Test4AppendFeatures2.const_get(:Const4AppendFeatures2), Test4AppendFeatures2 end -assert('Module#attr', '15.2.2.4.11') do +assert('Module#attr NameError') do %w[ foo? @foo @@foo $foo ].each do |name| + module NameTest; end + assert_raise(NameError) do - module NameTest; end NameTest.module_eval { attr_reader name.to_sym } end + + assert_raise(NameError) do + NameTest.module_eval { attr_writer name.to_sym } + end + + assert_raise(NameError) do + NameTest.module_eval { attr name.to_sym } + end + + assert_raise(NameError) do + NameTest.module_eval { attr_accessor name.to_sym } + end end +end + +assert('Module#attr', '15.2.2.4.11') do class AttrTest class << self attr :cattr - def cattr_val - @cattr - end def cattr_val=(val) @cattr = val end end attr :iattr - - def iattr_val - @iattr - end def iattr_val=(val) @iattr = val end @@ -85,18 +94,6 @@ assert('Module#attr', '15.2.2.4.11') do end assert('Module#attr_accessor', '15.2.2.4.12') do - %w[ - foo? - @foo - @@foo - $foo - ].each do |name| - assert_raise(NameError) do - module NameTest; end - NameTest.module_eval { attr_reader name.to_sym } - end - end - class AttrTestAccessor class << self attr_accessor :cattr @@ -120,33 +117,14 @@ assert('Module#attr_accessor', '15.2.2.4.12') do end assert('Module#attr_reader', '15.2.2.4.13') do - %w[ - foo? - @foo - @@foo - $foo - ].each do |name| - assert_raise(NameError) do - module NameTest; end - NameTest.module_eval { attr_reader name.to_sym } - end - end - class AttrTestReader class << self attr_reader :cattr - def cattr_val - @cattr - end def cattr_val=(val) @cattr = val end end attr_reader :iattr, 'iattr2' - - def iattr_val - @iattr - end def iattr_val=(val) @iattr = val end @@ -169,36 +147,17 @@ assert('Module#attr_reader', '15.2.2.4.13') do end assert('Module#attr_writer', '15.2.2.4.14') do - %w[ - foo? - @foo - @@foo - $foo - ].each do |name| - assert_raise(NameError) do - module NameTest; end - NameTest.module_eval { attr_reader name.to_sym } - end - end - class AttrTestWriter class << self attr_writer :cattr def cattr_val @cattr end - def cattr_val=(val) - @cattr = val - end end attr_writer :iattr, 'iattr2' - def iattr_val @iattr end - def iattr_val=(val) - @iattr = val - end end attr_instance = AttrTestWriter.new -- cgit v1.2.3