diff options
| author | Magnus Henoch <[email protected]> | 2015-12-08 14:55:04 +0000 |
|---|---|---|
| committer | Magnus Henoch <[email protected]> | 2016-01-12 14:51:14 +0000 |
| commit | 81b63f2c3ffc9a1aee9e84de2e9875bf3acb6623 (patch) | |
| tree | ab9903b864608108992c283e018e12f8a33296c9 | |
| parent | 5ee629684383f3931827effaca70a12bc5d4cb2a (diff) | |
| download | otp-81b63f2c3ffc9a1aee9e84de2e9875bf3acb6623.tar.gz otp-81b63f2c3ffc9a1aee9e84de2e9875bf3acb6623.tar.bz2 otp-81b63f2c3ffc9a1aee9e84de2e9875bf3acb6623.zip | |
ssl_dist_SUITE: don't use deprecated functions
Use erlang:unique_integer/1 instead of erlang:now/0 to generate a
unique node name.
Use rand:uniform/1 instead of random:uniform/1, so we don't need to
generate a seed ourselves.
| -rw-r--r-- | lib/ssl/test/ssl_dist_SUITE.erl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lib/ssl/test/ssl_dist_SUITE.erl b/lib/ssl/test/ssl_dist_SUITE.erl index a389442542..00f9ee8e3c 100644 --- a/lib/ssl/test/ssl_dist_SUITE.erl +++ b/lib/ssl/test/ssl_dist_SUITE.erl @@ -538,17 +538,13 @@ host_name() -> Host. mk_node_name(Config) -> - {A, B, C} = erlang:now(), + N = erlang:unique_integer([positive]), Case = ?config(testcase, Config), atom_to_list(?MODULE) ++ "_" ++ atom_to_list(Case) ++ "_" - ++ integer_to_list(A) - ++ "-" - ++ integer_to_list(B) - ++ "-" - ++ integer_to_list(C). + ++ integer_to_list(N). mk_node_cmdline(ListenPort, Name, Args) -> Static = "-detached -noinput", @@ -777,12 +773,10 @@ rand_bin(N) -> rand_bin(0, Acc) -> Acc; rand_bin(N, Acc) -> - rand_bin(N-1, [random:uniform(256)-1|Acc]). + rand_bin(N-1, [rand:uniform(256)-1|Acc]). make_randfile(Dir) -> {ok, IoDev} = file:open(filename:join([Dir, "RAND"]), [write]), - {A, B, C} = erlang:now(), - random:seed(A, B, C), ok = file:write(IoDev, rand_bin(1024)), file:close(IoDev). |