Refactor random data generation

Add new RandomDataProvider object and implement existing random number
generation in terms of that.  This enables end users to supply their
own random data providers.

1 files changed, 16 insertions, 0 deletions

diff --git a/libtests/qtest/random.test b/libtests/qtest/random.test
new file mode 100644
index 00000000..c3b4b9d7
--- /dev/null
+++ b/libtests/qtest/random.test
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+require 5.008;
+BEGIN { $^W = 1; }
+use strict;
+
+require TestDriver;
+
+my $td = new TestDriver('random');
+
+$td->runtest("Random Data Providers",
+	     {$td->COMMAND => "random"},
+	     {$td->STRING => "random: end of tests\n",
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
+
+$td->report(1);