add unit test for seeding

2009-10-02 01:55:18 -05:00 · 2009-10-02 01:55:18 -05:00 · 19b2466bda
parent 4cb927722d
commit 19b2466bda
1 changed files with 7 additions and 0 deletions
--- 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