bdberl/base.rake

182 lines
4.3 KiB
Ruby
Raw Normal View History

2008-12-06 06:20:26 +00:00
require 'rake/clean'
require 'set'
PWD = Dir.getwd
BASE_DIR = File.expand_path "#{PWD}"
2008-12-06 06:20:26 +00:00
SRC = FileList['src/*.erl']
OBJ = SRC.pathmap("%{src,ebin}X.beam")
EBIN = FileList["#{BASE_DIR}/**/ebin"]
APP = FileList["#{PWD}/ebin/*.app"][0]
INCLUDE = "./include"
ERLC_FLAGS = "-I#{INCLUDE} -pa #{EBIN.join(' -pa ')} +debug_info "
CLEAN.include %w( **/*.beam **/erl_crash.dump )
CLOBBER.include %w( perf_test/logs int_test/logs test/logs doc )
directory 'ebin'
rule ".beam" => ["%{ebin,src}X.erl"] do |t|
puts "compiling #{t.source}..."
sh "erlc -W #{ERLC_FLAGS} -o ebin #{t.source}", :verbose => false
end
desc "Compile Erlang sources to .beam files"
task :compile => ['ebin'] + OBJ do
do_validate_app
end
desc "Do a fresh build from scratch"
task :rebuild => [:clean, :compile]
task :default => [:compile]
task :compile_tests do
do_compile_tests("test")
end
desc "Run unit tests"
task :test => [:compile, :compile_tests]
task :compile_int_tests do
do_compile_tests("int_test")
end
desc "Run integration tests"
task :int_test => [:compile, :compile_int_tests]
def erl_run(script, args = "")
`erl -eval '#{script}' -s erlang halt #{args} -noshell 2>&1`.strip
end
def erl_where(lib)
script = <<-ERL
io:format("~s\n", [filename:join(code:lib_dir(#{lib}), "include")])
ERL
erl_run(script)
end
def erl_app_modules(app)
script = <<-ERL
ok = application:load(#{app}),
{ok, M} = application:get_key(#{app}, modules),
[io:format("~s\\n", [Mod]) || Mod <- M].
ERL
output = erl_run(script, "-pa ebin")
if output[/badmatch/]
fail "Error processing .app file: ", output
""
else
output.split("\n")
end
end
def erl_app_version(app)
script = <<-ERL
ok = application:load(#{app}),
{ok, Vsn} = application:get_key(#{app}, vsn),
io:format("~s\\n", [Vsn]).
ERL
output = erl_run(script, "-pa ebin")
output.strip()
end
def erl_app_version(app)
script = <<-ERL
ok = application:load(#{app}),
{ok, Vsn} = application:get_key(#{app}, vsn),
io:format("~s\\n", [Vsn]).
ERL
output = erl_run(script, "-pa ebin")
output.strip()
end
2008-12-06 06:20:26 +00:00
def erts_dir()
script = <<-ERL
io:format("~s\n", [lists:concat([code:root_dir(), "/erts-", erlang:system_info(version)])])
ERL
erl_run(script)
end
def erts_link_cflags()
if `uname`.strip() == "Darwin"
" -fPIC -bundle -flat_namespace -undefined suppress "
else
" -fpic -shared"
end
end
def do_validate_app()
# Setup app name and build sets of modules from the .app as well as
# beams that got compiled
if APP == nil
puts "No .app file found; skipping validation."
return
end
app = File.basename(APP, ".app")
modules = Set.new(erl_app_modules(app))
beams = Set.new(OBJ.pathmap("%n").to_a)
puts "validating #{app}.app..."
# Identify .beam files which are listed in the .app, but not present in ebin/
missing_beams = (modules - beams)
if not missing_beams.empty?
msg = "One or more modules listed in #{app}.app do not exist as .beam:\n"
missing_beams.each { |m| msg << " * #{m}\n" }
fail msg
end
# Identify modules which are not listed in the .app, but are present in ebin/
missing_modules = (beams - modules)
if not missing_modules.empty?
msg = "One or more .beam files exist that are not listed in #{app}.app:\n"
missing_modules.each { |m| msg << " * #{m}\n" }
fail msg
end
end
def do_compile_tests(dir)
if File.directory?(dir)
compile_cmd = "erlc #{ERLC_FLAGS} -I#{erl_where('common_test')} \
-I#{erl_where('test_server')} -o #{dir} #{dir}/*.erl".squeeze(" ")
sh compile_cmd, :verbose => false
Dir.mkdir "#{dir}/logs" unless File.directory?("#{dir}/logs")
end
end
def run_tests(dir, rest = "")
sh "erl -pa #{EBIN.join(' ')} #{PWD}/ebin #{PWD}/include \
-noshell -s ct_run script_start -s erlang halt \
#{get_cover(dir)} \
#{get_suites(dir)} -logdir #{dir}/logs -env TEST_DIR #{PWD}/#{dir} \
#{rest}" , :verbose => false
2008-12-06 06:20:26 +00:00
end
def get_cover(dir)
use_cover = ENV["use_cover"]
if use_cover
"-cover #{dir}/cover.spec"
else
""
end
end
def get_suites(dir)
suites = ENV['suites']
if suites
all_suites = ""
suites.each(' ') {|s| all_suites << "#{PWD}/#{dir}/#{s.strip}_SUITE "}
"-suite #{all_suites}"
else
"-dir #{dir}"
end
end