aboutsummaryrefslogtreecommitdiffstats
path: root/lib/debugger/test
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-02-26 13:09:49 +0100
committerBjörn Gustavsson <[email protected]>2016-02-26 13:09:49 +0100
commitad847aa2f332230ea33d6a65953c9be1f22af551 (patch)
tree4b055fdcacb22d6da7a654c7310c279d0c478eb3 /lib/debugger/test
parentc1cd5526cad9d078238f638d6e2067b47d79cb54 (diff)
parentc7e82c6b406b632a191c791a1bd2162bde08f692 (diff)
downloadotp-ad847aa2f332230ea33d6a65953c9be1f22af551.tar.gz
otp-ad847aa2f332230ea33d6a65953c9be1f22af551.tar.bz2
otp-ad847aa2f332230ea33d6a65953c9be1f22af551.zip
Merge branch 'josevalim/debugger-path/OTP-13375'
* josevalim/debugger-path/OTP-13375: Use compile source info in debugger
Diffstat (limited to 'lib/debugger/test')
-rw-r--r--lib/debugger/test/int_SUITE.erl18
1 files changed, 11 insertions, 7 deletions
diff --git a/lib/debugger/test/int_SUITE.erl b/lib/debugger/test/int_SUITE.erl
index 8b16b7631b..ec4de88331 100644
--- a/lib/debugger/test/int_SUITE.erl
+++ b/lib/debugger/test/int_SUITE.erl
@@ -245,14 +245,13 @@ interpretable(Config) when is_list(Config) ->
?line true = int:interpretable(filename:join([DataDir,lists1])),
?line true = code:del_path(DataDir),
- %% {error, no_src}
- ?line PrivDir = filename:join(?config(priv_dir, Config), ""),
- ?line {ok, _} = file:copy(filename:join([DataDir,"lists1.beam"]),
+ %% true (from source)
+ PrivDir = filename:join(?config(priv_dir, Config), ""),
+ {ok, _} = file:copy(filename:join([DataDir,"lists1.beam"]),
filename:join([PrivDir,"lists1.beam"])),
- ?line true = code:add_patha(PrivDir),
-
- ?line {error, no_src} = int:interpretable(lists1),
- ?line ok = file:delete(filename:join([PrivDir,"lists1.beam"])),
+ true = code:add_patha(PrivDir),
+ true = int:interpretable(lists1),
+ ok = file:delete(filename:join([PrivDir,"lists1.beam"])),
%% {error, no_beam}
Src = filename:join([PrivDir,"lists1.erl"]),
@@ -267,6 +266,11 @@ interpretable(Config) when is_list(Config) ->
?line ok = file:delete(Src),
?line true = code:del_path(PrivDir),
+ %% {error, no_src}
+ {ok, lists2, Binary} = compile:forms([{attribute,1,module,lists2}], []),
+ code:load_binary(lists2, "unknown", Binary),
+ {error, no_src} = int:interpretable(lists2),
+
%% {error, badarg}
?line {error, badarg} = int:interpretable(pride),
?line {error, badarg} = int:interpretable("prejudice.erl"),