* test/ruby: tests for ruby itself.

* test/ruby/test_*.rb: split sample/test.rb into 28 test/unit testcases.  some
  tests could not be translates...  search '!!' mark to see it.

* test/csv/test_csv.rb: should require 'csv', not '../lib/csv'.  test runner
  should set load path correctly.


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

1 files changed, 116 insertions, 0 deletions

diff --git a/test/ruby/test_stringchar.rb b/test/ruby/test_stringchar.rb
new file mode 100644
index 0000000000..498300f379
--- /dev/null
+++ b/test/ruby/test_stringchar.rb
@@ -0,0 +1,116 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestStringchar < Test::Unit::TestCase
+  def test_stringchar
+    assert("abcd" == "abcd")
+    assert("abcd" =~ /abcd/)
+    assert("abcd" === "abcd")
+    # compile time string concatenation
+    assert("ab" "cd" == "abcd")
+    assert("#{22}aa" "cd#{44}" == "22aacd44")
+    assert("#{22}aa" "cd#{44}" "55" "#{66}" == "22aacd445566")
+    assert("abc" !~ /^$/)
+    assert("abc\n" !~ /^$/)
+    assert("abc" !~ /^d*$/)
+    assert(("abc" =~ /d*$/) == 3)
+    assert("" =~ /^$/)
+    assert("\n" =~ /^$/)
+    assert("a\n\n" =~ /^$/)
+    assert("abcabc" =~ /.*a/ && $& == "abca")
+    assert("abcabc" =~ /.*c/ && $& == "abcabc")
+    assert("abcabc" =~ /.*?a/ && $& == "a")
+    assert("abcabc" =~ /.*?c/ && $& == "abc")
+    assert(/(.|\n)*?\n(b|\n)/ =~ "a\nb\n\n" && $& == "a\nb")
+    
+    assert(/^(ab+)+b/ =~ "ababb" && $& == "ababb")
+    assert(/^(?:ab+)+b/ =~ "ababb" && $& == "ababb")
+    assert(/^(ab+)+/ =~ "ababb" && $& == "ababb")
+    assert(/^(?:ab+)+/ =~ "ababb" && $& == "ababb")
+    
+    assert(/(\s+\d+){2}/ =~ " 1 2" && $& == " 1 2")
+    assert(/(?:\s+\d+){2}/ =~ " 1 2" && $& == " 1 2")
+    
+    $x = <<END;
+ABCD
+ABCD
+END
+    $x.gsub!(/((.|\n)*?)B((.|\n)*?)D/){$1+$3}
+    assert($x == "AC\nAC\n")
+    
+    assert("foobar" =~ /foo(?=(bar)|(baz))/)
+    assert("foobaz" =~ /foo(?=(bar)|(baz))/)
+    
+    $foo = "abc"
+    assert("#$foo = abc" == "abc = abc")
+    assert("#{$foo} = abc" == "abc = abc")
+    
+    foo = "abc"
+    assert("#{foo} = abc" == "abc = abc")
+    
+    assert('-' * 5 == '-----')
+    assert('-' * 1 == '-')
+    assert('-' * 0 == '')
+    
+    foo = '-'
+    assert(foo * 5 == '-----')
+    assert(foo * 1 == '-')
+    assert(foo * 0 == '')
+    
+    $x = "a.gif"
+    assert($x.sub(/.*\.([^\.]+)$/, '\1') == "gif")
+    assert($x.sub(/.*\.([^\.]+)$/, 'b.\1') == "b.gif")
+    assert($x.sub(/.*\.([^\.]+)$/, '\2') == "")
+    assert($x.sub(/.*\.([^\.]+)$/, 'a\2b') == "ab")
+    assert($x.sub(/.*\.([^\.]+)$/, '<\&>') == "<a.gif>")
+    
+    # character constants(assumes ASCII)
+    assert("a"[0] == ?a)
+    assert(?a == ?a)
+    assert(?\C-a == 1)
+    assert(?\M-a == 225)
+    assert(?\M-\C-a == 129)
+    assert("a".upcase![0] == ?A)
+    assert("A".downcase![0] == ?a)
+    assert("abc".tr!("a-z", "A-Z") == "ABC")
+    assert("aabbcccc".tr_s!("a-z", "A-Z") == "ABC")
+    assert("abcc".squeeze!("a-z") == "abc")
+    assert("abcd".delete!("bc") == "ad")
+    
+    $x = "abcdef"
+    $y = [ ?a, ?b, ?c, ?d, ?e, ?f ]
+    $bad = false
+    $x.each_byte {|i|
+      if i != $y.shift
+        $bad = true
+        break
+      end
+    }
+    assert(!$bad)
+    
+    s = "a string"
+    s[0..s.size]="another string"
+    assert(s == "another string")
+    
+    s = <<EOS
+#{
+[1,2,3].join(",")
+}
+EOS
+    assert(s == "1,2,3\n")
+    assert("Just".to_i(36) == 926381)
+    assert("-another".to_i(36) == -23200231779)
+    assert(1299022.to_s(36) == "ruby")
+    assert(-1045307475.to_s(36) == "-hacker")
+    assert("Just_another_Ruby_hacker".to_i(36) == 265419172580680477752431643787347)
+    assert(-265419172580680477752431643787347.to_s(36) == "-justanotherrubyhacker")
+    
+    a = []
+    (0..255).each {|n|
+      ch = [n].pack("C")                     
+      a.push ch if /a#{Regexp.quote ch}b/x =~ "ab" 
+    }
+    assert(a.size == 0)
+  end
+end