diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2010-08-12 16:39:11 +0200 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2010-09-06 14:26:29 +0200 |
commit | 8e9b11172194ff2920bf572ccbe87a070fe54ec4 (patch) | |
tree | 93c0adb09df30466bad521ad7878a886a70888f3 /lib/runtime_tools/test/runtime_tools_SUITE.erl | |
parent | c3b086d38bd152af39381bfae96c1e9ce7e7be9b (diff) | |
download | otp-8e9b11172194ff2920bf572ccbe87a070fe54ec4.tar.gz otp-8e9b11172194ff2920bf572ccbe87a070fe54ec4.tar.bz2 otp-8e9b11172194ff2920bf572ccbe87a070fe54ec4.zip |
Add test suite for runtime_tools
Diffstat (limited to 'lib/runtime_tools/test/runtime_tools_SUITE.erl')
-rw-r--r-- | lib/runtime_tools/test/runtime_tools_SUITE.erl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/lib/runtime_tools/test/runtime_tools_SUITE.erl b/lib/runtime_tools/test/runtime_tools_SUITE.erl new file mode 100644 index 0000000000..84e255e126 --- /dev/null +++ b/lib/runtime_tools/test/runtime_tools_SUITE.erl @@ -0,0 +1,50 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010. 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(runtime_tools_SUITE). +-include("test_server.hrl"). + +%% Test server specific exports +-export([all/1]). +-export([init_per_testcase/2, end_per_testcase/2]). + +%% Test cases +-export([app_file/1]). + +%% Default timetrap timeout (set in init_per_testcase) +-define(default_timeout, ?t:minutes(1)). + +init_per_testcase(_Case, Config) -> + Dog = test_server:timetrap(?default_timeout), + [{watchdog, Dog} | Config]. + +end_per_testcase(_Case, Config) -> + Dog = ?config(watchdog, Config), + ?t:timetrap_cancel(Dog), + ok. + +all(suite) -> + [app_file]. + +app_file(suite) -> + []; +app_file(doc) -> + ["Testing .app file"]; +app_file(Config) when is_list(Config) -> + ?line ok = ?t:app_test(runtime_tools), + ok. |