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
|
require 'test/minirunit'
test_check "Test UTF8 KCode Regexp"
old_code = $KCODE
$KCODE = 'u'
# Regexp#kcode should be nil even if $KCODE is set
test_equal(nil, /test/.kcode)
# test =~
test_equal(6, "スパムハンク" =~ /ム(.)/)
test_equal(3, $1.size)
test_equal("ハ", $1)
test_equal(14, "Ruby:公式のルビーinterprété orienté objet" =~ /.ビ(ー[a-z]+é).é/)
test_equal(12, $1.size)
test_equal("ーinterpré", $1)
# test []
test_equal("ムハ", "スパムハンク"[/ム./])
test_equal("ーinterpré", "Ruby:公式のルビーinterprété orienté objet"[/ー[a-z]+é/])
# test []=
x = "スパムハンク"
x[/ム./] = "ス"
test_equal("スパスンク", x)
x = "公式のルビーinterprété orienté objet"
x[/の.*je/] = "スンa"
test_equal("公式スンat", x)
# test index
test_equal(6, "スパムハンク".index(/ム./))
test_equal(20, "Ruby:公式のルビーinterprété orienté objet".index(/ー[a-z]+é/))
# test index with offset
test_equal(6, "スパムハンク".index(/ム./, 3))
test_equal(nil, "スパムハンク".index(/ム./, 9))
test_equal(20, "Ruby:公式のルビーinterprété orienté objet".index(/ー[a-z]+é/, 4))
test_equal(nil, "Ruby:公式のルビーinterprété orienté objet".index(/ー[a-z]+é/, 23))
# test rindex
test_equal(6, "スパムハンク".rindex(/ム./))
test_equal(20, "Ruby:公式のルビーinterprété orienté objet".rindex(/ー[a-z]+é/))
# test rindex with offset
test_equal(nil, "スパムハンク".rindex(/ム./, 3))
test_equal(6, "スパムハンク".rindex(/./, 6))
test_equal(nil, "Ruby:公式のルビーinterprété orienté objet".rindex(/[a-z]+é/, 20))
test_equal(32, "Ruby:公式のルビーinterprété orienté objet".rindex(/[a-z]+é/, 35))
# test scan
test_equal(6, "スパムハンク".scan(/./).size)
test_equal(35, "Ruby:公式のルビーinterprété orienté objet".scan(/./).size)
# test slice!
x = "スパムハンク"
test_equal("ムハ", x.slice!(/ム./))
test_equal("スパンク", x)
x = "Ruby:公式のルビーinterprété orienté objet"
test_equal("ーinterpré", x.slice!(/ー[a-z]+é/))
test_equal("Ruby:公式のルビté orienté objet", x)
# test split
x = "スパムハンク".split(/ム/)
test_equal(2, x.size)
test_equal("スパ", x[0])
test_equal("ハンク", x[1])
x = "Ruby:公式のルビーinterprété orienté objet".split(/e/)
test_equal(4, x.size)
test_equal("Ruby:公式のルビーint", x[0])
test_equal("rprété ori", x[1])
test_equal("nté obj", x[2])
test_equal("t", x[3])
$KCODE = 'n'
pattern = /ス(.)/
target = "テスト"
test_equal(3, target =~ pattern)
test_equal("\343", $1)
$KCODE = 'u'
test_equal(3, target =~ pattern)
# See JRUBY-1133; we have decided not to fix this
#test_equal("ト", $1)
$KCODE = old_code
|
