diff options
| author | Björn Gustavsson <[email protected]> | 2011-03-24 11:29:05 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-08-18 10:00:30 +0200 |
| commit | 959a660d8867aa1690d70f656316db98ed8a504f (patch) | |
| tree | 35320bd983b28fd8208c2c800bfd04c4eba3a31b /lib/debugger/test | |
| parent | c67dcea4a123ad7871040ec991674533953f8c48 (diff) | |
| download | otp-959a660d8867aa1690d70f656316db98ed8a504f.tar.gz otp-959a660d8867aa1690d70f656316db98ed8a504f.tar.bz2 otp-959a660d8867aa1690d70f656316db98ed8a504f.zip | |
debugger: Include line numbers in exceptions
Diffstat (limited to 'lib/debugger/test')
| -rw-r--r-- | lib/debugger/test/exception_SUITE.erl | 29 |
1 files changed, 19 insertions, 10 deletions
diff --git a/lib/debugger/test/exception_SUITE.erl b/lib/debugger/test/exception_SUITE.erl index 50c5e611d4..86554ab2d4 100644 --- a/lib/debugger/test/exception_SUITE.erl +++ b/lib/debugger/test/exception_SUITE.erl @@ -32,6 +32,19 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. +%% Filler. +%% +%% +%% +%% +%% This is line 40. +even(N) when is_integer(N), N > 1, (N rem 2) == 0 -> + odd(N-1)++[N]. + +odd(N) when is_integer(N), N > 1, (N rem 2) == 1 -> + even(N-1)++[N]. + + all() -> cases(). @@ -389,19 +402,15 @@ raise(Conf) when is_list(Conf) -> odd_even(N, R) when is_integer(N), N > 1 -> odd_even(N-1, [if (N rem 2) == 0 -> - {?MODULE,even,1,[]}; + {?MODULE,even,1,[{file,?MODULE_STRING++".erl"}, + {line,42}]}; true -> - {?MODULE,odd,1,[]} + {?MODULE,odd,1,[{file,?MODULE_STRING++".erl"}, + {line,45}]} end|R]); odd_even(1, R) -> - [{?MODULE,odd,[1],[]}|R]. - -even(N) when is_integer(N), N > 1, (N rem 2) == 0 -> - odd(N-1)++[N]. - -odd(N) when is_integer(N), N > 1, (N rem 2) == 1 -> - even(N-1)++[N]. - + [{?MODULE,odd,[1],[{file,?MODULE_STRING++".erl"}, + {line,44}]}|R]. foo({value,Value}) -> Value; foo({'div',{A,B}}) -> |