Commit | Line | Data |
---|---|---|
a0d0e21e | 1 | #!./perl |
2 | ||
748a9306 | 3 | # From: kgb@ast.cam.ac.uk (Karl Glazebrook) |
a0d0e21e | 4 | |
748a9306 | 5 | print "1..4\n"; |
a0d0e21e | 6 | |
748a9306 | 7 | srand; |
a0d0e21e | 8 | |
748a9306 | 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"; | |
a0d0e21e | 29 | } |
30 | ||
748a9306 | 31 | srand; |
a0d0e21e | 32 | |
748a9306 | 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"; | |
a0d0e21e | 50 | } |
51 | ||
748a9306 | 52 |