← Back to branch summary

~ubuntu-branches/ubuntu/raring/tsung/raring

« back to all changes in this revision

Viewing changes to src/test/ts_test_stats.erl

  • Committer: Package Import Robot
  • Author(s): Ignace Mouzannar
  • Date: 2011-09-20 05:21:15 UTC
  • Revision ID: package-import@ubuntu.com-20110920052115-nqhu0na28zgm78ei
Tags: upstream-1.4.1
Import upstream version 1.4.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/test/ts_test_stats.erl
 
1
%%%-------------------------------------------------------------------
 
2
%%% File    : ts_test_stats.erl
 
3
%%% Author  : Nicolas Niclausse <nicolas@niclux.org>
 
4
%%% Description :
 
5
%%%
 
6
%%% Created : 12 Jul 2011 by Nicolas Niclausse <nicolas@niclux.org>
 
7
%%%-------------------------------------------------------------------
 
8
-module(ts_test_stats).
 
9
 
 
10
-compile(export_all).
 
11
 
 
12
-include_lib("eunit/include/eunit.hrl").
 
13
-include_lib("ts_profile.hrl").
 
14
-include_lib("ts_config.hrl").
 
15
 
 
16
set_dynvar_random_test() ->
 
17
    Min=1,
 
18
    Max=10,
 
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)).