vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
139 lines
3.5 KiB
Ruby
139 lines
3.5 KiB
Ruby
##
|
|
# Chapter 13.3 "Methods" ISO Test
|
|
|
|
assert('The alias statement', '13.3.6 a) 4)') do
|
|
# check aliasing in all possible ways
|
|
|
|
def alias_test_method_original; true; end
|
|
|
|
alias alias_test_method_a alias_test_method_original
|
|
alias :alias_test_method_b :alias_test_method_original
|
|
|
|
assert_true(alias_test_method_original)
|
|
assert_true(alias_test_method_a)
|
|
assert_true(alias_test_method_b)
|
|
end
|
|
|
|
assert('The alias statement (overwrite original)', '13.3.6 a) 4)') do
|
|
# check that an aliased method can be overwritten
|
|
# without side effect
|
|
|
|
def alias_test_method_original; true; end
|
|
|
|
alias alias_test_method_a alias_test_method_original
|
|
alias :alias_test_method_b :alias_test_method_original
|
|
|
|
assert_true(alias_test_method_original)
|
|
|
|
def alias_test_method_original; false; end
|
|
|
|
assert_false(alias_test_method_original)
|
|
assert_true(alias_test_method_a)
|
|
assert_true(alias_test_method_b)
|
|
end
|
|
|
|
assert('The alias statement', '13.3.6 a) 5)') do
|
|
# check that alias is raising NameError if
|
|
# non-existing method should be undefined
|
|
|
|
assert_raise(NameError) do
|
|
alias new_name_a non_existing_method
|
|
end
|
|
|
|
assert_raise(NameError) do
|
|
alias :new_name_b :non_existing_method
|
|
end
|
|
end
|
|
|
|
assert('The undef statement', '13.3.7 a) 4)') do
|
|
# check that undef is undefining method
|
|
# based on the method name
|
|
|
|
def existing_method_a; true; end
|
|
def existing_method_b; true; end
|
|
def existing_method_c; true; end
|
|
def existing_method_d; true; end
|
|
def existing_method_e; true; end
|
|
def existing_method_f; true; end
|
|
|
|
# check that methods are defined
|
|
|
|
assert_true(existing_method_a, 'Method should be defined')
|
|
assert_true(existing_method_b, 'Method should be defined')
|
|
assert_true(existing_method_c, 'Method should be defined')
|
|
assert_true(existing_method_d, 'Method should be defined')
|
|
assert_true(existing_method_e, 'Method should be defined')
|
|
assert_true(existing_method_f, 'Method should be defined')
|
|
|
|
# undefine in all possible ways and check that method
|
|
# is undefined
|
|
|
|
undef existing_method_a
|
|
assert_raise(NoMethodError) do
|
|
existing_method_a
|
|
end
|
|
|
|
undef :existing_method_b
|
|
assert_raise(NoMethodError) do
|
|
existing_method_b
|
|
end
|
|
|
|
undef existing_method_c, existing_method_d
|
|
assert_raise(NoMethodError) do
|
|
existing_method_c
|
|
end
|
|
assert_raise(NoMethodError) do
|
|
existing_method_d
|
|
end
|
|
|
|
undef :existing_method_e, :existing_method_f
|
|
assert_raise(NoMethodError) do
|
|
existing_method_e
|
|
end
|
|
assert_raise(NoMethodError) do
|
|
existing_method_f
|
|
end
|
|
end
|
|
|
|
assert('The undef statement (method undefined)', '13.3.7 a) 5)') do
|
|
# check that undef is raising NameError if
|
|
# non-existing method should be undefined
|
|
|
|
assert_raise(NameError) do
|
|
undef non_existing_method
|
|
end
|
|
|
|
assert_raise(NameError) do
|
|
undef :non_existing_method
|
|
end
|
|
end
|
|
|
|
assert('method_added hook') do
|
|
c = Class.new do
|
|
# method to retrieve @name
|
|
def self.name; @name; end
|
|
# hook method on method definition
|
|
def self.method_added(name) @name = name; end
|
|
# method definition
|
|
def foo; end
|
|
end
|
|
assert_equal(:foo, c.name)
|
|
c.define_method(:bar){}
|
|
assert_equal(:bar, c.name)
|
|
end
|
|
|
|
assert('singleton_method_added hook') do
|
|
a = Object.new
|
|
# method to retrieve @name
|
|
def a.name; @name; end
|
|
# hook method on singleton method definition
|
|
def a.singleton_method_added(name) @name = name; end
|
|
# singleton method definition
|
|
def a.foo; end
|
|
assert_equal(:foo, a.name)
|
|
class <<a
|
|
def bar; end
|
|
end
|
|
assert_equal(:bar, a.name)
|
|
end
|