[orber, cos*] Remove usage of erlang:now() in test suites

10 files changed, 33 insertions, 21 deletions

diff --git a/lib/orber/test/cdrcoding_10_SUITE.erl b/lib/orber/test/cdrcoding_10_SUITE.erl
index 54ad92cf7e..d8e57f74e5 100644
--- a/lib/orber/test/cdrcoding_10_SUITE.erl
+++ b/lib/orber/test/cdrcoding_10_SUITE.erl
@@ -622,4 +622,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
      term_to_binary(undefined), term_to_binary(undefined)}.
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/cdrcoding_11_SUITE.erl b/lib/orber/test/cdrcoding_11_SUITE.erl
index 29b3e33069..bcd2b70446 100644
--- a/lib/orber/test/cdrcoding_11_SUITE.erl
+++ b/lib/orber/test/cdrcoding_11_SUITE.erl
@@ -621,4 +621,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
      term_to_binary(undefined), term_to_binary(undefined)}.
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/cdrcoding_12_SUITE.erl b/lib/orber/test/cdrcoding_12_SUITE.erl
index dd9b98434d..a58688b654 100644
--- a/lib/orber/test/cdrcoding_12_SUITE.erl
+++ b/lib/orber/test/cdrcoding_12_SUITE.erl
@@ -609,4 +609,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
      term_to_binary(undefined), term_to_binary(undefined)}.
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/iop_ior_10_SUITE.erl b/lib/orber/test/iop_ior_10_SUITE.erl
index 58dd1b5dba..be3daf6198 100644
--- a/lib/orber/test/iop_ior_10_SUITE.erl
+++ b/lib/orber/test/iop_ior_10_SUITE.erl
@@ -182,4 +182,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
      
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/iop_ior_11_SUITE.erl b/lib/orber/test/iop_ior_11_SUITE.erl
index 24b2f66357..4c4dd4effa 100644
--- a/lib/orber/test/iop_ior_11_SUITE.erl
+++ b/lib/orber/test/iop_ior_11_SUITE.erl
@@ -201,4 +201,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
     {Id, 'registered', RegName, term_to_binary(undefined), 0, 0}.
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/iop_ior_12_SUITE.erl b/lib/orber/test/iop_ior_12_SUITE.erl
index 4c6e9ddb91..9f50784666 100644
--- a/lib/orber/test/iop_ior_12_SUITE.erl
+++ b/lib/orber/test/iop_ior_12_SUITE.erl
@@ -202,4 +202,6 @@ corba_fake_mk_objkey(Id, 'registered', RegName) when is_atom(RegName) ->
     {Id, 'registered', RegName, term_to_binary(undefined), 0, 0}.
 
 make_objkey() ->
-    term_to_binary({now(), node()}).
+    term_to_binary({{erlang:system_time(), 
+		     erlang:unique_integer()}, 
+		    node()}).
diff --git a/lib/orber/test/multi_ORB_SUITE.erl b/lib/orber/test/multi_ORB_SUITE.erl
index 40d8846e0f..3d0132c3e6 100644
--- a/lib/orber/test/multi_ORB_SUITE.erl
+++ b/lib/orber/test/multi_ORB_SUITE.erl
@@ -922,9 +922,9 @@ max_requests(Node, Host, Port) ->
     spawn(orber_test_server, pseudo_call_delay, [Obj, 15000]),
     %% Wait for a second to be sure that the previous request has been sent
     timer:sleep(1000),
-    {MegaSecsB, Before, _} = now(),
+    {MegaSecsB, Before, _} = erlang:timestamp(),
     pseudo_calls(5, Obj),
-    {MegaSecsA, After, _} = now(),
+    {MegaSecsA, After, _} = erlang:timestamp(),
     %% Normally we we can perform hundreds of pseudo-calls per second. Hence,
     %% if we add 8 seconds to 'Before' it should still be less since we only
     %% allow one request at a time to the target ORB.
diff --git a/lib/orber/test/orber_acl_SUITE.erl b/lib/orber/test/orber_acl_SUITE.erl
index ab2c2c872c..05146afded 100644
--- a/lib/orber/test/orber_acl_SUITE.erl
+++ b/lib/orber/test/orber_acl_SUITE.erl
@@ -272,21 +272,21 @@ ipv6_bm(_) ->
 bm2(Filters, Family, Ip) ->
     {ok, IPTuple} = inet:getaddr(Ip, Family),
     orber_acl:init_acl(Filters, Family),
