test/t2003-random-generators.pl

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