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
|
#!/usr/bin/ngraph -i
ERROR=0
show_result() {
if [ "$2" = "$3" ]
then
echo "OK. ($1)"
else
echo "error. ($1) '$2' '$3'"
ERROR=1
fi
}
new string
string::@=" a b b b c d e f ＢＣＤ"
show_result "strip" "${string::strip}" "a b b b c d e f ＢＣＤ"
show_result "upcase" "${string::upcase}" " A B B B C D E F ＢＣＤ"
show_result "downcase" "${string::downcase}" " a b b b c d e f ｂｃｄ"
show_result "reverse" "${string::reverse}" "ＤＣＢ f e d c b b b a "
show_result "slice" "${string::slice:'6 9'}" "b b c"
show_result "slice" "${string::slice:'21 4'}" "f ＢＣ"
show_result "index" "${string::index:'Ｄ 25'}" "25"
show_result "index" "${string::index:'a 1'}" "1"
show_result "rindex" "${string::rindex:'a 1'}" "1"
show_result "rindex" "${string::rindex:'b 20'}" "10"
show_result "match" "${string::match:'f.Ｂ'}" "true"
show_result "match" "${string::match:'a[^b]+c'}" "false"
exit $ERROR
|
