aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--.travis.yml2
-rw-r--r--rebar.config2
-rw-r--r--test/rlx_discover_SUITE.erl47
-rw-r--r--test/rlx_test_utils.erl19
4 files changed, 39 insertions, 31 deletions
diff --git a/.travis.yml b/.travis.yml
index 73e1eef..40dcc41 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -1,5 +1,7 @@
language: erlang
otp_release:
+ - 19.0
+ - 18.3
- 17.0
- R16B03-1
- R15B03
diff --git a/rebar.config b/rebar.config
index 677975a..bb179ea 100644
--- a/rebar.config
+++ b/rebar.config
@@ -15,6 +15,8 @@
%% Compiler Options ============================================================
{erl_opts,
[{platform_define, "^[0-9]+", namespaced_types},
+ {platform_define, "^1[8|9]", rand_module},
+ {platform_define, "^2", rand_module},
no_debug_info,
warnings_as_errors,
inline]}.
diff --git a/test/rlx_discover_SUITE.erl b/test/rlx_discover_SUITE.erl
index 77bdf65..36d77ae 100644
--- a/test/rlx_discover_SUITE.erl
+++ b/test/rlx_discover_SUITE.erl
@@ -44,8 +44,8 @@ end_per_suite(_Config) ->
init_per_testcase(_, Config) ->
DataDir = filename:join(proplists:get_value(priv_dir, Config), ?MODULE),
- LibDir1 = filename:join([DataDir, create_random_name("lib_dir1_")]),
- LibDir2 = filename:join([DataDir, create_random_name("lib_dir2_")]),
+ LibDir1 = filename:join([DataDir, rlx_test_utils:create_random_name("lib_dir1_")]),
+ LibDir2 = filename:join([DataDir, rlx_test_utils:create_random_name("lib_dir2_")]),
ok = rlx_util:mkdir_p(LibDir1),
ok = rlx_util:mkdir_p(LibDir2),
State = rlx_state:new([], [{lib_dirs, [LibDir1, LibDir2]}], [release]),
@@ -65,7 +65,8 @@ normal_case(Config) ->
end)(App)
||
App <-
- [{create_random_name("lib_app1_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app1_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
LibDir2 = proplists:get_value(lib2, Config),
@@ -73,7 +74,8 @@ normal_case(Config) ->
create_app(LibDir2, Name, Vsn)
end)(App)
|| App <-
- [{create_random_name("lib_app2_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app2_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
State0 = rlx_state:put(proplists:get_value(state, Config),
default_libs, false),
@@ -99,7 +101,8 @@ no_beam_case(Config) ->
end)(App)
||
App <-
- [{create_random_name("lib_app1_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app1_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
LibDir2 = proplists:get_value(lib2, Config),
@@ -107,10 +110,11 @@ no_beam_case(Config) ->
create_app(LibDir2, Name, Vsn)
end)(App)
|| App <-
- [{create_random_name("lib_app2_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app2_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
- BadName = create_random_name("error_bad"),
- BadVsn = create_random_vsn(),
+ BadName = rlx_test_utils:create_random_name("error_bad"),
+ BadVsn = rlx_test_utils:create_random_vsn(),
AppDir = filename:join([LibDir2, BadName]),
write_app_file(AppDir, BadName, BadVsn),
State0 = proplists:get_value(state, Config),
@@ -129,7 +133,8 @@ bad_ebin_case(Config) ->
end)(App)
||
App <-
- [{create_random_name("lib_app1_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app1_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
LibDir2 = proplists:get_value(lib2, Config),
@@ -137,10 +142,11 @@ bad_ebin_case(Config) ->
create_app(LibDir2, Name, Vsn)
end)(App)
|| App <-
- [{create_random_name("lib_app2_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app2_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
- BadName = create_random_name("error_bad"),
- BadVsn = create_random_vsn(),
+ BadName = rlx_test_utils:create_random_name("error_bad"),
+ BadVsn = rlx_test_utils:create_random_vsn(),
AppDir = filename:join([LibDir2, BadName]),
Filename = filename:join([AppDir, <<"ebin">>, BadName ++ ".app"]),
ok = filelib:ensure_dir(Filename),
@@ -159,7 +165,8 @@ shallow_app_discovery(Config) ->
end)(App)
||
App <-
- [{create_random_name("lib_app1_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app1_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
LibDir2 = proplists:get_value(lib2, Config),
@@ -167,7 +174,8 @@ shallow_app_discovery(Config) ->
create_app(LibDir2, Name, Vsn)
end)(App)
|| App <-
- [{create_random_name("lib_app2_"), create_random_vsn()}
+ [{rlx_test_utils:create_random_name("lib_app2_"),
+ rlx_test_utils:create_random_vsn()}
|| _ <- lists:seq(1, 100)]],
State0 = rlx_state:put(proplists:get_value(state, Config),
default_libs, false),
@@ -220,14 +228,3 @@ get_bad_app_metadata(Name, Vsn) ->
{vsn, \"", Vsn, "\"},
{modules, [missing],
{applications, [kernel, stdlib]}]}."].
-
-
-create_random_name(Name) ->
- random:seed(os:timestamp()),
- Name ++ erlang:integer_to_list(random:uniform(1000000)).
-
-create_random_vsn() ->
- random:seed(os:timestamp()),
- lists:flatten([erlang:integer_to_list(random:uniform(100)),
- ".", erlang:integer_to_list(random:uniform(100)),
- ".", erlang:integer_to_list(random:uniform(100))]).
diff --git a/test/rlx_test_utils.erl b/test/rlx_test_utils.erl
index 1157e3f..b26e143 100644
--- a/test/rlx_test_utils.erl
+++ b/test/rlx_test_utils.erl
@@ -45,14 +45,12 @@ get_app_metadata(Name, Vsn, Deps, LibDeps) ->
{applications, Deps}]}.
create_random_name(Name) ->
- random:seed(os:timestamp()),
- Name ++ erlang:integer_to_list(random:uniform(1000000)).
+ Name ++ erlang:integer_to_list(random_uniform(1000000)).
create_random_vsn() ->
- random:seed(os:timestamp()),
- lists:flatten([erlang:integer_to_list(random:uniform(100)),
- ".", erlang:integer_to_list(random:uniform(100)),
- ".", erlang:integer_to_list(random:uniform(100))]).
+ lists:flatten([erlang:integer_to_list(random_uniform(100)),
+ ".", erlang:integer_to_list(random_uniform(100)),
+ ".", erlang:integer_to_list(random_uniform(100))]).
write_config(Filename, Values) ->
ok = filelib:ensure_dir(Filename),
@@ -79,3 +77,12 @@ test_template_contents() ->
"{foo_dir, \"{{foo_dir}}\"}.\n"
"{foo_yahoo, \"{{foo_yahoo}}\"}.\n"
"{google, \"{{google}}\"}.\n".
+
+-ifdef(rand_module).
+random_uniform(N) ->
+ rand:uniform(N).
+-else.
+random_uniform(N) ->
+ random:seed(os:timestamp()),
+ random:uniform(N).
+-endif.