2012-11-29 03:45:13 -05:00
|
|
|
# -*- coding: us-ascii -*-
|
2003-09-04 12:18:59 -04:00
|
|
|
require 'test/unit'
|
|
|
|
|
|
|
|
class TestConst < Test::Unit::TestCase
|
|
|
|
TEST1 = 1
|
|
|
|
TEST2 = 2
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
module Const
|
|
|
|
TEST3 = 3
|
|
|
|
TEST4 = 4
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
module Const2
|
|
|
|
TEST3 = 6
|
|
|
|
TEST4 = 8
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
def test_const
|
2006-12-31 10:02:22 -05:00
|
|
|
assert defined?(TEST1)
|
|
|
|
assert_equal 1, TEST1
|
|
|
|
assert defined?(TEST2)
|
|
|
|
assert_equal 2, TEST2
|
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
self.class.class_eval {
|
|
|
|
include Const
|
|
|
|
}
|
2006-12-31 10:02:22 -05:00
|
|
|
assert defined?(TEST1)
|
|
|
|
assert_equal 1, TEST1
|
|
|
|
assert defined?(TEST2)
|
|
|
|
assert_equal 2, TEST2
|
|
|
|
assert defined?(TEST3)
|
|
|
|
assert_equal 3, TEST3
|
|
|
|
assert defined?(TEST4)
|
|
|
|
assert_equal 4, TEST4
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
self.class.class_eval {
|
|
|
|
include Const2
|
|
|
|
}
|
|
|
|
STDERR.print "intentionally redefines TEST3, TEST4\n" if $VERBOSE
|
2006-12-31 10:02:22 -05:00
|
|
|
assert defined?(TEST1)
|
|
|
|
assert_equal 1, TEST1
|
|
|
|
assert defined?(TEST2)
|
|
|
|
assert_equal 2, TEST2
|
|
|
|
assert defined?(TEST3)
|
|
|
|
assert_equal 6, TEST3
|
|
|
|
assert defined?(TEST4)
|
|
|
|
assert_equal 8, TEST4
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|
2011-09-03 11:11:53 -04:00
|
|
|
|
|
|
|
def test_redefinition
|
|
|
|
c = Class.new
|
|
|
|
c.const_set(:X, 1)
|
|
|
|
assert_output(nil, <<-WARNING) {c.const_set(:X, 2)}
|
2012-11-29 03:45:13 -05:00
|
|
|
#{__FILE__}:#{__LINE__-1}: warning: already initialized constant #{c}::X
|
2011-09-03 11:11:53 -04:00
|
|
|
#{__FILE__}:#{__LINE__-3}: warning: previous definition of X was here
|
|
|
|
WARNING
|
2014-03-16 21:24:06 -04:00
|
|
|
code = <<-PRE
|
|
|
|
olderr = $stderr.dup
|
|
|
|
$stderr.reopen(File::NULL, "wb")
|
|
|
|
350000.times { FOO = :BAR }
|
|
|
|
$stderr.reopen(olderr)
|
|
|
|
PRE
|
|
|
|
assert_no_memory_leak([], '', code, 'redefined constant')
|
2011-09-03 11:11:53 -04:00
|
|
|
end
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|