-    TimeBefore1 = erlang:now(),
+    TimeBefore1 = erlang:timestamp(),
     bm_loop(IPTuple, ?NO_OF_TIMES),
-    TimeAfter1 = erlang:now(),
+    TimeAfter1 = erlang:timestamp(),
     orber_acl:clear_acl(),
     Time1 = computeTime(TimeBefore1, TimeAfter1),
     orber_acl:init_acl(Filters, Family),
-    TimeBefore2 = erlang:now(),
+    TimeBefore2 = erlang:timestamp(),
     bm_loop2(Ip, ?NO_OF_TIMES, Family),
-    TimeAfter2 = erlang:now(),
+    TimeAfter2 = erlang:timestamp(),
     orber_acl:clear_acl(),
     Time2 = computeTime(TimeBefore2, TimeAfter2),
     orber_acl:init_acl(Filters, Family),
-    TimeBefore3 = erlang:now(),
+    TimeBefore3 = erlang:timestamp(),
     bm_loop2(IPTuple, ?NO_OF_TIMES, Family),
-    TimeAfter3 = erlang:now(),
+    TimeAfter3 = erlang:timestamp(),
     orber_acl:clear_acl(),
     Time3 = computeTime(TimeBefore3, TimeAfter3),
     {ok, round(?NO_OF_TIMES/Time1), round(?NO_OF_TIMES/Time2), round(?NO_OF_TIMES/Time3)}.
diff --git a/lib/orber/test/orber_test_lib.erl b/lib/orber/test/orber_test_lib.erl
index 46ed26f210..c970600fce 100644
--- a/lib/orber/test/orber_test_lib.erl
+++ b/lib/orber/test/orber_test_lib.erl
@@ -220,7 +220,7 @@ js_node(InitOptions) when is_list(InitOptions) ->
     js_node(InitOptions, []).
 
 js_node(InitOptions, StartOptions) when is_list(InitOptions) ->
-    {A,B,C} = erlang:now(),
+    {A,B,C} = erlang:timestamp(),
     [_, Host] = string:tokens(atom_to_list(node()), [$@]),
     _NewInitOptions = check_options(InitOptions),
     js_node_helper(Host, 0, lists:concat([A,'_',B,'_',C]),
diff --git a/lib/orber/test/orber_test_server_impl.erl b/lib/orber/test/orber_test_server_impl.erl
index 10a9caf242..9aa12e98fb 100644
--- a/lib/orber/test/orber_test_server_impl.erl
+++ b/lib/orber/test/orber_test_server_impl.erl
@@ -243,22 +243,22 @@ relay_cast(_Self, State, Target) ->
 
 %% Testing pseudo calls.
 pseudo_call(_Self, State) ->
-    io:format("orber_test_server:pseudo_call( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_call( ~p )~n", [erlang:timestamp()]),
     {reply, ok, State}.
 
 pseudo_cast(_Self, State) ->
-    io:format("orber_test_server:pseudo_cast( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_cast( ~p )~n", [erlang:timestamp()]),
     {noreply, State}.
 pseudo_call_delay(_Self, State, Time) ->
-    io:format("orber_test_server:pseudo_call_delay( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_call_delay( ~p )~n", [erlang:timestamp()]),
     timer:sleep(Time),
-    io:format("orber_test_server:pseudo_call_delay( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_call_delay( ~p )~n", [erlang:timestamp()]),
     {reply, {ok, Time}, State}.
 
 pseudo_cast_delay(_Self, State, Time) ->
-    io:format("orber_test_server:pseudo_cast_delay( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_cast_delay( ~p )~n", [erlang:timestamp()]),
     timer:sleep(Time),
-    io:format("orber_test_server:pseudo_cast_delay( ~p )~n", [now()]),
+    io:format("orber_test_server:pseudo_cast_delay( ~p )~n", [erlang:timestamp()]),
     {noreply, State}.
 
 pseudo_call_raise_exc(_Self, State, 1) ->