diff options
Diffstat (limited to 'ruby_1_8_6/test/ruby/test_stringchar.rb')
-rw-r--r-- | ruby_1_8_6/test/ruby/test_stringchar.rb | 166 |
1 files changed, 0 insertions, 166 deletions
diff --git a/ruby_1_8_6/test/ruby/test_stringchar.rb b/ruby_1_8_6/test/ruby/test_stringchar.rb deleted file mode 100644 index 34934e87bd..0000000000 --- a/ruby_1_8_6/test/ruby/test_stringchar.rb +++ /dev/null @@ -1,166 +0,0 @@ -require 'test/unit' - -class TestStringchar < Test::Unit::TestCase - def test_string - assert_equal("abcd", "abcd") - assert_match(/abcd/, "abcd") - assert("abcd" === "abcd") - # compile time string concatenation - assert_equal("abcd", "ab" "cd") - assert_equal("22aacd44", "#{22}aa" "cd#{44}") - assert_equal("22aacd445566", "#{22}aa" "cd#{44}" "55" "#{66}") - assert("abc" !~ /^$/) - assert("abc\n" !~ /^$/) - assert("abc" !~ /^d*$/) - assert_equal(3, ("abc" =~ /d*$/)) - assert("" =~ /^$/) - assert("\n" =~ /^$/) - assert("a\n\n" =~ /^$/) - assert("abcabc" =~ /.*a/); assert_equal("abca", $&) - assert("abcabc" =~ /.*c/); assert_equal("abcabc", $&) - assert("abcabc" =~ /.*?a/); assert_equal("a", $&) - assert("abcabc" =~ /.*?c/); assert_equal("abc", $&) - assert(/(.|\n)*?\n(b|\n)/ =~ "a\nb\n\n"); assert_equal("a\nb", $&) - - assert(/^(ab+)+b/ =~ "ababb"); assert_equal("ababb", $&) - assert(/^(?:ab+)+b/ =~ "ababb"); assert_equal("ababb", $&) - assert(/^(ab+)+/ =~ "ababb"); assert_equal("ababb", $&) - assert(/^(?:ab+)+/ =~ "ababb"); assert_equal("ababb", $&) - - assert(/(\s+\d+){2}/ =~ " 1 2"); assert_equal(" 1 2", $&) - assert(/(?:\s+\d+){2}/ =~ " 1 2"); assert_equal(" 1 2", $&) - - $x = <<END; -ABCD -ABCD -END - $x.gsub!(/((.|\n)*?)B((.|\n)*?)D/){$1+$3} - assert_equal("AC\nAC\n", $x) - - assert("foobar" =~ /foo(?=(bar)|(baz))/) - assert("foobaz" =~ /foo(?=(bar)|(baz))/) - - $foo = "abc" - assert_equal("abc = abc", "#$foo = abc") - assert_equal("abc = abc", "#{$foo} = abc") - - foo = "abc" - assert_equal("abc = abc", "#{foo} = abc") - - assert_equal('-----', '-' * 5) - assert_equal('-', '-' * 1) - assert_equal('', '-' * 0) - - foo = '-' - assert_equal('-----', foo * 5) - assert_equal('-', foo * 1) - assert_equal('', foo * 0) - - $x = "a.gif" - assert_equal("gif", $x.sub(/.*\.([^\.]+)$/, '\1')) - assert_equal("b.gif", $x.sub(/.*\.([^\.]+)$/, 'b.\1')) - assert_equal("", $x.sub(/.*\.([^\.]+)$/, '\2')) - assert_equal("ab", $x.sub(/.*\.([^\.]+)$/, 'a\2b')) - assert_equal("<a.gif>", $x.sub(/.*\.([^\.]+)$/, '<\&>')) - end - - def test_char - # character constants(assumes ASCII) - assert_equal(?a, "a"[0]) - assert_equal(?a, ?a) - assert_equal(1, ?\C-a) - assert_equal(225, ?\M-a) - assert_equal(129, ?\M-\C-a) - assert_equal(?A, "a".upcase![0]) - assert_equal(?a, "A".downcase![0]) - assert_equal("ABC", "abc".tr!("a-z", "A-Z")) - assert_equal("ABC", "aabbcccc".tr_s!("a-z", "A-Z")) - assert_equal("abc", "abcc".squeeze!("a-z")) - assert_equal("ad", "abcd".delete!("bc")) - - $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_equal("another string", s) - - s = <<EOS -#{ -[1,2,3].join(",") -} -EOS - assert_equal("1,2,3\n", s) - assert_equal(926381, "Just".to_i(36)) - assert_equal(-23200231779, "-another".to_i(36)) - assert_equal("ruby", 1299022.to_s(36)) - assert_equal("-hacker", -1045307475.to_s(36)) - assert_equal(265419172580680477752431643787347, "Just_another_Ruby_hacker".to_i(36)) - assert_equal("-justanotherrubyhacker", -265419172580680477752431643787347.to_s(36)) - - a = [] - (0..255).each {|n| - ch = [n].pack("C") - a.push ch if /a#{Regexp.quote ch}b/x =~ "ab" - } - assert_equal(0, a.size) - end - - def test_bang - s = "aBc" - s.upcase - assert_equal("aBc", s) - s.upcase! - assert_equal("ABC", s) - - s = "aBc" - s.downcase - assert_equal("aBc", s) - s.downcase! - assert_equal("abc", s) - - s = "aBc" - s.swapcase - assert_equal("aBc", s) - s.swapcase! - assert_equal("AbC", s) - - s = "aBc" - s.capitalize - assert_equal("aBc", s) - s.capitalize! - assert_equal("Abc", s) - - s = "aBc" - s.tr("a-z", "A-Z") - assert_equal("aBc", s) - s.tr!("a-z", "A-Z") - assert_equal("ABC", s) - - s = "aaBBcc" - s.tr_s("a-z", "A-Z") - assert_equal("aaBBcc", s) - s.tr_s!("a-z", "A-Z") - assert_equal("ABBC", s) - - s = "aaBBcc" - s.squeeze("a-z") - assert_equal("aaBBcc", s) - s.squeeze!("a-z") - assert_equal("aBBc", s) - - s = "aaBBcc" - s.delete("a-z") - assert_equal("aaBBcc", s) - s.delete!("a-z") - assert_equal("BB", s) - end -end |