percept: Remove application

8 files changed, 0 insertions, 713 deletions

diff --git a/lib/percept/test/Makefile b/lib/percept/test/Makefile
deleted file mode 100644
index 87fde49410..0000000000
--- a/lib/percept/test/Makefile
+++ /dev/null
@@ -1,91 +0,0 @@
-#
-# %CopyrightBegin%
-# 
-# Copyright Ericsson AB 2007-2016. All Rights Reserved.
-# 
-# Licensed under the Apache License, Version 2.0 (the "License");
-# you may not use this file except in compliance with the License.
-# You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-# 
-# %CopyrightEnd%
-#
-
-include $(ERL_TOP)/make/target.mk
-
-include $(ERL_TOP)/make/$(TARGET)/otp.mk
-
-# ----------------------------------------------------
-# Target Specs
-# ----------------------------------------------------
-
-MODULES= \
-	ipc_tree \
-	percept_SUITE \
-	egd_SUITE 
-
-EBIN = .
-
-HRL_FILES= 
-
-ERL_FILES= $(MODULES:%=%.erl)
-
-TARGET_FILES = $(MODULES:%=$(EBIN)/%.$(EMULATOR))
-
-SOURCE = $(ERL_FILES) $(HRL_FILES)
-
-EMAKEFILE=Emakefile
-
-# ----------------------------------------------------
-# Release directory specification
-# ----------------------------------------------------
-RELSYSDIR = $(RELEASE_PATH)/percept_test
-
-# ----------------------------------------------------
-# FLAGS
-# ----------------------------------------------------
-ERL_MAKE_FLAGS += 
-ERL_COMPILE_FLAGS += -I$(ERL_TOP)/lib/percept/include
-
-# ----------------------------------------------------
-# Targets
-# ----------------------------------------------------
-
-make_emakefile:
-	$(ERL_TOP)/make/make_emakefile $(ERL_COMPILE_FLAGS) -o$(EBIN) $(MODULES)\
-	> $(EMAKEFILE)
-
-tests debug opt: make_emakefile
-	erl $(ERL_MAKE_FLAGS) -make
-
-clean:
-	rm -f $(EMAKEFILE)
-	rm -f $(TARGET_FILES)
-	rm -f core *~
-
-docs:
-
-
-# ----------------------------------------------------
-# Release Target
-# ---------------------------------------------------- 
-include $(ERL_TOP)/make/otp_release_targets.mk
-
-release_spec: opt
-
-release_tests_spec: make_emakefile
-	$(INSTALL_DIR) "$(RELSYSDIR)"
-	$(INSTALL_DATA) percept.spec percept.cover $(EMAKEFILE) $(SOURCE) "$(RELSYSDIR)"
-	chmod -R u+w "$(RELSYSDIR)"
-	@tar cf - *_SUITE_data | (cd "$(RELSYSDIR)"; tar xf -)
-
-release_docs_spec:
-
-
diff --git a/lib/percept/test/egd_SUITE.erl b/lib/percept/test/egd_SUITE.erl
deleted file mode 100644
index 401695dddd..0000000000
--- a/lib/percept/test/egd_SUITE.erl
+++ /dev/null
@@ -1,389 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2007-2016. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%%     http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
--module(egd_SUITE).
--include_lib("common_test/include/ct.hrl").
-
-%% Test server specific exports
--export([all/0, suite/0]).
--export([init_per_suite/1, end_per_suite/1]).
--export([init_per_testcase/2, end_per_testcase/2]).
-
-%% Test cases
--export([image_create_and_destroy/1,
-         image_shape/1,
-         image_primitives/1,
-         image_colors/1,
-         image_font/1,
-         image_fans/1,
-         image_png_compliant/1]).
-
-suite() ->
-    [{ct_hooks,[ts_install_cth]},
-     {timetrap, {minutes, 1}}].
-
-all() -> 
-    [image_create_and_destroy, image_shape,
-     image_primitives, image_colors, image_font,
-     image_fans,
-     image_png_compliant].
-
-
-init_per_suite(Config) when is_list(Config) ->
-    rand:seed(exsplus),
-    Config.
-
-end_per_suite(Config) when is_list(Config) ->
-    Config.
-
-init_per_testcase(_Case, Config) ->
-    [{max_size, 800}|Config].
-
-end_per_testcase(_Case, _Config) ->
-    ok.
-
-%%----------------------------------------------------------------------
-%% Tests
-%%----------------------------------------------------------------------
-
-%% Image creation and destroy test.
-image_create_and_destroy(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    Image = egd:create(W, H),
-    ok = egd:destroy(Image),
-    ok.
-
-%% Image color test.
-image_colors(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    Dir = proplists:get_value(priv_dir, Config),
-    Image = egd:create(W, H),
-    put(image_size, {W,H}),
-
-    RGB = get_rgb(),
-    Black = egd:color({0,0,0}),
-    Red = egd:color({255,0,0}),
-    Green = egd:color({0,255,0}),
-    Blue = egd:color({0,0,255}),
-    Random = egd:color(Image, RGB),
-
-    ok = egd:line(Image, get_point(), get_point(), Random),
-    ok = egd:line(Image, get_point(), get_point(), Red),
-    ok = egd:line(Image, get_point(), get_point(), Green),
-    ok = egd:line(Image, get_point(), get_point(), Black),
-    ok = egd:line(Image, get_point(), get_point(), Blue),
-
-    HtmlDefaultNames = [black,silver,gray,white,maroon,red,
-                        purple,fuchia,green,lime,olive,yellow,navy,blue,teal,
-                        aqua],
-
-    lists:foreach(fun (ColorName) ->
-                          Color = egd:color(ColorName),
-                          ok    = egd:line(Image, get_point(), get_point(), Color)
-                  end, HtmlDefaultNames),
-
-    Png1 = <<_/binary>> = egd:render(Image,png,[{render_engine, alpha}]),
-    File1 = filename:join(Dir,"image_colors_alpha.png"),
-    ok = egd:save(Png1,File1),
-    ct:log("<p>Image alpha:</p><img src=\"~s\" />~n", [File1]),
-    Png2 = <<_/binary>> = egd:render(Image,png,[{render_engine, opaque}]),
-    File2 = filename:join(Dir,"image_colors_opaque.png"),
-    ok = egd:save(Png2,File2),
-    ct:log("<p>Image opaque:</p><img src=\"~s\" />~n", [File2]),
-
-    ok = egd:destroy(Image),
-    erase(image_size),
-    ok.
-
-%% Image shape API test.
-image_shape(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    Dir = proplists:get_value(priv_dir, Config),
-    put(image_size, {W,H}),
-    Im = egd:create(W, H),
-
-    Fgc = egd:color({255,0,0}),
-
-    ok = egd:line(Im, get_point(), get_point(), Fgc),
-    ok = egd:rectangle(Im, get_point(), get_point(), Fgc),
-    ok = egd:filledEllipse(Im, get_point(), get_point(), Fgc),
-    ok = egd:arc(Im, get_point(), get_point(), Fgc),
-    ok = egd:arc(Im, get_point(), get_point(), 100, Fgc),
-
-    Pt1 = get_point(),
-    Pt2 = get_point(), 
-
-    ok = egd:filledRectangle(Im, Pt1, Pt2, Fgc),
-
-    Bitmap = egd:render(Im, raw_bitmap),
-
-    ok = bitmap_point_has_color(Bitmap, {W,H}, Pt2, Fgc),
-    ok = bitmap_point_has_color(Bitmap, {W,H}, Pt1, Fgc),
-
-    Bin = <<_/binary>> = egd:render(Im, raw_bitmap, [{render_engine, alpha}]),
-    Png = egd_png:binary(W,H,Bin),
-    File = filename:join(Dir,"image_shape.png"),
-    ok = egd:save(Png,File),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File]),
-
-    ok = egd:destroy(Im),
-
-    erase(image_size),
-    ok.
-
-%% Image shape API test.
-image_primitives(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    Dir = proplists:get_value(priv_dir, Config),
-    put(image_size, {W,H}),
-
-    Im0 = egd_primitives:create(W, H),
-    Fgc = egd:color({25,25,255}),
-    Bgc = egd:color({0,250,25}),
-
-    Im1 = lists:foldl(fun ({Function, Arguments}, Im) ->
-                              erlang:apply(egd_primitives, Function, [Im|Arguments])
-                      end, Im0,
-                      [{Fs, [get_point(), get_point(), Bgc]} || Fs <- [line, rectangle, filledEllipse, arc]] ++
-                      [{pixel,          [get_point(), Bgc]},
-                       {filledTriangle, [get_point(), get_point(), get_point(), Bgc]}]),
-
-    Pt1 = get_point(),
-    Pt2 = get_point(), 
-
-    Im2 = egd_primitives:filledRectangle(Im1, Pt1, Pt2, Fgc),
-
-    Bitmap = egd_render:binary(Im2, opaque),
-
-    ok = bitmap_point_has_color(Bitmap, {W,H}, Pt2, Fgc),
-    ok = bitmap_point_has_color(Bitmap, {W,H}, Pt1, Fgc),
-
-    Bin = <<_/binary>> = egd_render:binary(Im2, alpha),
-    Png = egd_png:binary(W,H,Bin),
-    File = filename:join(Dir,"image_primitives.png"),
-    ok = egd:save(Png,File),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File]),
-
-    erase(image_size),
-    ok.
-
-%% Image font test.
-image_font(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    Dir = proplists:get_value(priv_dir, Config),
-    put(image_size, {W,H}),
-    Im = egd:create(W, H),
-    Fgc = egd:color({0,130,0}),
-
-    Filename = filename:join([code:priv_dir(percept),"fonts","6x11_latin1.wingsfont"]),
-    Font = egd_font:load(Filename),
-
-    % simple text
-    ok = egd:text(Im, get_point(), Font, "Hello World", Fgc),
-    <<_/binary>> = egd:render(Im, png),
-
-    GlyphStr1   = " !\"#$%&'()*+,-./",            % Codes  32 ->  47
-    NumericStr  = "0123456789",                   % Codes  48 ->  57
-    GlyphStr2   = ":;<=>?@",                      % Codes  58 ->  64
-    AlphaBigStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ",   % Codes  65 ->  90
-    GlyphStr3   = "[\\]^_`",                      % Codes  91 ->  96
-    AlphaSmStr  = "abcdefghijklmnopqrstuvwxyz",   % Codes  97 -> 122
-    GlyphStr4   = "{|}~",                         % Codes 123 -> 126
-
-    ok = egd:text(Im, get_point(), Font, GlyphStr1, Fgc),
-    Png1 = <<_/binary>> = egd:render(Im, png),
-    File1 = filename:join(Dir,"text1.png"),
-    ok = egd:save(Png1,File1),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File1]),
-
-    ok = egd:text(Im, get_point(), Font, NumericStr, Fgc),
-    Png2 = <<_/binary>> = egd:render(Im, png),
-    File2 = filename:join(Dir,"text2.png"),
-    ok = egd:save(Png2,File2),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File2]),
-
-    ok = egd:text(Im, get_point(), Font, GlyphStr2, Fgc),
-    Png3 = <<_/binary>> = egd:render(Im, png),
-    File3 = filename:join(Dir,"text3.png"),
-    ok = egd:save(Png3,File3),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File3]),
-
-    ok = egd:text(Im, get_point(), Font, AlphaBigStr, Fgc),
-    Png4 = <<_/binary>> = egd:render(Im, png),
-    File4 = filename:join(Dir,"text4.png"),
-    ok = egd:save(Png4,File4),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File4]),
-
-    ok = egd:text(Im, get_point(), Font, GlyphStr3, Fgc),
-    Png5 = <<_/binary>> = egd:render(Im, png),
-    File5 = filename:join(Dir,"text5.png"),
-    ok = egd:save(Png5,File5),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File5]),
-
-    ok = egd:text(Im, get_point(), Font, AlphaSmStr, Fgc),
-    Png6 = <<_/binary>> = egd:render(Im, png),
-    File6 = filename:join(Dir,"text6.png"),
-    ok = egd:save(Png6,File6),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File6]),
-
-    ok = egd:text(Im, get_point(), Font, GlyphStr4, Fgc),
-    Png7 = <<_/binary>> = egd:render(Im, png),
-    File7 = filename:join(Dir,"text7.png"),
-    ok = egd:save(Png7,File7),
-    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File7]),
-
-    ok = egd:destroy(Im),
-    erase(image_size),
-    ok.
-
-%% Image png compliant test.
-image_png_compliant(Config) when is_list(Config) ->
-    {W,H} = get_size(proplists:get_value(max_size, Config)),
-    put(image_size, {W,H}),
-    Im = egd:create(W, H),
-    Fgc = egd:color({0,0,0}),
-    ok = egd:filledRectangle(Im, get_point(), get_point(), Fgc),
-
-    Bin = egd:render(Im, png),
-    true = binary_is_png_compliant(Bin),
-
-    ok = egd:destroy(Im),
-    erase(image_size),
-    ok.
-
-image_fans(Config) when is_list(Config) ->
-    W = 1024,
-    H = 800,
-    Dir = proplists:get_value(priv_dir, Config),
-
-    Fun = fun({F,Args},Im) ->
-                  erlang:apply(egd_primitives,F,[Im|Args])
-          end,
-
-    %% fan1
-    Ops1 = gen_vertical_fan(1,{0,400},egd:color(red),1024,800,-15),
-    Ops2 = gen_horizontal_fan(1,{512,800},egd:color(green),1024,0,-15),
-
-    Im0 = egd_primitives:create(W,H),
-    Im1 = lists:foldl(Fun, Im0, Ops1 ++ Ops2),
-    Bin1 = egd_render:binary(Im1, opaque),
-    Png1 = egd_png:binary(W,H,Bin1),
-
-    File1 = filename:join(Dir,"fan1_opaque.png"),
-    ok = egd:save(Png1,File1),
-    ct:log("<p>Image opaque width 1:</p><img src=\"~s\" />~n", [File1]),
-
-    Bin2 = egd_render:binary(Im1, alpha),
-    Png2 = egd_png:binary(W,H,Bin2),
-
-    File2 = filename:join(Dir,"fan1_alpha.png"),
-    ok = egd:save(Png2,File2),
-    ct:log("<p>Image alpha width 1:</p><img src=\"~s\" />~n", [File2]),
-
-
-    %% fan2
-    Ops3 = gen_vertical_fan(7,{0,400},egd:color(red),1024,800,-15),
-    Ops4 = gen_horizontal_fan(7,{512,800},egd:color(green),1024,0,-15),
-
-    Im2 = lists:foldl(Fun, Im0, Ops3 ++ Ops4),
-    Bin3 = egd_render:binary(Im2, opaque),
-    Png3 = egd_png:binary(W,H,Bin3),
-
-    File3 = filename:join(Dir,"fan2_opaque.png"),
-    ok = egd:save(Png3,File3),
-    ct:log("<p>Image opaque width 7:</p><img src=\"~s\" />~n", [File3]),
-
-    Bin4 = egd_render:binary(Im2, alpha),
-    Png4 = egd_png:binary(W,H,Bin4),
-
-    File4 = filename:join(Dir,"fan2_alpha.png"),
-    ok = egd:save(Png4,File4),
-    ct:log("<p>Image alpha width 7:</p><img src=\"~s\" />~n", [File4]),
-    ok.
-
-gen_vertical_fan(Wd,Pt,C,X,Y,Step) when Y > 0 ->
-    [{line,[Pt,{X,Y},Wd,C]}|gen_vertical_fan(Wd,Pt,C,X,Y + Step,Step)];
-gen_vertical_fan(_,_,_,_,_,_) -> [].
-
-gen_horizontal_fan(Wd,Pt,C,X,Y,Step) when X > 0 ->
-    [{line,[Pt,{X,Y},Wd,C]}|gen_horizontal_fan(Wd,Pt,C,X + Step,Y,Step)];
-gen_horizontal_fan(_,_,_,_,_,_) -> [].
-
-
-%%----------------------------------------------------------------------
-%% Auxiliary tests
-%%----------------------------------------------------------------------
-
-bitmap_point_has_color(Bitmap, {W,_}, {X,Y}, C) ->
-    {CR,CG,CB,_} = egd_primitives:rgb_float2byte(C),
-    N = W*Y*3 + X*3,
-    << _:N/binary, R,G,B, _/binary>> = Bitmap,
-    case {R,G,B} of
-        {CR,CG,CB} -> ok;
-        Other ->
-            io:format("bitmap_point_has_color: error color was ~p, should be ~p~n", [Other, {CR,CG,CB}]),
-            {error, {Other,{CR,CG,CB}}}
-    end.
-
-binary_is_png_compliant(PngBin) ->
-    {Bin, _} = split_binary(PngBin, 10),
-    List = binary_to_list(Bin),
-    case lists:sublist(List, 2,3) of
-        "PNG" -> true;
-        Other ->
-            io:format("img -> ~p~n", [Other]),
-            false
-    end.
-
-%%----------------------------------------------------------------------
-%% Auxiliary
-%%----------------------------------------------------------------------
-
-
-get_rgb() ->
-    R = random(255),
-    G = random(255),
-    B = random(255),
-    {R,G,B}.
-
-get_angle() ->
-    random(359).
-
-get_point() ->
-    get_point(get(image_size)).
-get_point({W,H}) ->
-    X = random(W - 1),
-    Y = random(H - 1),
-    {X,Y}.
-
-get_size(Max) ->
-    W = trunc(random(Max/2) + Max/2 + 1),
-    H = trunc(random(Max/2) + Max/2 + 1),
-    io:format("Image size will be ~p x ~p~n", [W,H]),
-    {W,H}.
-
-get_points(N) ->
-    get_points(N, []).
-get_points(0, Out) ->
-    Out;
-get_points(N, Out) ->
-    get_points(N - 1, [get_point() | Out]).
-
-random(N) -> trunc(rand:uniform(trunc(N + 1)) - 1).
diff --git a/lib/percept/test/ipc_tree.erl b/lib/percept/test/ipc_tree.erl
deleted file mode 100644
index 29da20e83f..0000000000
--- a/lib/percept/test/ipc_tree.erl
+++ /dev/null
@@ -1,49 +0,0 @@
-%% ``Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%%     http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions 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(ipc_tree).
--export([go/1, init/2]).
-
-go(N) ->
-    start(N, self()),
-    receive stop -> ok end.
-
-start(Depth, ParentPid) ->
-    spawn(?MODULE, init, [Depth, ParentPid]).
-
-init(0, ParentPid) -> 
-    workload(5000),
-    ParentPid ! stop,
-    ok;
-init(Depth, ParentPid) ->
-    Pid1 = spawn(?MODULE, init, [Depth - 1, self()]),
-    Pid2 = spawn(?MODULE, init, [Depth - 1, self()]),
-    main([Pid1,Pid2], ParentPid).
-
-main(Pids, ParentPid) ->
-    workload(5000),
-    gather(Pids),
-    ParentPid ! stop,
-    ok.
-
-gather([]) -> ok;
-gather([_|Pids]) -> receive _ -> gather(Pids) end.
-
-workload(0) -> ok;
-workload(N) -> _ = math:sin(2), workload(N - 1).
diff --git a/lib/percept/test/percept.cover b/lib/percept/test/percept.cover
deleted file mode 100644
index 8a5ad0a55e..0000000000
--- a/lib/percept/test/percept.cover
+++ /dev/null
@@ -1,2 +0,0 @@
-{incl_app,percept,details}.
-
diff --git a/lib/percept/test/percept.spec b/lib/percept/test/percept.spec
deleted file mode 100644
index f3ef76bd60..0000000000
--- a/lib/percept/test/percept.spec
+++ /dev/null
@@ -1 +0,0 @@
-{suites,"../percept_test",all}.
diff --git a/lib/percept/test/percept_SUITE.erl b/lib/percept/test/percept_SUITE.erl
deleted file mode 100644
index 2be8b70e0d..0000000000
--- a/lib/percept/test/percept_SUITE.erl
+++ /dev/null
@@ -1,126 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 2007-2016. All Rights Reserved.
-%% 
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%%     http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%% 
-%% %CopyrightEnd%
-%%
-
--module(percept_SUITE).
--include_lib("common_test/include/ct.hrl").
-
-%% Test server specific exports
--export([all/0, suite/0]).
-
-%% Test cases
--export([app/1,
-         appup/1,
-         profile/1,
-         analyze/1,
-         analyze_dist/1,
-         webserver/1]).
-
-suite() ->
-    [{ct_hooks,[ts_install_cth]},
-     {timetrap, {minutes, 2}}].
-
-all() -> 
-    [app, appup, webserver, profile,
-     analyze, analyze_dist].
-
-
-%%----------------------------------------------------------------------
-%% Tests
-%%----------------------------------------------------------------------
-
-%% Test that the percept app file is ok
-app(Config) when is_list(Config) ->
-    ok = test_server:app_test(percept).
-
-%% Test that the percept appup file is ok
-appup(Config) when is_list(Config) ->
-    ok = test_server:appup_test(percept).
-
-%% Percept webserver test.
-webserver(Config) when is_list(Config) ->
-    % Explicit start inets?
-    {started, _, Port} = percept:start_webserver(),
-    ok = percept:stop_webserver(Port), 
-    {started, _, _} = percept:start_webserver(),
-    ok = percept:stop_webserver(),
-    {started, _, NewPort} = percept:start_webserver(),
-    ok = percept:stop_webserver(NewPort),
-    application:stop(inets),
-    ok.
-
-%% Percept profile test.
-profile(Config) when is_list(Config) ->
-    Path = proplists:get_value(data_dir, Config),
-    File = filename:join([Path,"profile_test.dat"]),
-    {ok, _} = percept:profile(File, [procs]),
-    ipc_tree:go(7),
-    ok = percept:stop_profile(),
-    ok.
-
-%% Percept analyze test.
-analyze(Config) when is_list(Config) ->
-    Begin = processes(),
-    Path = proplists:get_value(data_dir, Config),
-    File = filename:join([Path,"profile_test.dat"]),
-    T0 = erlang:monotonic_time(millisecond),
-    ok = percept:analyze(File),
-    T1 = erlang:monotonic_time(millisecond),
-    io:format("percept:analyze/1 took ~w ms.~n", [T1 - T0]),
-    {stopped, _} = percept_db:stop(),
-    print_remainers(remainers(Begin, processes())),
-    ok.
-
-%% Percept analyze distribution test.
-analyze_dist(Config) when is_list(Config) ->
-    Begin = processes(),
-    Path = proplists:get_value(data_dir, Config),
-    File = filename:join([Path,"ipc-dist.dat"]),
-    T0 = erlang:monotonic_time(millisecond),
-    ok = percept:analyze(File),
-    T1 = erlang:monotonic_time(millisecond),
-    io:format("percept:analyze/1 took ~w ms.~n", [T1 - T0]),
-    {stopped, _} = percept_db:stop(),
-    print_remainers(remainers(Begin, processes())),
-    ok.
-
-%%----------------------------------------------------------------------
-%% Auxiliary tests
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Auxiliary
-%%----------------------------------------------------------------------
-
-print_remainers([])   -> ok;
-print_remainers([Pid|Pids]) ->
-    io:format("[Pid ~p] [Entry ~p] [Name ~p]~n", [
-	Pid,
-	erlang:process_info(Pid, initial_call),
-	erlang:process_info(Pid, registered_name)
-    ]),
-    print_remainers(Pids).
-
-remainers(Begin, End) -> remainers(Begin, End, []).
-remainers(_, [], Out) -> lists:reverse(Out);
-remainers(Begin, [Pid|End], Out) ->
-    case lists:member(Pid, Begin) of
-	true  -> remainers(Begin, End, Out);
-	false -> remainers(Begin, End, [Pid|Out])
-    end.
diff --git a/lib/percept/test/percept_SUITE_data/ipc-dist.dat b/lib/percept/test/percept_SUITE_data/ipc-dist.dat
deleted file mode 100644
index 14ab6c0c5d..0000000000
--- a/lib/percept/test/percept_SUITE_data/ipc-dist.dat
+++ /dev/null
diff --git a/lib/percept/test/percept_db_SUITE.erl b/lib/percept/test/percept_db_SUITE.erl
deleted file mode 100644
index b2827e0e42..0000000000
--- a/lib/percept/test/percept_db_SUITE.erl
+++ /dev/null
@@ -1,55 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2007-2016. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%%     http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
--module(percept_db_SUITE).
--include_lib("common_test/include/ct.hrl").
-
-%% Test server specific exports
--export([all/0, suite/0]).
-
-%% Test cases
--export([start/1]).
-
-%% Default timetrap timeout (set in init_per_testcase)
--define(restarts, 10).
--define(alive_timeout, 500).
-
-suite() ->
-    [{timetrap, {minutes, 2}}].
-
-all() ->
-    [start].
-
-%%----------------------------------------------------------------------
-%% Tests
-%%----------------------------------------------------------------------
-
-%% Percept_db start and restart test.
-start(Config) when is_list(Config) ->
-    ok = restart(?restarts),
-    {stopped, _DB} = percept_db:stop(),
-    ok.
-
-restart(0)-> ok;
-restart(N)->
-    {_, DB} = percept_db:start(),
-    timer:sleep(?alive_timeout),
-    true = erlang:is_process_alive(DB),
-    restart(N-1).