diff options
author | Dan Gudmundsson <[email protected]> | 2017-06-12 11:33:09 +0200 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2017-06-12 11:33:09 +0200 |
commit | af4709bf61d80cd28d8cfbead2e1bfb1944fea55 (patch) | |
tree | b314e1809ceda86bdcafd898928575cbbf226d18 /lib/stdlib/test/shell_SUITE.erl | |
parent | 101ca33f75bc5cc0a456d5be7663d9d21ab6d156 (diff) | |
parent | 5167b60cfe076cf27368ad4a250e55e4507d42fa (diff) | |
download | otp-af4709bf61d80cd28d8cfbead2e1bfb1944fea55.tar.gz otp-af4709bf61d80cd28d8cfbead2e1bfb1944fea55.tar.bz2 otp-af4709bf61d80cd28d8cfbead2e1bfb1944fea55.zip |
Merge branch 'dgud/stdlib/shell-find-src'
* dgud/stdlib/shell-find-src:
stdlib: Lookup src path in beam
Diffstat (limited to 'lib/stdlib/test/shell_SUITE.erl')
-rw-r--r-- | lib/stdlib/test/shell_SUITE.erl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/stdlib/test/shell_SUITE.erl b/lib/stdlib/test/shell_SUITE.erl index 99411bc8fd..5a929157d3 100644 --- a/lib/stdlib/test/shell_SUITE.erl +++ b/lib/stdlib/test/shell_SUITE.erl @@ -376,6 +376,9 @@ records(Config) when is_list(Config) -> [[state]] = scan(RR4), Test = filename:join(proplists:get_value(priv_dir, Config), "test.erl"), + BeamDir = filename:join(proplists:get_value(priv_dir, Config), "beam"), + BeamFile = filename:join(BeamDir, "test"), + ok = file:make_dir(BeamDir), Contents = <<"-module(test). -record(state, {bin :: binary(), reply = no, @@ -387,8 +390,10 @@ records(Config) when is_list(Config) -> -ifdef(test2). -record(test2, {g}). - -endif.">>, + -endif. + ">>, ok = file:write_file(Test, Contents), + {ok, test} = compile:file(Test, [{outdir, BeamDir}]), RR5 = "rr(\"" ++ Test ++ "\", '_', {d,test1}), rl([test1,test2]).", A1 = erl_anno:new(1), @@ -404,7 +409,11 @@ records(Config) when is_list(Config) -> Dir = filename:join(proplists:get_value(priv_dir, Config), "*.erl"), RR8 = "rp(rr(\"" ++ Dir ++ "\")).", [_,ok] = scan(RR8), + + {module, test} = code:load_abs(BeamFile), + [[state]] = scan(<<"rr(test).">>), file:delete(Test), + file:delete(BeamFile++".beam"), RR1000 = "begin rr(" ++ MS ++ ") end.", [_] = scan(RR1000), |