2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $user = $ENV{'USER'} || '-';
9 my $ignore_failure = !($user eq 'welinder' || $user eq 'aguelzow');
11 &message
("Checking random number generators.");
12 &sstest
("test_random", sub { /SUMMARY: OK/ || $ignore_failure } );