1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
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
|
