Removing integers-as-sequences

[factor.git] / basis / farkup / farkup-tests.factor

diff --git a/basis/farkup/farkup-tests.factor b/basis/farkup/farkup-tests.factor
index 863dc522b2d694de12c3b3cc30ab095b24aa914b..e967250b230c848bd0007cfed79df861e875fc4c 100644 (file)
--- a/basis/farkup/farkup-tests.factor
+++ b/basis/farkup/farkup-tests.factor
@@ -186,7 +186,7 @@ link-no-follow? off
 
 : random-markup ( -- string )
     10 [
-        2 random 1 = [
+        2 iota random 1 = [
             {
                 "[["
                 "*"
@@ -205,7 +205,7 @@ link-no-follow? off
     100 [
         drop random-markup
         [ convert-farkup drop t ] [ drop print f ] recover
-    ] all?
+    ] all-integers?
 ] unit-test
 
 [ "<p><a href=\"http://foo.com/~foo\">http://foo.com/~foo</a></p>" ] [ "[[http://foo.com/~foo]]" convert-farkup ] unit-test