1%%
2%% %CopyrightBegin%
3%%
4%% Copyright Ericsson AB 1998-2016. All Rights Reserved.
5%%
6%% Licensed under the Apache License, Version 2.0 (the "License");
7%% you may not use this file except in compliance with the License.
8%% You may obtain a copy of the License at
9%%
10%%     http://www.apache.org/licenses/LICENSE-2.0
11%%
12%% Unless required by applicable law or agreed to in writing, software
13%% distributed under the License is distributed on an "AS IS" BASIS,
14%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15%% See the License for the specific language governing permissions and
16%% limitations under the License.
17%%
18%% %CopyrightEnd%
19%%
20
21%%
22-module(cleanup).
23
24-export([all/0,groups/0,init_per_group/2,end_per_group/2, cleanup/1]).
25
26-include_lib("common_test/include/ct.hrl").
27
28all() ->
29    [cleanup].
30
31groups() ->
32    [].
33
34init_per_group(_GroupName, Config) ->
35    Config.
36
37end_per_group(_GroupName, Config) ->
38    Config.
39
40
41cleanup(_) ->
42    Mods = int:interpreted(),
43    ok = int:n(Mods),
44    case whereis(interpret) of
45	undefined ->
46	    ok;
47	Pid ->
48	    exit(Pid, kill)
49    end,
50    case whereis(int_db) of
51	undefined ->
52	    ok;
53	Pid2 ->
54	    exit(Pid2, kill)
55    end,
56    ok.
57