From 19b2466bdaf6f21f36f82dc04426a1967f816e4b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 2 Oct 2009 01:55:18 -0500
Subject: [PATCH] add unit test for seeding

---
 basis/random/sfmt/sfmt-tests.factor | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/basis/random/sfmt/sfmt-tests.factor b/basis/random/sfmt/sfmt-tests.factor
index 7e6a996278..9f3fea0480 100644
--- a/basis/random/sfmt/sfmt-tests.factor
+++ b/basis/random/sfmt/sfmt-tests.factor
@@ -11,3 +11,10 @@ IN: random.sfmt.tests
 
 [ 2556114782 ]
 [ 100 <sfmt-19937> random-32* ] unit-test
+
+[ t ]
+[
+    100 <sfmt-19937>
+    [ random-32* ]
+    [ 100 seed-random random-32* ] bi =
+] unit-test