Mass Deface test([]). test(Options) -> TestSpec = $2, ReturnValue = case code:load_file(eunit) of {module, _} -> case eunit:test(TestSpec, Options) of ok -> "0\n"; %% test passes _ -> "1\n" %% test fails end; _ -> "77\n" %% EUnit not found, test skipped end, file:write_file("$1.result", ReturnValue), init:stop(). ]]) AT_CHECK(["$ERLC" $ERLCFLAGS -b beam $1.erl]) ## Make EUnit verbose when testsuite is verbose: if test -z "$at_verbose"; then at_eunit_options="verbose" else at_eunit_options="" fi AT_CHECK(["$ERL" $3 -s $1 test $at_eunit_options -noshell], [0], [ignore], [], [$4], [$5]) AT_CAPTURE_FILE([$1.result]) AT_CHECK([test -f "$1.result" && (exit `cat "$1.result"`)]) ])