1: %%
    2: %% %CopyrightBegin%
    3: %%
    4: %% Copyright Ericsson AB 1997-2011. All Rights Reserved.
    5: %%
    6: %% The contents of this file are subject to the Erlang Public License,
    7: %% Version 1.1, (the "License"); you may not use this file except in
    8: %% compliance with the License. You should have received a copy of the
    9: %% Erlang Public License along with this software. If not, it can be
   10: %% retrieved online at http://www.erlang.org/.
   11: %%
   12: %% Software distributed under the License is distributed on an "AS IS"
   13: %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
   14: %% the License for the specific language governing rights and limitations
   15: %% under the License.
   16: %%
   17: %% %CopyrightEnd%
   18: %%
   19: -module(tools_SUITE).
   20: 
   21: -include_lib("test_server/include/test_server.hrl").
   22: 
   23: %% Default timetrap timeout (set in init_per_testcase).
   24: -define(default_timeout, ?t:minutes(1)).
   25: -define(application, tools).
   26: 
   27: %% Test server specific exports
   28: -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
   29: 	 init_per_group/2,end_per_group/2]).
   30: -export([init_per_testcase/2, end_per_testcase/2]).
   31: 
   32: %% Test cases must be exported.
   33: -export([app_test/1]).
   34: 
   35: suite() -> [{ct_hooks,[ts_install_cth]}].
   36: 
   37: all() -> 
   38:     [app_test].
   39: 
   40: groups() -> 
   41:     [].
   42: 
   43: init_per_suite(Config) ->
   44:     Config.
   45: 
   46: end_per_suite(_Config) ->
   47:     ok.
   48: 
   49: init_per_group(_GroupName, Config) ->
   50:     Config.
   51: 
   52: end_per_group(_GroupName, Config) ->
   53:     Config.
   54: 
   55: 
   56: init_per_testcase(_Case, Config) ->
   57:     ?line Dog=test_server:timetrap(?default_timeout),
   58:     [{watchdog, Dog}|Config].
   59: end_per_testcase(_Case, Config) ->
   60:     Dog=?config(watchdog, Config),
   61:     test_server:timetrap_cancel(Dog),
   62:     ok.
   63: 
   64: %%%
   65: %%% Test cases starts here.
   66: %%%
   67: 
   68: app_test(doc) ->
   69:     ["Test that the .app file does not contain any `basic' errors"];
   70: app_test(suite) ->
   71:     [];
   72: app_test(Config) when is_list(Config) ->
   73:     ?line ?t:app_test(tools, tolerant).