From c3b086d38bd152af39381bfae96c1e9ce7e7be9b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 12 Aug 2010 16:20:20 +0200
Subject: Add test suite for debugger

---
 lib/debugger/test/int_break_SUITE.erl | 92 +++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100644 lib/debugger/test/int_break_SUITE.erl

(limited to 'lib/debugger/test/int_break_SUITE.erl')

diff --git a/lib/debugger/test/int_break_SUITE.erl b/lib/debugger/test/int_break_SUITE.erl
new file mode 100644
index 0000000000..b7b3c5598a
--- /dev/null
+++ b/lib/debugger/test/int_break_SUITE.erl
@@ -0,0 +1,92 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1999-2010. All Rights Reserved.
+%%
+%% 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 online 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.
+%%
+%% %CopyrightEnd%
+%%
+
+%%
+-module(int_break_SUITE).
+
+%% Test break points.
+
+-include("test_server.hrl").
+
+-export([all/1,init_per_testcase/2,fin_per_testcase/2,
+	 basic/1,cleanup/1]).
+
+-export([auto_attach/1]).
+
+all(suite) ->
+    [basic,cleanup].
+
+init_per_testcase(_Case, Config) ->
+    ?line DataDir = ?config(data_dir, Config),
+    ?line Mod = ordsets1,
+    ?line {module,Mod} = int:i(filename:join(DataDir, Mod)),
+    ?line ok = io:format("Interpreted modules: ~p", [int:interpreted()]),
+    ?line Dog = test_server:timetrap(?t:minutes(0.5)),
+    [{watchdog,Dog}|Config].
+
+fin_per_testcase(_Case, Config) ->
+    ?line ok = io:format("Interpreted modules: ~p", [int:interpreted()]),
+    ?line Dog = ?config(watchdog, Config),
+    ?t:timetrap_cancel(Dog),
+    ok.
+
+basic(doc) -> "Tests setting a few break points.";
+basic(suite) -> [];
+basic(Config) when list(Config) ->
+    ?line int:auto_attach([init], {?MODULE,auto_attach}),
+    ?line S1 = [] = ordsets1:new_set(),
+    ?line ok = i:ib(ordsets1, 86),
+    ?line S2 = [xxx] = ordsets1:add_element(xxx, S1),
+    ?line S3 = [xxx,y] = ordsets1:add_element(y, S2),
+    ?line ok = i:ib(ordsets1, union, 2),
+    ?line [xxx,y,z] = ordsets1:union(S3, [z]),
+    ok.
+
+cleanup(doc) -> "Make sure that the auto-attach flag is turned off.";
+cleanup(suite) -> [];
+cleanup(Config) when list(Config) ->
+    ?line int:auto_attach(false),
+    ok.
+
+auto_attach(Pid) ->
+    {ok, Meta} = int:attached(Pid),
+    io:format("Pid = ~p; Meta = ~p", [Pid,Meta]),
+    link(Meta),
+    attach_loop(Pid, Meta).
+
+attach_loop(Pid, Meta) ->
+    receive
+	Msg ->
+	    io:format("attached: ~p", [Msg]),
+	    attach_cmd(Msg, Pid, Meta),
+	    attach_loop(Pid, Meta)
+    end.
+
+attach_cmd({Meta,{break_at,ordsets1,36,2}}, _Pid, Meta) ->
+    int:meta(Meta, continue);
+attach_cmd({Meta,{break_at,ordsets1,87,_}}, _Pid, Meta) ->
+    int:meta(Meta, continue);
+attach_cmd({Meta,{break_at,ordsets1,89,_}}, _Pid, Meta) ->
+    int:meta(Meta, continue);
+attach_cmd({Meta,{break_at,ordsets1,Line,_}}, _Pid, Meta) when 107 =< Line, Line =< 115 ->
+    int:meta(Meta, finish);
+attach_cmd({Meta,{break_at,_Mod,_Line,_Other}}=Cmd, _Pid, Meta) ->
+    io:format("attached: no action for ~p", [Cmd]);
+attach_cmd(_, _Pid, _Meta) ->
+    ok.
-- 
cgit v1.2.3