diff options
author | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
commit | 84adefa331c4159d432d22840663c38f155cd4c1 (patch) | |
tree | bff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/compiler/test/core_SUITE.erl | |
download | otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2 otp-84adefa331c4159d432d22840663c38f155cd4c1.zip |
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/compiler/test/core_SUITE.erl')
-rw-r--r-- | lib/compiler/test/core_SUITE.erl | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/lib/compiler/test/core_SUITE.erl b/lib/compiler/test/core_SUITE.erl new file mode 100644 index 0000000000..54cf799057 --- /dev/null +++ b/lib/compiler/test/core_SUITE.erl @@ -0,0 +1,59 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2006-2009. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% +-module(core_SUITE). + +-export([all/1,init_per_testcase/2,fin_per_testcase/2, + dehydrated_itracer/1,nested_tries/1]). + +-include("test_server.hrl"). + +-define(comp(N), + N(Config) when is_list(Config) -> try_it(N, Config)). + +init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) -> + Dog = test_server:timetrap(?t:minutes(5)), + [{watchdog,Dog}|Config]. + +fin_per_testcase(Case, Config) when is_atom(Case), is_list(Config) -> + Dog = ?config(watchdog, Config), + ?t:timetrap_cancel(Dog), + ok. + +all(suite) -> + test_lib:recompile(?MODULE), + [dehydrated_itracer,nested_tries]. + +?comp(dehydrated_itracer). +?comp(nested_tries). + +try_it(Mod, Conf) -> + ?line Src = filename:join(?config(data_dir, Conf), atom_to_list(Mod)), + ?line Out = ?config(priv_dir,Conf), + ?line io:format("Compiling: ~s\n", [Src]), + ?line CompRc0 = compile:file(Src, [from_core,{outdir,Out},report,time]), + ?line io:format("Result: ~p\n",[CompRc0]), + ?line {ok,Mod} = CompRc0, + + ?line {module,Mod} = code:load_abs(filename:join(Out, Mod)), + ?line ok = Mod:Mod(), + ok. + + + + |