1: %%
    2: %% %CopyrightBegin%
    3: %%
    4: %% Copyright Ericsson AB 2006-2013. 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: 
   20: -module(observer_SUITE).
   21: -include_lib("test_server/include/test_server.hrl").
   22: 
   23: %% Test server specific exports
   24: -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
   25: 	 init_per_group/2,end_per_group/2]).
   26: -export([init_per_testcase/2, end_per_testcase/2]).
   27: 
   28: %% Test cases
   29: -export([app_file/1]).
   30: 
   31: %% Default timetrap timeout (set in init_per_testcase)
   32: -define(default_timeout, ?t:minutes(1)).
   33: 
   34: init_per_testcase(_Case, Config) ->
   35:     Dog = ?t:timetrap(?default_timeout),
   36:     [{watchdog, Dog} | Config].
   37: 
   38: end_per_testcase(_Case, Config) ->
   39:     Dog = ?config(watchdog, Config),
   40:     ?t:timetrap_cancel(Dog),
   41:     ok.
   42: 
   43: suite() -> [{ct_hooks,[ts_install_cth]}].
   44: 
   45: all() -> 
   46:     [app_file].
   47: 
   48: groups() -> 
   49:     [].
   50: 
   51: init_per_suite(Config) ->
   52:     Config.
   53: 
   54: end_per_suite(_Config) ->
   55:     ok.
   56: 
   57: init_per_group(_GroupName, Config) ->
   58:     Config.
   59: 
   60: end_per_group(_GroupName, Config) ->
   61:     Config.
   62: 
   63: 
   64: app_file(suite) ->
   65:     [];
   66: app_file(doc) ->
   67:     ["Testing .app file"];
   68: app_file(Config) when is_list(Config) ->
   69:     ?line ok = ?t:app_test(observer),
   70:     ok.