From b5c3252d1d84b6f2fb742a6d5d42c6ef8a5b435c Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Sat, 8 Aug 2015 01:19:14 +0200
Subject: [PATCH] serialize, test cells around first 2000 powers of 2

---
 basis/serialize/serialize-tests.factor | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/basis/serialize/serialize-tests.factor b/basis/serialize/serialize-tests.factor
index 92591acbf2..0dfa1ee051 100644
--- a/basis/serialize/serialize-tests.factor
+++ b/basis/serialize/serialize-tests.factor
@@ -9,11 +9,14 @@ combinators.short-circuit ;
 SPECIALIZED-ARRAY: double
 IN: serialize.tests
 
-: test-serialize-cell ( a -- ? )
-    2^ random dup
+: (test-serialize-cell) ( n -- ? )
+    dup
     binary [ serialize-cell ] with-byte-writer
     binary [ deserialize-cell ] with-byte-reader = ;
 
+: test-serialize-cell ( a -- ? )
+    2^ random (test-serialize-cell) ;
+
 { t } [
     100 [
         drop
@@ -26,6 +29,11 @@ IN: serialize.tests
     ] all-integers?
 ] unit-test
 
+{ t } [ 2000 [
+        2^ 3 [ 1 - + (test-serialize-cell) ] with all-integers?
+    ] all-integers?
+] unit-test
+
 TUPLE: serialize-test a b ;
 
 C: <serialize-test> serialize-test