2009-08-06 00:14:50 -04:00
|
|
|
require 'test/unit'
|
|
|
|
require 'mkmf'
|
|
|
|
require 'tmpdir'
|
|
|
|
|
|
|
|
$extout = '$(topdir)/'+RbConfig::CONFIG["EXTOUT"]
|
|
|
|
RbConfig::CONFIG['topdir'] = CONFIG['topdir'] = File.expand_path(CONFIG['topdir'])
|
|
|
|
RbConfig::CONFIG["extout"] = CONFIG["extout"] = $extout
|
2009-11-25 21:42:24 -05:00
|
|
|
$INCFLAGS << " -I."
|
2009-08-06 00:14:50 -04:00
|
|
|
$extout_prefix = "$(extout)$(target_prefix)/"
|
|
|
|
|
2009-08-06 00:30:15 -04:00
|
|
|
class TestMkmf < Test::Unit::TestCase
|
2010-12-10 04:11:10 -05:00
|
|
|
MKMFLOG = proc {File.read("mkmf.log") rescue ""}
|
|
|
|
class << MKMFLOG
|
|
|
|
alias to_s call
|
|
|
|
end
|
2010-12-17 05:35:20 -05:00
|
|
|
|
|
|
|
class Capture
|
|
|
|
def initialize
|
|
|
|
@buffer = ""
|
|
|
|
@filter = nil
|
|
|
|
@out = true
|
|
|
|
end
|
|
|
|
def clear
|
|
|
|
@buffer.clear
|
|
|
|
end
|
|
|
|
def flush
|
|
|
|
STDOUT.print @filter ? @filter.call(@buffer) : @buffer
|
|
|
|
clear
|
|
|
|
end
|
|
|
|
def reopen(io)
|
|
|
|
case io
|
|
|
|
when Capture
|
|
|
|
initialize_copy(io)
|
|
|
|
when File
|
|
|
|
@out = false
|
|
|
|
when IO
|
|
|
|
@out = true
|
|
|
|
else
|
|
|
|
@out = false
|
|
|
|
end
|
|
|
|
end
|
|
|
|
def filter(&block)
|
|
|
|
@filter = block
|
|
|
|
end
|
|
|
|
def write(s)
|
|
|
|
@buffer << s if @out
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
attr_reader :stdout
|
|
|
|
|
2010-12-10 04:11:48 -05:00
|
|
|
def mkmflog(msg)
|
|
|
|
log = proc {MKMFLOG[] << msg}
|
|
|
|
class << log
|
|
|
|
alias to_s call
|
|
|
|
end
|
|
|
|
log
|
|
|
|
end
|
2010-12-10 04:11:10 -05:00
|
|
|
|
2009-08-06 00:14:50 -04:00
|
|
|
def setup
|
2011-01-14 21:57:36 -05:00
|
|
|
@rbconfig = rbconfig0 = RbConfig::CONFIG
|
|
|
|
@mkconfig = mkconfig0 = RbConfig::MAKEFILE_CONFIG
|
|
|
|
rbconfig = {
|
|
|
|
"hdrdir" => $hdrdir,
|
|
|
|
"srcdir" => $srcdir,
|
|
|
|
"topdir" => $topdir,
|
|
|
|
}
|
|
|
|
mkconfig = {
|
|
|
|
"hdrdir" => "$(top_srcdir)/include",
|
2012-04-03 10:30:08 -04:00
|
|
|
"srcdir" => "$(top_srcdir)",
|
2011-01-14 21:57:36 -05:00
|
|
|
"topdir" => $topdir,
|
|
|
|
}
|
|
|
|
rbconfig0.each_pair {|key, val| rbconfig[key] ||= val.dup}
|
|
|
|
mkconfig0.each_pair {|key, val| mkconfig[key] ||= val.dup}
|
|
|
|
RbConfig.module_eval {
|
|
|
|
remove_const(:CONFIG)
|
|
|
|
const_set(:CONFIG, rbconfig)
|
|
|
|
remove_const(:MAKEFILE_CONFIG)
|
|
|
|
const_set(:MAKEFILE_CONFIG, mkconfig)
|
|
|
|
}
|
2011-11-29 19:57:24 -05:00
|
|
|
MakeMakefile.class_eval {
|
2011-01-14 21:57:36 -05:00
|
|
|
remove_const(:CONFIG)
|
|
|
|
const_set(:CONFIG, mkconfig)
|
|
|
|
}
|
2009-08-06 00:14:50 -04:00
|
|
|
@tmpdir = Dir.mktmpdir
|
|
|
|
@curdir = Dir.pwd
|
|
|
|
@mkmfobj = Object.new
|
2010-12-17 05:35:20 -05:00
|
|
|
@stdout = Capture.new
|
2009-08-06 00:14:50 -04:00
|
|
|
Dir.chdir(@tmpdir)
|
2010-12-06 09:18:26 -05:00
|
|
|
@quiet, Logging.quiet = Logging.quiet, true
|
2011-01-14 21:57:36 -05:00
|
|
|
init_mkmf
|
|
|
|
$INCFLAGS[0, 0] = "-I. "
|
2009-08-06 00:14:50 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def teardown
|
2011-01-14 21:57:36 -05:00
|
|
|
rbconfig0 = @rbconfig
|
|
|
|
mkconfig0 = @mkconfig
|
|
|
|
RbConfig.module_eval {
|
|
|
|
remove_const(:CONFIG)
|
|
|
|
const_set(:CONFIG, rbconfig0)
|
|
|
|
remove_const(:MAKEFILE_CONFIG)
|
|
|
|
const_set(:MAKEFILE_CONFIG, mkconfig0)
|
|
|
|
}
|
2011-11-29 19:57:24 -05:00
|
|
|
MakeMakefile.class_eval {
|
2011-01-14 21:57:36 -05:00
|
|
|
remove_const(:CONFIG)
|
|
|
|
const_set(:CONFIG, mkconfig0)
|
|
|
|
}
|
2010-12-06 09:18:26 -05:00
|
|
|
Logging.quiet = @quiet
|
2010-12-10 04:11:10 -05:00
|
|
|
Logging.log_close
|
2012-04-03 05:41:14 -04:00
|
|
|
FileUtils.rm_f("mkmf.log")
|
2009-08-06 00:14:50 -04:00
|
|
|
Dir.chdir(@curdir)
|
|
|
|
FileUtils.rm_rf(@tmpdir)
|
|
|
|
end
|
|
|
|
|
|
|
|
def mkmf(*args, &block)
|
2010-12-17 05:35:20 -05:00
|
|
|
@stdout.clear
|
|
|
|
stdout, $stdout = $stdout, @stdout
|
2009-08-06 00:14:50 -04:00
|
|
|
@mkmfobj.instance_eval(*args, &block)
|
2010-12-17 05:35:20 -05:00
|
|
|
ensure
|
|
|
|
$stdout = stdout
|
2009-08-06 00:14:50 -04:00
|
|
|
end
|
2010-12-10 04:12:33 -05:00
|
|
|
|
|
|
|
def config_value(name)
|
|
|
|
create_tmpsrc("---config-value=#{name}")
|
|
|
|
xpopen(cpp_command('')) do |f|
|
|
|
|
f.grep(/^---config-value=(.*)/) {return $1}
|
|
|
|
end
|
|
|
|
nil
|
|
|
|
end
|
2009-08-06 00:14:50 -04:00
|
|
|
end
|