summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFred Hebert <mononcqc@ferd.ca>2017-01-28 23:22:36 -0500
committerFred Hebert <mononcqc@ferd.ca>2017-01-29 02:48:40 -0500
commit44132db73ea084249ed28c9b804564bfed8d69fd (patch)
tree74dedf7dd853d5b90e5b938c5749021ea3695a44
parent54cb748cac69f7aac296d9e8c177d7761ebcd510 (diff)
Add regression for #1410
-rw-r--r--test/rebar_compile_SUITE.erl34
1 files changed, 33 insertions, 1 deletions
diff --git a/test/rebar_compile_SUITE.erl b/test/rebar_compile_SUITE.erl
index d5cc8b4..7df0d63 100644
--- a/test/rebar_compile_SUITE.erl
+++ b/test/rebar_compile_SUITE.erl
@@ -49,7 +49,8 @@
always_recompile_when_erl_compiler_options_set/1,
recompile_when_parse_transform_inline_changes/1,
recompile_when_parse_transform_as_opt_changes/1,
- recursive/1,no_recursive/1]).
+ recursive/1,no_recursive/1,
+ regex_filter_skip/1, regex_filter_regression/1]).
-include_lib("common_test/include/ct.hrl").
-include_lib("eunit/include/eunit.hrl").
@@ -76,6 +77,7 @@ all() ->
include_file_relative_to_working_directory_test, include_file_in_src_test,
recompile_when_parse_transform_as_opt_changes,
recompile_when_parse_transform_inline_changes,
+ regex_filter_skip, regex_filter_regression,
%% recompile behaviour when `ERL_COMPILER_OPTIONS` differs prior to 19.x
recursive, no_recursive] ++ recompile_when_env_changes_test().
@@ -1653,5 +1655,35 @@ no_recursive(Config) ->
{ok, [{app, Name}]}),
{ok, Files2} = rebar_utils:list_dir(EbinDir),
?assert(false==lists:member("rec.beam",Files2)),
+ ok.
+regex_filter_skip(Config) ->
+ AppDir = ?config(apps, Config),
+ Name = rebar_test_utils:create_random_name("regex_skip"),
+ Vsn = rebar_test_utils:create_random_vsn(),
+ rebar_test_utils:create_app(AppDir, Name, Vsn, [kernel, stdlib]),
+ rebar_test_utils:write_src_file(filename:join(AppDir,src),"._rec.erl"),
+ Expected = filename:join([AppDir, "_build", "default", "lib", Name, "ebin","._rec.beam"]),
+
+ RebarConfig = [],
+ try
+ rebar_test_utils:run_and_check(Config, RebarConfig, ["compile"],
+ {ok, [{file, Expected}]}),
+ throw(should_not_be_found)
+ catch
+ error:{assert,_} -> % the file was not found, as desired!
+ ok
+ end.
+
+regex_filter_regression(Config) ->
+ AppDir = ?config(apps, Config),
+ Name = rebar_test_utils:create_random_name("regex_regression"),
+ Vsn = rebar_test_utils:create_random_vsn(),
+ rebar_test_utils:create_app(AppDir, Name, Vsn, [kernel, stdlib]),
+ rebar_test_utils:write_src_file(filename:join(AppDir,src),"r_f.erl"),
+ Expected = filename:join([AppDir, "_build", "default", "lib", Name, "ebin","r_f.beam"]),
+ RebarConfig = [],
+ rebar_test_utils:run_and_check(Config, RebarConfig, ["compile"],
+ {ok, [{file, Expected}]}),
ok.
+