[gnumeric] sstest: hook random number tests into test suite.

[Morten Welinder <mortenw src gnome org>]

commit 7a82c3a4825e32509215f5651a8f347a9e816047
Author: Morten Welinder <terra gnome org>
Date:   Fri Feb 3 14:39:45 2012 -0500

    sstest: hook random number tests into test suite.
    
    Note: this will randomly fail.

 src/sstest.c                    |    1 -
 test/ChangeLog                  |    4 ++++
 test/t2003-random-generators.pl |   15 +++++++++++++++
 3 files changed, 19 insertions(+), 1 deletions(-)
---
diff --git a/src/sstest.c b/src/sstest.c
index d6a16a0..553035d 100644
--- a/src/sstest.c
+++ b/src/sstest.c
@@ -578,7 +578,6 @@ test_random (void)
 	test_random_rand (N);
         test_random_randbernoulli (N);
 #if 0
-        test_random_randbernoulli (N);
         test_random_randbeta (N);
         test_random_randbetween (N);
         test_random_randbinom (N);
diff --git a/test/ChangeLog b/test/ChangeLog
index 7d0c12d..7770bdb 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-03  Morten Welinder  <terra gnome org>
+
+	* t2003-random-generators.pl: New test.
+
 2011-11-27  Morten Welinder <terra gnome org>
 
 	* Release 1.11.1
diff --git a/test/t2003-random-generators.pl b/test/t2003-random-generators.pl
new file mode 100755
index 0000000..1140b9c
--- /dev/null
+++ b/test/t2003-random-generators.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+sub expected {
+    my ($actual) = @_;
+
+    return $actual =~ /Start: test_random\s*-*\s*(Testing =\S+\s+(\S+: [-+eE0-9.]*\s)*OK\s*)*End: test_random/;
+}
+
+&message ("Checking random number generators.");
+&sstest ("test_random", \&expected);