mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
a6003269b6
* bootstraptest/runner.rb (exec_test, show_progress): show rotators and pass/fail counts. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@35575 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
420 lines
9.8 KiB
Ruby
Executable file
420 lines
9.8 KiB
Ruby
Executable file
"exec" "${RUBY-ruby}" "-x" "$0" "$@"; true # -*- mode: ruby; coding: utf-8 -*-
|
|
#!./ruby
|
|
# $Id$
|
|
|
|
# NOTE:
|
|
# Never use optparse in this file.
|
|
# Never use test/unit in this file.
|
|
# Never use Ruby extensions in this file.
|
|
|
|
begin
|
|
require 'fileutils'
|
|
require 'tmpdir'
|
|
rescue LoadError
|
|
$:.unshift File.join(File.dirname(__FILE__), '../lib')
|
|
retry
|
|
end
|
|
|
|
if !Dir.respond_to?(:mktmpdir)
|
|
# copied from lib/tmpdir.rb
|
|
def Dir.mktmpdir(prefix_suffix=nil, tmpdir=nil)
|
|
case prefix_suffix
|
|
when nil
|
|
prefix = "d"
|
|
suffix = ""
|
|
when String
|
|
prefix = prefix_suffix
|
|
suffix = ""
|
|
when Array
|
|
prefix = prefix_suffix[0]
|
|
suffix = prefix_suffix[1]
|
|
else
|
|
raise ArgumentError, "unexpected prefix_suffix: #{prefix_suffix.inspect}"
|
|
end
|
|
tmpdir ||= Dir.tmpdir
|
|
t = Time.now.strftime("%Y%m%d")
|
|
n = nil
|
|
begin
|
|
path = "#{tmpdir}/#{prefix}#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
|
|
path << "-#{n}" if n
|
|
path << suffix
|
|
Dir.mkdir(path, 0700)
|
|
rescue Errno::EEXIST
|
|
n ||= 0
|
|
n += 1
|
|
retry
|
|
end
|
|
|
|
if block_given?
|
|
begin
|
|
yield path
|
|
ensure
|
|
FileUtils.remove_entry_secure path
|
|
end
|
|
else
|
|
path
|
|
end
|
|
end
|
|
end
|
|
|
|
def main
|
|
@ruby = File.expand_path('miniruby')
|
|
@verbose = false
|
|
$stress = false
|
|
dir = nil
|
|
quiet = false
|
|
tests = nil
|
|
ARGV.delete_if {|arg|
|
|
case arg
|
|
when /\A--ruby=(.*)/
|
|
@ruby = $1
|
|
@ruby.gsub!(/^([^ ]*)/){File.expand_path($1)}
|
|
@ruby.gsub!(/(\s+-I\s*)((?!(?:\.\/)*-(?:\s|\z))\S+)/){$1+File.expand_path($2)}
|
|
@ruby.gsub!(/(\s+-r\s*)(\.\.?\/\S+)/){$1+File.expand_path($2)}
|
|
true
|
|
when /\A--sets=(.*)/
|
|
tests = Dir.glob("#{File.dirname($0)}/test_{#{$1}}*.rb").sort
|
|
puts tests.map {|path| File.basename(path) }.inspect
|
|
true
|
|
when /\A--dir=(.*)/
|
|
dir = $1
|
|
true
|
|
when /\A(--stress|-s)/
|
|
$stress = true
|
|
when /\A(-q|--q(uiet))\z/
|
|
quiet = true
|
|
true
|
|
when /\A(-v|--v(erbose))\z/
|
|
@verbose = true
|
|
when /\A(-h|--h(elp)?)\z/
|
|
puts(<<-End)
|
|
Usage: #{File.basename($0, '.*')} --ruby=PATH [--sets=NAME,NAME,...]
|
|
--sets=NAME,NAME,... Name of test sets.
|
|
--dir=DIRECTORY Working directory.
|
|
default: /tmp/bootstraptestXXXXX.tmpwd
|
|
-s, --stress stress test.
|
|
-v, --verbose Output test name before exec.
|
|
-q, --quiet Don\'t print header message.
|
|
-h, --help Print this message and quit.
|
|
End
|
|
exit true
|
|
else
|
|
false
|
|
end
|
|
}
|
|
if tests and not ARGV.empty?
|
|
$stderr.puts "--tests and arguments are exclusive"
|
|
exit false
|
|
end
|
|
tests ||= ARGV
|
|
tests = Dir.glob("#{File.dirname($0)}/test_*.rb").sort if tests.empty?
|
|
pathes = tests.map {|path| File.expand_path(path) }
|
|
|
|
@progress = %w[- \\ | /]
|
|
@progress_bs = "\b" * @progress[0].size
|
|
@tty = !@verbose && $stderr.tty?
|
|
if @tty and /mswin|mingw/ !~ RUBY_PLATFORM and /dumb/ !~ ENV["TERM"]
|
|
@passed = "\e[32m"
|
|
@failed = "\e[31m"
|
|
@reset = "\e[m"
|
|
else
|
|
@passed = @failed = @reset = ""
|
|
end
|
|
unless quiet
|
|
puts Time.now
|
|
if defined?(RUBY_DESCRIPTION)
|
|
puts "Driver is #{RUBY_DESCRIPTION}"
|
|
elsif defined?(RUBY_PATCHLEVEL)
|
|
puts "Driver is ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE}#{RUBY_PLATFORM}) [#{RUBY_PLATFORM}]"
|
|
else
|
|
puts "Driver is ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE}) [#{RUBY_PLATFORM}]"
|
|
end
|
|
puts "Target is #{`#{@ruby} -v`.chomp}"
|
|
puts
|
|
$stdout.flush
|
|
end
|
|
|
|
in_temporary_working_directory(dir) {
|
|
exec_test pathes
|
|
}
|
|
end
|
|
|
|
def exec_test(pathes)
|
|
@count = 0
|
|
@error = 0
|
|
@errbuf = []
|
|
@location = nil
|
|
pathes.each do |path|
|
|
$stderr.print "\n#{File.basename(path)} "
|
|
$stderr.print @progress[@count % @progress.size] if @tty
|
|
$stderr.puts if @verbose
|
|
count = @count
|
|
error = @error
|
|
load File.expand_path(path)
|
|
if @tty
|
|
if @error == error
|
|
$stderr.print "#{@progress_bs}#{@passed}PASS #{@count-count}#{@reset}"
|
|
else
|
|
$stderr.print "#{@progress_bs}#{@failed}FAIL #{@error-error}/#{@count-count}#{@reset}"
|
|
end
|
|
end
|
|
end
|
|
$stderr.puts
|
|
if @error == 0
|
|
if @count == 0
|
|
$stderr.puts "No tests, no problem"
|
|
else
|
|
$stderr.puts "PASS all #{@count} tests"
|
|
end
|
|
exit true
|
|
else
|
|
@errbuf.each do |msg|
|
|
$stderr.puts msg
|
|
end
|
|
$stderr.puts "FAIL #{@error}/#{@count} tests failed"
|
|
exit false
|
|
end
|
|
end
|
|
|
|
def show_progress(message = '')
|
|
if @verbose
|
|
$stderr.print "\##{@count} #{@location} "
|
|
end
|
|
faildesc = yield
|
|
if !faildesc
|
|
if @tty
|
|
$stderr.print "#{@progress_bs}#{@progress[@count % @progress.size]}"
|
|
else
|
|
$stderr.print '.'
|
|
end
|
|
$stderr.puts if @verbose
|
|
else
|
|
$stderr.print 'F'
|
|
$stderr.puts if @verbose
|
|
error faildesc, message
|
|
end
|
|
rescue Interrupt
|
|
raise Interrupt
|
|
rescue Exception => err
|
|
$stderr.print 'E'
|
|
$stderr.puts if @verbose
|
|
error err.message, message
|
|
end
|
|
|
|
def assert_check(testsrc, message = '', opt = '')
|
|
show_progress(message) {
|
|
result = get_result_string(testsrc, opt)
|
|
check_coredump
|
|
yield(result)
|
|
}
|
|
end
|
|
|
|
def assert_equal(expected, testsrc, message = '')
|
|
newtest
|
|
assert_check(testsrc, message) {|result|
|
|
if expected == result
|
|
nil
|
|
else
|
|
desc = "#{result.inspect} (expected #{expected.inspect})"
|
|
pretty(testsrc, desc, result)
|
|
end
|
|
}
|
|
end
|
|
|
|
def assert_match(expected_pattern, testsrc, message = '')
|
|
newtest
|
|
assert_check(testsrc, message) {|result|
|
|
if expected_pattern =~ result
|
|
nil
|
|
else
|
|
desc = "#{expected_pattern.inspect} expected to be =~\n#{result.inspect}"
|
|
pretty(testsrc, desc, result)
|
|
end
|
|
}
|
|
end
|
|
|
|
def assert_not_match(unexpected_pattern, testsrc, message = '')
|
|
newtest
|
|
assert_check(testsrc, message) {|result|
|
|
if unexpected_pattern !~ result
|
|
nil
|
|
else
|
|
desc = "#{unexpected_pattern.inspect} expected to be !~\n#{result.inspect}"
|
|
pretty(testsrc, desc, result)
|
|
end
|
|
}
|
|
end
|
|
|
|
def assert_valid_syntax(testsrc, message = '')
|
|
newtest
|
|
assert_check(testsrc, message, '-c') {|result|
|
|
result if /Syntax OK/ !~ result
|
|
}
|
|
end
|
|
|
|
def assert_normal_exit(testsrc, *rest)
|
|
newtest
|
|
opt = {}
|
|
opt = rest.pop if Hash === rest.last
|
|
message, ignore_signals = rest
|
|
message ||= ''
|
|
timeout = opt[:timeout]
|
|
show_progress(message) {
|
|
faildesc = nil
|
|
filename = make_srcfile(testsrc)
|
|
old_stderr = $stderr.dup
|
|
timeout_signaled = false
|
|
begin
|
|
$stderr.reopen("assert_normal_exit.log", "w")
|
|
io = IO.popen("#{@ruby} -W0 #{filename}")
|
|
pid = io.pid
|
|
th = Thread.new {
|
|
io.read
|
|
io.close
|
|
$?
|
|
}
|
|
if !th.join(timeout)
|
|
Process.kill :KILL, pid
|
|
timeout_signaled = true
|
|
end
|
|
status = th.value
|
|
ensure
|
|
$stderr.reopen(old_stderr)
|
|
old_stderr.close
|
|
end
|
|
if status.signaled?
|
|
signo = status.termsig
|
|
signame = Signal.list.invert[signo]
|
|
unless ignore_signals and ignore_signals.include?(signame)
|
|
sigdesc = "signal #{signo}"
|
|
if signame
|
|
sigdesc = "SIG#{signame} (#{sigdesc})"
|
|
end
|
|
if timeout_signaled
|
|
sigdesc << " (timeout)"
|
|
end
|
|
faildesc = pretty(testsrc, "killed by #{sigdesc}", nil)
|
|
stderr_log = File.read("assert_normal_exit.log")
|
|
if !stderr_log.empty?
|
|
faildesc << "\n" if /\n\z/ !~ faildesc
|
|
stderr_log << "\n" if /\n\z/ !~ stderr_log
|
|
stderr_log.gsub!(/^.*\n/) { '| ' + $& }
|
|
faildesc << stderr_log
|
|
end
|
|
end
|
|
end
|
|
faildesc
|
|
}
|
|
end
|
|
|
|
def assert_finish(timeout_seconds, testsrc, message = '')
|
|
newtest
|
|
show_progress(message) {
|
|
faildesc = nil
|
|
filename = make_srcfile(testsrc)
|
|
io = IO.popen("#{@ruby} -W0 #{filename}")
|
|
pid = io.pid
|
|
waited = false
|
|
tlimit = Time.now + timeout_seconds
|
|
while Time.now < tlimit
|
|
if Process.waitpid pid, Process::WNOHANG
|
|
waited = true
|
|
break
|
|
end
|
|
sleep 0.1
|
|
end
|
|
if !waited
|
|
Process.kill(:KILL, pid)
|
|
Process.waitpid pid
|
|
faildesc = pretty(testsrc, "not finished in #{timeout_seconds} seconds", nil)
|
|
end
|
|
io.close
|
|
faildesc
|
|
}
|
|
end
|
|
|
|
def flunk(message = '')
|
|
newtest
|
|
show_progress('') { message }
|
|
end
|
|
|
|
def pretty(src, desc, result)
|
|
src = src.sub(/\A.*\n/, '')
|
|
(/\n/ =~ src ? "\n#{adjust_indent(src)}" : src) + " #=> #{desc}"
|
|
end
|
|
|
|
INDENT = 27
|
|
|
|
def adjust_indent(src)
|
|
untabify(src).gsub(/^ {#{INDENT}}/o, '').gsub(/^/, ' ')
|
|
end
|
|
|
|
def untabify(str)
|
|
str.gsub(/^\t+/) {' ' * (8 * $&.size) }
|
|
end
|
|
|
|
def make_srcfile(src)
|
|
filename = 'bootstraptest.tmp.rb'
|
|
File.open(filename, 'w') {|f|
|
|
f.puts "GC.stress = true" if $stress
|
|
f.puts "print(begin; #{src}; end)"
|
|
}
|
|
filename
|
|
end
|
|
|
|
def get_result_string(src, opt = '')
|
|
if @ruby
|
|
filename = make_srcfile(src)
|
|
begin
|
|
`#{@ruby} -W0 #{opt} #{filename}`
|
|
ensure
|
|
raise Interrupt if $?.signaled? && $?.termsig == Signal.list["INT"]
|
|
raise CoreDumpError, "core dumped" if $? and $?.coredump?
|
|
end
|
|
else
|
|
eval(src).to_s
|
|
end
|
|
end
|
|
|
|
def newtest
|
|
@location = File.basename(caller(2).first)
|
|
@count += 1
|
|
cleanup_coredump
|
|
end
|
|
|
|
def error(msg, additional_message)
|
|
@errbuf.push "\##{@count} #{@location}: #{msg} #{additional_message}"
|
|
@error += 1
|
|
end
|
|
|
|
def in_temporary_working_directory(dir)
|
|
if dir
|
|
Dir.mkdir dir
|
|
Dir.chdir(dir) {
|
|
yield
|
|
}
|
|
else
|
|
Dir.mktmpdir(["bootstraptest", ".tmpwd"]) {|d|
|
|
Dir.chdir(d) {
|
|
yield
|
|
}
|
|
}
|
|
end
|
|
end
|
|
|
|
def cleanup_coredump
|
|
FileUtils.rm_f 'core'
|
|
FileUtils.rm_f Dir.glob('core.*')
|
|
FileUtils.rm_f @ruby+'.stackdump' if @ruby
|
|
end
|
|
|
|
class CoreDumpError < StandardError; end
|
|
|
|
def check_coredump
|
|
if File.file?('core') or not Dir.glob('core.*').empty? or
|
|
(@ruby and File.exist?(@ruby+'.stackdump'))
|
|
raise CoreDumpError, "core dumped"
|
|
end
|
|
end
|
|
|
|
main
|