← Back to branch summary

~clint-fewbar/ubuntu/precise/erlang/merge-15b

« back to all changes in this revision

Viewing changes to lib/debugger/test/dbg_ui_SUITE.erl

  • Committer: Package Import Robot
  • Author(s): Sergei Golovan
  • Date: 2011-12-15 19:20:10 UTC
  • mfrom: (1.1.18) (3.5.15 sid)
  • mto: (3.5.16 sid)
  • mto: This revision was merged to the branch mainline in revision 33.
  • Revision ID: package-import@ubuntu.com-20111215192010-jnxcfe3tbrpp0big
Tags: 1:15.b-dfsg-1
* New upstream release.
* Upload to experimental because this release breaks external drivers
  API along with ABI, so several applications are to be fixed.
* Removed SSL patch because the old SSL implementation is removed from
  the upstream distribution.
* Removed never used patch which added native code to erlang beam files.
* Removed the erlang-docbuilder binary package because the docbuilder
  application was dropped by upstream.
* Documented dropping ${erlang-docbuilder:Depends} substvar in
  erlang-depends(1) manpage.
* Made erlang-base and erlang-base-hipe provide virtual package
  erlang-abi-15.b (the number means the first erlang version, which
  provides current ABI).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/debugger/test/dbg_ui_SUITE.erl
1
1
%%
2
2
%% %CopyrightBegin%
3
3
%%
4
 
%% Copyright Ericsson AB 1998-2010. All Rights Reserved.
 
4
%% Copyright Ericsson AB 1998-2011. All Rights Reserved.
5
5
%%
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
21
21
-module(dbg_ui_SUITE).
22
22
 
23
23
 
24
 
-include("test_server.hrl").
 
24
-include_lib("test_server/include/test_server.hrl").
25
25
 
26
26
 
27
27
% Test server specific exports
28
 
-export([all/1]).
29
 
-export([function_tests/1]).
30
 
 
 
28
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
 
29
         init_per_group/2,end_per_group/2]).
31
30
 
32
31
% Test cases must be exported.
33
32
-export ([dbg_ui/1]).
34
33
 
35
 
 
36
 
 
37
 
 
38
 
 
39
34
% Manual test suites/cases exports
40
 
-export([manual_tests/1]).
41
35
-export([start1/1, interpret1/1, quit1/1,
42
36
         start2/1, interpret2/1, break2/1, options2/1, quit2/1,
43
37
         interpret3/1, all_step3/1,all_next3/1,save3/1,restore3/1,finish3/1,
46
40
         attach5/1, normal5/1, exit5/1, options5/1,
47
41
         distsetup6/1, all_step6/1, all_next6/1]).
48
42
 
49
 
 
50
 
 
51
 
 
52
 
-export([init_per_testcase/2, fin_per_testcase/2]).
53
 
 
54
 
 
 
43
-export([init_per_testcase/2, end_per_testcase/2]).
55
44
 
56
45
init_per_testcase(_Func, Config) ->
57
46
    Dog=test_server:timetrap(60*1000),
58
47
    [{watchdog, Dog}|Config].
59
48
 
60
 
fin_per_testcase(_Func, Config) ->
 
49
end_per_testcase(_Func, Config) ->
61
50
    Dog=?config(watchdog, Config),
62
51
    test_server:timetrap_cancel(Dog).
63
52
 
64
53
 
65
 
all (suite)->
66
 
    {req, [debugger], [function_tests, manual_tests]}.
67
 
 
68
 
 
69
 
function_tests (doc) ->
70
 
    ["Tests documented functions"];
71
 
 
72
 
function_tests (suite) ->
73
 
    [dbg_ui].
74
 
 
75
 
 
 
54
suite() -> [{ct_hooks,[ts_install_cth]}].
 
55
 
 
56
all() -> 
 
57
    [dbg_ui, {group, manual_tests}].
 
58
 
 
59
groups() -> 
 
60
    [{manual_tests, [],
 
61
      [start1, interpret1, quit1, start2, interpret2, break2,
 
62
       options2, interpret3, all_step3, all_next3, save3,
 
63
       restore3, finish3, killinit3, killone3, killall3,
 
64
       deleteone3, deleteall3, viewbreak4, delete4, attach5,
 
65
       normal5, exit5, options5, distsetup6, all_step6,
 
66
       all_next6]}].
 
67
 
 
68
init_per_suite(Config) ->
 
69
    Config.
 
70
 
 
71
end_per_suite(_Config) ->
 
72
    ok.
 
73
 
 
74
init_per_group(_GroupName, Config) ->
 
75
    Config.
 
76
 
 
77
end_per_group(_GroupName, Config) ->
 
78
    Config.
76
79
 
77
80
dbg_ui (doc) ->
78
81
    ["Debugger GUI"];
84
87
    case os:getenv("DISPLAY") of
85
88
        false ->
86
89
            {skipped,"No display"};
87
 
        Other when list(Other) ->
 
90
        Other when is_list(Other) ->
88
91
%           ?line {ok, Pid} = debugger:start (),
89
92
%           ?line ok = is_pid (Pid),
90
93
%           ?line true = erlang:is_process_alive(Pid),
93
96
            {skipped,"Gunilla: Workaround"}
94
97
    end.
95
98
 
96
 
 
97
 
 
98
 
 
99
 
 
100
 
 
101
99
%% check/2 - returns the result for the specified testcase.
102
100
%% pass - means the user has run the case, and it passed
103
101
%% fail - means the user has run the case, and it failed
162
160
                  ).
163
161
 
164
162
 
165
 
 
166
 
 
167
 
manual_tests(doc) -> ["Manual tests"];
168
 
manual_tests(suite) -> [start1, interpret1, quit1,
169
 
                        start2, interpret2, break2, options2,
170
 
                        interpret3, all_step3,all_next3,save3,restore3,finish3,
171
 
                        killinit3, killone3, killall3, deleteone3, deleteall3,
172
 
                        viewbreak4, delete4,
173
 
                        attach5, normal5, exit5, options5,
174
 
                        distsetup6, all_step6, all_next6
175
 
                       ].
176
 
 
177
 
 
178
 
 
179
 
 
180
 
 
181
 
 
182
163
%% SET 1
183
164
?MAN_CASE(start1, "Start the debugger from the toolbar",
184
165
          "Before proceeding with the test cases, please move or remove