Skip to content
This repository
Newer
Older
100755 27 lines (23 sloc) 0.975 kb
6816253e » yrashk
2011-02-17 Added some draft throughput perf tests
1 #! /usr/bin/env escript
920c628c » evax
2011-03-02 Fix perf tests
2 %%! -smp enable -pa ebin -pa perf
3 %-mode(compile).
6816253e » yrashk
2011-02-17 Added some draft throughput perf tests
4
364d1d98 » evax
2011-02-18 Revert unmotivated {remote,local}_thr perf tests changes
5 main([BindTo,MessageSizeStr,MessageCountStr]) ->
6816253e » yrashk
2011-02-17 Added some draft throughput perf tests
6 {MessageSize, _} = string:to_integer(MessageSizeStr),
7 {MessageCount, _} = string:to_integer(MessageCountStr),
baa83453 » yrashk
2011-03-09 Renamed ezmq to erlzmq2
8 {ok, Context} = erlzmq:context(),
fa6cb337 » okeuday
2011-03-24 Add active receive with eunit tests. NIF code cleanup.
9 {ok, Socket} = erlzmq:socket(Context, [sub, {active, false}]),
baa83453 » yrashk
2011-03-09 Renamed ezmq to erlzmq2
10 ok = erlzmq:setsockopt(Socket,subscribe, <<>>),
11 ok = erlzmq:bind(Socket, BindTo),
12 erlzmq:recv(Socket),
920c628c » evax
2011-03-02 Fix perf tests
13 Start = now(),
baa83453 » yrashk
2011-03-09 Renamed ezmq to erlzmq2
14 erlzmq_perf:recv_loop(MessageCount-1, Socket),
920c628c » evax
2011-03-02 Fix perf tests
15 Elapsed = timer:now_diff(now(), Start),
16
364d1d98 » evax
2011-02-18 Revert unmotivated {remote,local}_thr perf tests changes
17 Throughput = MessageCount / Elapsed * 1000000,
acee7302 » evax
2011-02-18 Fix Mb/s computation in local_thr perf test
18 Megabits = Throughput * MessageSize * 8 / 1000000,
6816253e » yrashk
2011-02-17 Added some draft throughput perf tests
19
20 io:format("message size: ~p [B]~n"
21 "message count: ~p~n"
22 "mean throughput: ~p [msg/s]~n"
364d1d98 » evax
2011-02-18 Revert unmotivated {remote,local}_thr perf tests changes
23 "mean throughput: ~p [Mb/s]~n",
307d4ee3 » yrashk
2011-03-03 Added ezmq:close/1 and ezmq:term/1 functions as GC cleanup magic was …
24 [MessageSize, MessageCount, Throughput, Megabits]),
25
baa83453 » yrashk
2011-03-09 Renamed ezmq to erlzmq2
26 erlzmq:close(Socket),
27 erlzmq:term(Context).
920c628c » evax
2011-03-02 Fix perf tests
28
Something went wrong with that request. Please try again.