perl 5.003_07: t/lib/io_pipe.t
[perl.git] / t / op / rand.t
1 #!./perl
2
3 # From: kgb@ast.cam.ac.uk (Karl Glazebrook)
4
5 print "1..4\n";
6
7 srand;
8
9 $m=0; 
10 for(1..1000){ 
11    $n = rand(1);
12    if ($n<0 || $n>=1) {
13        print "not ok 1\n# The value of randbits is likely too low in config.sh\n";
14        exit
15    }
16    $m += $n;
17
18 }
19 $m=$m/1000;
20 print "ok 1\n";
21
22 if ($m<0.4) {
23     print "not ok 2\n# The value of randbits is likely too high in config.sh\n";
24 }
25 elsif ($m>0.6) {
26     print "not ok 2\n# Something's really weird about rand()'s distribution.\n";
27 }else{
28     print "ok 2\n";
29 }
30
31 srand;
32
33 $m=0; 
34 for(1..1000){ 
35    $n = rand(100);
36    if ($n<0 || $n>=100) {
37        print "not ok 3\n";
38        exit
39    }
40    $m += $n;
41
42 }
43 $m=$m/1000;
44 print "ok 3\n";
45
46 if ($m<40 || $m>60) {
47     print "not ok 4\n";
48 }else{
49     print "ok 4\n";
50 }
51
52