mirror of
https://github.com/ruby/ruby.git
synced 2025-09-23 20:44:00 +02:00
* vm_method.c (Init_eval_method): main.public and main.private
should be private. * proc.c (Init_Proc): main.define_method should be private. * test/ruby/test_module.rb: related test. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@38732 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
4722c20661
commit
19768b6cac
4 changed files with 29 additions and 17 deletions
|
@ -1597,22 +1597,22 @@ class TestModule < Test::Unit::TestCase
|
|||
assert_raise(NameError){ m.instance_eval { remove_const(:__FOO__) } }
|
||||
end
|
||||
|
||||
def test_top_include_is_private
|
||||
main = eval("self", TOPLEVEL_BINDING)
|
||||
methods = main.singleton_class.private_instance_methods(false)
|
||||
assert(methods.include?(:include))
|
||||
def test_private_top_methods
|
||||
assert_top_method_is_private(:include)
|
||||
assert_top_method_is_private(:public)
|
||||
assert_top_method_is_private(:private)
|
||||
assert_top_method_is_private(:define_method)
|
||||
end
|
||||
|
||||
assert_in_out_err([], <<-INPUT, ["true"], [])
|
||||
module M
|
||||
end
|
||||
include M
|
||||
p singleton_class < M
|
||||
INPUT
|
||||
private
|
||||
|
||||
assert_in_out_err([], <<-INPUT, [], /private method `include' called for main:Object \(NoMethodError\)/)
|
||||
module M
|
||||
end
|
||||
self.include M
|
||||
def assert_top_method_is_private(method)
|
||||
top = eval("self", TOPLEVEL_BINDING)
|
||||
methods = top.singleton_class.private_instance_methods(false)
|
||||
assert(methods.include?(method), "#{method} should be private")
|
||||
|
||||
assert_in_out_err([], <<-INPUT, [], /private method `#{method}' called for main:Object \(NoMethodError\)/)
|
||||
self.#{method}
|
||||
INPUT
|
||||
end
|
||||
end
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue