Randomize subscription order in loadtest.

talentone · Aug 7, 2020 · fec808f · fec808f
1 parent 85156d4
commit fec808f
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 2 deletions.
diff --git a/loadtest/tinode.beam b/loadtest/tinode.beam
diff --git a/loadtest/tinode.erl b/loadtest/tinode.erl
@@ -5,7 +5,7 @@
 %% directory.
 
 -module(tinode).
--export([rand_user_secret/1]).
+-export([rand_user_secret/1, shuffle/1]).
 
 %% Produces a secret for use in basic login.
 rand_user_secret({Pid, DynData}) ->
@@ -22,3 +22,8 @@ get_rand_secret() ->
       5 -> "eve:eve123";
       6 -> "frank:frank123"
   end.
+
+%% Shuffles a list randomly.
+shuffle(L) ->
+  RandomList=[{rand:uniform(), X} || X <- L],
+  [X || {_,X} <- lists:sort(RandomList)].
diff --git a/loadtest/tsung.xml b/loadtest/tsung.xml
@@ -51,11 +51,17 @@
         <dyn_variable name="subs" jsonpath="meta.sub[*].topic"/>
         <websocket type="message" frame="text">{"get":{"id":"%%_baseid%%04","topic":"me","what":"sub"}}</websocket>
       </request>
+      <setdynvars sourcetype="eval"
+            code="fun({Pid,DynVars})->
+                      {ok,Subs}=ts_dynvars:lookup(subs,DynVars),
+                      tinode:shuffle(Subs) end.">
+        <var name="shuffled_subs" />
+      </setdynvars>
 
       <!-- main loop -->
       <for from="1" to="100" incr="1" var="ctr">
         <!-- Iterate over subscriptions -->
-        <foreach name="topicx" in="subs">
+        <foreach name="topicx" in="shuffled_subs">
           <thinktime value="3" random="true"></thinktime>
 
           <request subst="true">