X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;ds=sidebyside;f=modules%2Ferl%2Feuphorik_test.erl;h=8b8dbfb0d28c361a8c42e9e1e6dc8d8e5e0c2c5a;hb=4dfbbcf0f54cb3eb70856ea404d9ecef6aec5e26;hp=d319997d2dc0b5559fa3400ce20f8e9e3e8947f6;hpb=650c44a784cabc8a1f2bd1daa7e5e61ccf74ca6f;p=euphorik.git

diff --git a/modules/erl/euphorik_test.erl b/modules/erl/euphorik_test.erl
index d319997..8b8dbfb 100644
--- a/modules/erl/euphorik_test.erl
+++ b/modules/erl/euphorik_test.erl
@@ -52,7 +52,7 @@ creer_users(N) ->
    creer_users(N, []).
 creer_users(0, Ids) -> lists:map(fun(#user{id = Id}) -> Id end, Ids);
 creer_users(N, Ids) ->
-   creer_users(N - 1, [euphorik_bd:nouveau_user(mot_rand(random:uniform(4) + 4), "", "") | Ids ]).
+   creer_users(N - 1, [euphorik_bd:nouveau_user(mot_rand(random:uniform(4) + 4), "", "", #profile{}) | Ids ]).
 
 
 % crée un message aléatoire et le renvoie
@@ -78,15 +78,19 @@ mot_rand(L, Mot) ->
 %  2 : 0.15
 %  3 : 0.05
 messages_id_rand() ->
-   Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(30)),
    R = random:uniform(),
-   if R =< 0.5 -> [];
-      R > 0.5 andalso R =< 0.8 ->
-         tire_element_rand(1, Messages);
-      R > 0.8 andalso R =< 0.95 ->
-         tire_element_rand(2, Messages);
+   if R =< 0.5 ->
+         [];
       true ->
-         tire_element_rand(3, Messages)
+         Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(8)),
+         if
+            R > 0.5 andalso R =< 0.8 ->
+               tire_element_rand(1, Messages);
+            R > 0.8 andalso R =< 0.95 ->
+               tire_element_rand(2, Messages);
+            true ->
+               tire_element_rand(3, Messages)
+         end
    end.