acpi: Narrow workaround for broken interrupt settings
[dragonfly.git] / tools / test / devrandom / stat.8bit
blobbdaf61c13da3e31bfa7451b425dd507d1eb6810a
1 #!/usr/bin/env perl
4 # Perform primitive binning into 8-bit bins (take 8 bits of randomness
5 # at a time) and see if the distribution is flat. The output should be
6 # checked by eye - are all the numbers roughly the same?
8 # Redirect the output from this to a file - and make a cup of coffee while
9 # it runs. This program is a CPU Hog!
11 # $FreeBSD: src/tools/test/devrandom/stat.8bit,v 1.4 1999/08/28 00:54:24 peter Exp $
14 for ($i = 0; $i < (1024*32); $i++) {
15 open(BIN, "/dev/urandom") || die "Cannot open /dev/urandom - $!\n";
16 $len = sysread(BIN, $a, 256);
17 close(BIN);
18 if ($len > 0) {
19 for ($j = 0; $j < $len; $j++) {
20 $k = unpack("C", substr($a, $j, 1));
21 $bin[$k]++;
26 for ($i = 0; $i < 256; $i++) {
27 printf("%.2X ", $bin[$i]);
29 printf "\n";