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
|
#! /usr/bin/ruby
require 'rbconfig'
commands = [
"tchtest.rb write casket 10000",
"tchtest.rb read casket",
"tchtest.rb remove casket",
"tchtest.rb misc casket 1000",
"tchtest.rb write -tl -as -td casket 10000 10000 1 1",
"tchtest.rb read -nl casket",
"tchtest.rb remove -nb casket",
"tchtest.rb misc -tl -tb casket 1000",
"tcbtest.rb write casket 10000",
"tcbtest.rb read casket",
"tcbtest.rb remove casket",
"tcbtest.rb misc casket 1000",
"tcbtest.rb write -tl casket 10000 10 10 100 1 1",
"tcbtest.rb read -nl casket",
"tcbtest.rb remove -nb casket",
"tcbtest.rb misc -tl -tb casket 1000",
"tcftest.rb write casket 10000",
"tcftest.rb read casket",
"tcftest.rb remove casket",
"tcftest.rb misc casket 1000",
"tcttest.rb write -ip -is -in casket 1000",
"tcttest.rb read casket",
"tcttest.rb remove casket",
"tcttest.rb misc casket 500",
"tcttest.rb write -tl -is -td casket 1000 1000 1 1",
"tcttest.rb read -nl casket",
"tcttest.rb remove -nb casket",
"tcttest.rb misc -tl -tb casket 500",
"tcatest.rb write 'casket.tch#mode=wct' 10000",
"tcatest.rb read 'casket.tch#mode=r'",
"tcatest.rb remove 'casket.tch#mode=w'",
"tcatest.rb misc 'casket.tch#mode=wct' 1000",
]
rubycmd = Config::CONFIG["bindir"] + "/" + RbConfig::CONFIG['ruby_install_name']
num = 1
commands.each do |command|
rv = system("#{rubycmd} #{command} >/dev/null")
if rv
printf("%03d/%03d: %s: ok\n", num, commands.size, command)
else
printf("%03d/%03d: %s: failed\n", num, commands.size, command)
exit(1)
end
num += 1
end
printf("all ok\n")
system("rm -rf casket*")
|
