added tag v1_9_0_4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 135 insertions, 0 deletions

diff --git a/trunk/test/ruby/test_symbol.rb b/trunk/test/ruby/test_symbol.rb
new file mode 100644
index 0000000000..a19a78e605
--- /dev/null
+++ b/trunk/test/ruby/test_symbol.rb
@@ -0,0 +1,135 @@
+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