136 lines
3.7 KiB
Ruby
136 lines
3.7 KiB
Ruby
require 'test/unit'
|
|
|
|
class TestSymbol < Test::Unit::TestCase
|
|
# [ruby-core:3573]
|
|
|
|
def assert_eval_inspected(sym)
|
|
n = sym.inspect
|
|
assert_nothing_raised(SyntaxError) {assert_equal(sym, eval(n))}
|
|
end
|
|
|
|
def test_inspect_invalid
|
|
# 2) Symbol#inspect sometimes returns invalid symbol representations:
|
|
assert_eval_inspected(:"!")
|
|
assert_eval_inspected(:"=")
|
|
assert_eval_inspected(:"0")
|
|
assert_eval_inspected(:"$1")
|
|
assert_eval_inspected(:"@1")
|
|
assert_eval_inspected(:"@@1")
|
|
assert_eval_inspected(:"@")
|
|
assert_eval_inspected(:"@@")
|
|
end
|
|
|
|
def assert_inspect_evaled(n)
|
|
assert_nothing_raised(SyntaxError) {assert_equal(n, eval(n).inspect)}
|
|
end
|
|
|
|
def test_inspect_suboptimal
|
|
# 3) Symbol#inspect sometimes returns suboptimal symbol representations:
|
|
assert_inspect_evaled(':foo')
|
|
assert_inspect_evaled(':foo!')
|
|
assert_inspect_evaled(':bar?')
|
|
assert_inspect_evaled(':<<')
|
|
assert_inspect_evaled(':>>')
|
|
assert_inspect_evaled(':<=')
|
|
assert_inspect_evaled(':>=')
|
|
assert_inspect_evaled(':=~')
|
|
assert_inspect_evaled(':==')
|
|
assert_inspect_evaled(':===')
|
|
assert_raise(SyntaxError) {eval ':='}
|
|
assert_inspect_evaled(':*')
|
|
assert_inspect_evaled(':**')
|
|
assert_raise(SyntaxError) {eval ':***'}
|
|
assert_inspect_evaled(':+')
|
|
assert_inspect_evaled(':-')
|
|
assert_inspect_evaled(':+@')
|
|
assert_inspect_evaled(':-@')
|
|
assert_inspect_evaled(':|')
|
|
assert_inspect_evaled(':^')
|
|
assert_inspect_evaled(':&')
|
|
assert_inspect_evaled(':/')
|
|
assert_inspect_evaled(':%')
|
|
assert_inspect_evaled(':~')
|
|
assert_inspect_evaled(':`')
|
|
assert_inspect_evaled(':[]')
|
|
assert_inspect_evaled(':[]=')
|
|
assert_raise(SyntaxError) {eval ':||'}
|
|
assert_raise(SyntaxError) {eval ':&&'}
|
|
assert_raise(SyntaxError) {eval ':['}
|
|
end
|
|
|
|
def test_inspect_dollar
|
|
# 4) :$- always treats next character literally:
|
|
sym = "$-".intern
|
|
assert_nothing_raised(SyntaxError) {assert_equal(sym, eval(':$-'))}
|
|
assert_nothing_raised(SyntaxError) {assert_equal(sym, eval(":$-\n"))}
|
|
assert_nothing_raised(SyntaxError) {assert_equal(sym, eval(":$- "))}
|
|
assert_nothing_raised(SyntaxError) {assert_equal(sym, eval(":$-#"))}
|
|
assert_raise(SyntaxError) {eval ':$-('}
|
|
end
|
|
|
|
def test_inspect_number
|
|
# 5) Inconsistency between :$0 and :$1? The first one is valid, but the
|
|
# latter isn't.
|
|
assert_inspect_evaled(':$0')
|
|
assert_inspect_evaled(':$1')
|
|
end
|
|
|
|
def test_to_proc
|
|
assert_equal %w(1 2 3), (1..3).map(&:to_s)
|
|
[
|
|
[],
|
|
[1],
|
|
[1, 2],
|
|
[1, [2, 3]],
|
|
].each do |ary|
|
|
ary_id = ary.object_id
|
|
assert_equal ary_id, :object_id.to_proc.call(ary)
|
|
ary_ids = ary.collect{|x| x.object_id }
|
|
assert_equal ary_ids, ary.collect(&:object_id)
|
|
end
|
|
end
|
|
|
|
def test_call
|
|
o = Object.new
|
|
def o.foo(x, y); x + y; end
|
|
|
|
assert_equal(3, :foo.to_proc.call(o, 1, 2))
|
|
assert_raise(ArgumentError) { :foo.to_proc.call }
|
|
end
|
|
|
|
def test_succ
|
|
assert_equal(:fop, :foo.succ)
|
|
end
|
|
|
|
def test_cmp
|
|
assert_equal(0, :FoO <=> :FoO)
|
|
assert_equal(-1, :FoO <=> :fOO)
|
|
assert_equal(1, :fOO <=> :FoO)
|
|
assert_nil(:foo <=> "foo")
|
|
end
|
|
|
|
def test_casecmp
|
|
assert_equal(0, :FoO.casecmp(:fOO))
|
|
assert_equal(1, :FoO.casecmp(:BaR))
|
|
assert_equal(-1, :baR.casecmp(:FoO))
|
|
assert_nil(:foo.casecmp("foo"))
|
|
end
|
|
|
|
def test_length
|
|
assert_equal(3, :FoO.length)
|
|
assert_equal(3, :FoO.size)
|
|
end
|
|
|
|
def test_empty
|
|
assert_equal(false, :FoO.empty?)
|
|
assert_equal(true, :"".empty?)
|
|
end
|
|
|
|
def test_case
|
|
assert_equal(:FOO, :FoO.upcase)
|
|
assert_equal(:foo, :FoO.downcase)
|
|
assert_equal(:Foo, :foo.capitalize)
|
|
assert_equal(:fOo, :FoO.swapcase)
|
|
end
|
|
end
|