diff options
| author | Anders Svensson <[email protected]> | 2015-05-23 16:16:51 +0200 |
|---|---|---|
| committer | Anders Svensson <[email protected]> | 2015-05-24 09:08:55 +0200 |
| commit | 4676eb881c2619250b384e8e1ab60bc8ae5d58c3 (patch) | |
| tree | ef905f71d73d046647dbc4cd2e765d3fcf40ee75 /lib/diameter/test/diameter_util.erl | |
| parent | 4686d216fd41d534e1f362a6c0c5bba066f17b22 (diff) | |
| download | otp-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.erl | 15 |
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 |