1
%%%-------------------------------------------------------------------
2
%%% File : ts_test_stats.erl
3
%%% Author : Nicolas Niclausse <nicolas@niclux.org>
6
%%% Created : 12 Jul 2011 by Nicolas Niclausse <nicolas@niclux.org>
7
%%%-------------------------------------------------------------------
8
-module(ts_test_stats).
12
-include_lib("eunit/include/eunit.hrl").
13
-include_lib("ts_profile.hrl").
14
-include_lib("ts_config.hrl").
16
set_dynvar_random_test() ->
19
R=lists:map(fun(_)->ts_stats:uniform(Min,Max) end, lists:seq(1,1000)),
20
?assertEqual(Max,lists:max(R)),
21
?assertEqual(Min,lists:min(R)).