From d45bacb73bd1a255a5042929a49c81ab298df946 Mon Sep 17 00:00:00 2001
From: Fred Hebert <mononcqc@ferd.ca>
Date: Tue, 5 Dec 2017 13:05:14 -0500
Subject: Run a soft purge while within the compiler step
Prevents the killing of a plugin with itself
---
.../grisp_explode/src/mygrispproject.app.src | 17 +++++++++++++++++
.../grisp_explode/src/mygrispproject.erl | 15 +++++++++++++++
.../grisp_explode/src/mygrispproject_sup.erl | 19 +++++++++++++++++++
3 files changed, 51 insertions(+)
create mode 100644 systest/all_SUITE_data/grisp_explode/src/mygrispproject.app.src
create mode 100644 systest/all_SUITE_data/grisp_explode/src/mygrispproject.erl
create mode 100644 systest/all_SUITE_data/grisp_explode/src/mygrispproject_sup.erl
(limited to 'systest/all_SUITE_data/grisp_explode/src')
diff --git a/systest/all_SUITE_data/grisp_explode/src/mygrispproject.app.src b/systest/all_SUITE_data/grisp_explode/src/mygrispproject.app.src
new file mode 100644
index 0000000..0f0a396
--- /dev/null
+++ b/systest/all_SUITE_data/grisp_explode/src/mygrispproject.app.src
@@ -0,0 +1,17 @@
+{application, mygrispproject, [
+ {description, "A GRiSP application"},
+ {vsn, "0.1.0"},
+ {registered, []},
+ {mod, {mygrispproject, []}},
+ {applications, [
+ kernel,
+ stdlib,
+ grisp
+ ]},
+ {env,[]},
+ {modules, []},
+
+ {maintainers, []},
+ {licenses, ["Apache 2.0"]},
+ {links, []}
+]}.
diff --git a/systest/all_SUITE_data/grisp_explode/src/mygrispproject.erl b/systest/all_SUITE_data/grisp_explode/src/mygrispproject.erl
new file mode 100644
index 0000000..a9152fe
--- /dev/null
+++ b/systest/all_SUITE_data/grisp_explode/src/mygrispproject.erl
@@ -0,0 +1,15 @@
+% @doc mygrispproject public API.
+% @end
+-module(mygrispproject).
+
+-behavior(application).
+
+% Callbacks
+-export([start/2]).
+-export([stop/1]).
+
+%--- Callbacks -----------------------------------------------------------------
+
+start(_Type, _Args) -> mygrispproject_sup:start_link().
+
+stop(_State) -> ok.
diff --git a/systest/all_SUITE_data/grisp_explode/src/mygrispproject_sup.erl b/systest/all_SUITE_data/grisp_explode/src/mygrispproject_sup.erl
new file mode 100644
index 0000000..aef0d4f
--- /dev/null
+++ b/systest/all_SUITE_data/grisp_explode/src/mygrispproject_sup.erl
@@ -0,0 +1,19 @@
+% @doc mygrispproject top level supervisor.
+% @end
+-module(mygrispproject_sup).
+
+-behavior(supervisor).
+
+% API
+-export([start_link/0]).
+
+% Callbacks
+-export([init/1]).
+
+%--- API -----------------------------------------------------------------------
+
+start_link() -> supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%--- Callbacks -----------------------------------------------------------------
+
+init([]) -> {ok, { {one_for_all, 0, 1}, []} }.
--
cgit v1.1