aboutsummaryrefslogtreecommitdiffstats
path: root/lib/diameter/test/diameter_util.erl
diff options
context:
space:
mode:
authorAnders Svensson <[email protected]>2015-05-23 16:16:51 +0200
committerAnders Svensson <[email protected]>2015-05-24 09:08:55 +0200
commit4676eb881c2619250b384e8e1ab60bc8ae5d58c3 (patch)
treeef905f71d73d046647dbc4cd2e765d3fcf40ee75 /lib/diameter/test/diameter_util.erl
parent4686d216fd41d534e1f362a6c0c5bba066f17b22 (diff)
downloadotp-4676eb881c2619250b384e8e1ab60bc8ae5d58c3.tar.gz
otp-4676eb881c2619250b384e8e1ab60bc8ae5d58c3.tar.bz2
otp-4676eb881c2619250b384e8e1ab60bc8ae5d58c3.zip
Fix incorrect suite usage of OTP 18 monotonic time
Value was used as strictly increasing when it's only non-decreasing, causing testcases to fail.
Diffstat (limited to 'lib/diameter/test/diameter_util.erl')
-rw-r--r--lib/diameter/test/diameter_util.erl15
1 files changed, 8 insertions, 7 deletions
diff --git a/lib/diameter/test/diameter_util.erl b/lib/diameter/test/diameter_util.erl
index c496876ee1..df7d268429 100644
--- a/lib/diameter/test/diameter_util.erl
+++ b/lib/diameter/test/diameter_util.erl
@@ -204,13 +204,14 @@ seed() ->
%% unique_string/0
unique_string() ->
- us(diameter_lib:now()).
-
-us({M,S,U}) ->
- tl(lists:append(["-" ++ integer_to_list(N) || N <- [M,S,U]]));
-
-us(MonoT) ->
- integer_to_list(MonoT).
+ try erlang:unique_integer() of
+ N ->
+ integer_to_list(N)
+ catch
+ error: undef -> %% OTP < 18
+ {M,S,U} = timestamp(),
+ tl(lists:append(["-" ++ integer_to_list(N) || N <- [M,S,U]]))
+ end.
%% ---------------------------------------------------------------------------
%% have_sctp/0