diff options
| author | John Högberg <[email protected]> | 2018-10-05 10:05:59 +0200 |
|---|---|---|
| committer | John Högberg <[email protected]> | 2018-10-05 11:47:57 +0200 |
| commit | 16b93b98516df3fcc79a52847fa89fdda5b187c0 (patch) | |
| tree | a39706139c19fa1387057b9affc5d89cce963bf3 /lib/stdlib/test/epp_SUITE.erl | |
| parent | 18a742fa6d52999d0ba415330ba2168caaeb1256 (diff) | |
| download | otp-16b93b98516df3fcc79a52847fa89fdda5b187c0.tar.gz otp-16b93b98516df3fcc79a52847fa89fdda5b187c0.tar.bz2 otp-16b93b98516df3fcc79a52847fa89fdda5b187c0.zip | |
epp: Allow user to set source name independently of input file name
Note that this does *not* affect -include()'d files or the -file()
directive.
Diffstat (limited to 'lib/stdlib/test/epp_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/epp_SUITE.erl | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lib/stdlib/test/epp_SUITE.erl b/lib/stdlib/test/epp_SUITE.erl index a3e294ffea..0ac99ad03a 100644 --- a/lib/stdlib/test/epp_SUITE.erl +++ b/lib/stdlib/test/epp_SUITE.erl @@ -29,7 +29,7 @@ otp_8562/1, otp_8665/1, otp_8911/1, otp_10302/1, otp_10820/1, otp_11728/1, encoding/1, extends/1, function_macro/1, test_error/1, test_warning/1, otp_14285/1, - test_if/1]). + test_if/1,source_name/1]). -export([epp_parse_erl_form/2]). @@ -70,7 +70,7 @@ all() -> overload_mac, otp_8388, otp_8470, otp_8562, otp_8665, otp_8911, otp_10302, otp_10820, otp_11728, encoding, extends, function_macro, test_error, test_warning, - otp_14285, test_if]. + otp_14285, test_if, source_name]. groups() -> [{upcase_mac, [], [upcase_mac_1, upcase_mac_2]}, @@ -1702,6 +1702,18 @@ function_macro(Config) -> ok. +source_name(Config) when is_list(Config) -> + DataDir = proplists:get_value(data_dir, Config), + File = filename:join(DataDir, "source_name.erl"), + + source_name_1(File, "/test/gurka.erl"), + source_name_1(File, "gaffel.erl"), + + ok. + +source_name_1(File, Expected) -> + Res = epp:parse_file(File, [{source_name, Expected}]), + {ok, [{attribute,_,file,{Expected,_}} | _Forms]} = Res. check(Config, Tests) -> eval_tests(Config, fun check_test/2, Tests). |