projects
/
euphorik.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
MOD amélioration de la complexité de la fonction euphorik_bd:nouveau_message/3 mais...
[euphorik.git]
/
modules
/
erl
/
euphorik_test.erl
diff --git
a/modules/erl/euphorik_test.erl
b/modules/erl/euphorik_test.erl
index
f07941c
..
c1bf49b
100644
(file)
--- a/
modules/erl/euphorik_test.erl
+++ b/
modules/erl/euphorik_test.erl
@@
-28,7
+28,11
@@
bench_get_messages_avec_2_conversations/0
]).
-include("../include/euphorik_bd.hrl").
bench_get_messages_avec_2_conversations/0
]).
-include("../include/euphorik_bd.hrl").
-
+
\r
+% les intervalles en seconde min en max entre deux postes de message d'un utilisateur
\r
+% le temps d'attente est choisi au hasard entre ces deux valeurs
\r
+-define(INTERVALLE_MIN, 2).
\r
+-define(INTERVALLE_MAX, 5).
% N est le nombre d'utilisateur
% M est le nombre de message que chaque utilisateur va poster
% N est le nombre d'utilisateur
% M est le nombre de message que chaque utilisateur va poster
@@
-163,10
+167,11
@@
tire_element_rand(N, L, Elements) ->
loop(User_id, 0) ->
io:format("~p a fini~n", [User_id]);
loop(User_id, M) ->
loop(User_id, 0) ->
io:format("~p a fini~n", [User_id]);
loop(User_id, M) ->
- % attend un temp aléatoire compris entre
2 sec et 10
sec
- timer:sleep(
2000 * random:uniform(10
)),
+ % attend un temp aléatoire compris entre
INTERVALLE_MIN sec et INTERVALLE_MAX
sec
+ timer:sleep(
1000 * (random:uniform(?INTERVALLE_MAX - ?INTERVALLE_MIN + 1) + ?INTERVALLE_MIN - 1
)),
% poste un message aléatoire par une personne aléatoire répondant à des messages aléatoires
% poste un message aléatoire par une personne aléatoire répondant à des messages aléatoires
- {Message, Repond_a} = {message_rand(), messages_id_rand()},
+ {Message, Repond_a} = {message_rand(), messages_id_rand()},
\r
+ %{Message, Repond_a} = {"blablablablablabla", []},
io:format("~p poste ~p et repond a ~w~n", [User_id, Message, Repond_a]),
case euphorik_bd:nouveau_message(Message, User_id, Repond_a) of
{erreur, E} ->
io:format("~p poste ~p et repond a ~w~n", [User_id, Message, Repond_a]),
case euphorik_bd:nouveau_message(Message, User_id, Repond_a) of
{erreur, E} ->