From d8028da128c4382fdc5781df70a9ca5d56f38694 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Tue, 3 May 2016 16:24:02 +0200
Subject: et: Remove unnecessary boilerplate in tests

---
 lib/et/test/et_SUITE.erl    | 24 ++++--------------------
 lib/et/test/et_wx_SUITE.erl | 23 +++++++----------------
 2 files changed, 11 insertions(+), 36 deletions(-)

(limited to 'lib/et/test')

diff --git a/lib/et/test/et_SUITE.erl b/lib/et/test/et_SUITE.erl
index 4a26b46439..199aff43a8 100644
--- a/lib/et/test/et_SUITE.erl
+++ b/lib/et/test/et_SUITE.erl
@@ -16,7 +16,8 @@
 %%
 -module(et_SUITE).
 
--compile([export_all]).
+-export([suite/0, all/0]).
+-export([app/1, appup/1]).
 -include_lib("common_test/include/ct.hrl").
 
 suite() ->
@@ -25,27 +26,10 @@ suite() ->
 all() ->
     [app, appup].
 
-groups() ->
-    [].
-
-init_per_suite(Config) ->
-    Config.
-
-end_per_suite(_Config) ->
-     ok.
-
-init_per_group(_GroupName, Config) ->
-    Config.
-
-end_per_group(_GroupName, Config) ->
-    Config.
-
-app() ->
-    [{doc, "Test that the et app file is ok"}].
+%% Test that the et app file is ok
 app(Config) when is_list(Config) ->
     ok = ?t:app_test(et).
 
-appup() ->
-    [{doc, "Test that the et appup file is ok"}].
+%% Test that the et appup file is ok
 appup(Config) when is_list(Config) ->
     ok = ?t:appup_test(et).
diff --git a/lib/et/test/et_wx_SUITE.erl b/lib/et/test/et_wx_SUITE.erl
index 785d1b8145..6475b6706b 100644
--- a/lib/et/test/et_wx_SUITE.erl
+++ b/lib/et/test/et_wx_SUITE.erl
@@ -19,11 +19,10 @@
 
 -module(et_wx_SUITE).
 
--export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, 
-	 init_per_suite/1, end_per_suite/1, 
-	 init_per_testcase/2, end_per_testcase/2]).
-
--compile(export_all).
+-export([all/0, suite/0,
+         init_per_testcase/2, end_per_testcase/2,
+         init_per_suite/1, end_per_suite/1]).
+-export([start_all_windows/1]).
 
 -include("et_test_lib.hrl").
 
@@ -40,21 +39,13 @@ end_per_testcase(Func,Config) ->
     et_test_lib:end_per_testcase(Func,Config).
 
 %% SUITE specification
-suite() -> [{ct_hooks,[ts_install_cth]}].
+
+suite() ->
+    [{ct_hooks,[ts_install_cth]}].
 
 all() -> 
     [start_all_windows].
 
-groups() -> 
-    [].
-
-init_per_group(_GroupName, Config) ->
-    Config.
-
-end_per_group(_GroupName, Config) ->
-    Config.
-
-
 %% The test cases
 
 %% Display all windows and see if something crashes
-- 
cgit v1.2.3