From 40014d4b190c86044df5f1aa70dad7138d531b7b Mon Sep 17 00:00:00 2001
From: Siri Hansen <siri@erlang.org>
Date: Wed, 4 Jan 2012 16:09:01 +0100
Subject: [reltool] Add more test cases and fix bugs

OTP-9794

The following test cases are added for the inteface from GUI to
reltool_server:
    * get_config
    * get_apps
    * set_app_and_undo
    * set_apps_and_undo
    * load_config_and_undo
    * reset_config_and_undo
    * save_config

The following bugs were found and corrected:
    * If set_apps failed, then the state of reltool_server would not
      be reset to how it was before the failing operation - and every
      operation done afterwards would also (seem to) fail.
    * undo_config did not work after reset_config - since faulty #sys
      record was stored as old_sys.
    * undo_config did not work after set_app (used when changing the
      content of an application from the GUI) - since old_sys was not
      set. Also old_status was not set causing possible warnings to
      disappear.
    * undo_config did not work after set_apps (used e.g. when
      excluding or including an application from the GUI) - since
      old_sys was not set. Also old_status was not set causing
      possible warnings to disappear.
---
 .../faulty_app_file/a-1.0/src/a_sup.erl            | 37 ++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 lib/reltool/test/reltool_server_SUITE_data/faulty_app_file/a-1.0/src/a_sup.erl

(limited to 'lib/reltool/test/reltool_server_SUITE_data/faulty_app_file/a-1.0/src/a_sup.erl')

diff --git a/lib/reltool/test/reltool_server_SUITE_data/faulty_app_file/a-1.0/src/a_sup.erl b/lib/reltool/test/reltool_server_SUITE_data/faulty_app_file/a-1.0/src/a_sup.erl
new file mode 100644
index 0000000000..a141c1767b
--- /dev/null
+++ b/lib/reltool/test/reltool_server_SUITE_data/faulty_app_file/a-1.0/src/a_sup.erl
@@ -0,0 +1,37 @@
+%% ``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 via the world wide web 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.
+%%
+%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
+%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
+%% AB. All Rights Reserved.''
+%%
+%%     $Id$
+%%
+-module(a_sup).
+
+
+-behaviour(supervisor).
+
+%% External exports
+-export([start/2]).
+
+%% Internal exports
+-export([init/1]).
+
+start(_, _) ->
+    supervisor:start_link({local, a_sup}, a_sup, []).
+
+init([]) ->
+    SupFlags = {one_for_one, 4, 3600},
+    Config = {a,
+	      {a, start_link, []},
+	      permanent, 2000, worker, [a]},
+    {ok, {SupFlags, [Config]}}.
-- 
cgit v1.2.3