remove some words from random-tester, remove some debug output

diff --git a/apps/random-tester/random-tester2.factor b/apps/random-tester/random-tester2.factor
index 203c090abf85a1ea6f8680a7eef1c9d88454bb95..19ff75544dd712644935a52340ba940622c6d94e 100644 (file)
--- a/apps/random-tester/random-tester2.factor
+++ b/apps/random-tester/random-tester2.factor
@@ -46,6 +46,7 @@ SYMBOL: wordbank
         continue-with <continuation>
 
         define-compound define make-generic
+        define-method define-predicate-class
         define-tuple define-temp define-tuple-slots
         define-writer define-predicate define-generic
         ?make-generic define-reader define-slot define-slots
@@ -61,14 +62,13 @@ SYMBOL: wordbank
         close readln read1 read (lines) with-server
         stream-read
         stream-readln stream-read1 lines contents stream-copy
+        stream-write log-stream stream-format set-line-reader-cr
         stream-flush (readln)
 
         word-xt.
 
         stdio
 
-        group
-
         .s
 
         double>bits float>bits >bignum
@@ -93,11 +93,17 @@ SYMBOL: wordbank
         changed-words
         callstack namespace namestack global vocabularies
 
-        file. (file.) path+ parent-dir
+        file. (file.) path+ parent-dir directory.
 
         <continuation> continue-with
 
         set-delegate
+        closure
+        
+        tabular-output simple-slots
+
+        join
+
 
     }
     { "arrays" "errors" "generic" "graphs" "hashtables" "io"

diff --git a/apps/random-tester/type.factor b/apps/random-tester/type.factor
index aa35ffec2e0d5654423ed426deb3392b5a7b6f45..3cc93ec9c56c73f172adf3d482a7240d97099cd8 100644 (file)
--- a/apps/random-tester/type.factor
+++ b/apps/random-tester/type.factor
@@ -29,18 +29,20 @@ TUPLE: inert-object ;
 
 : inputs ( -- seq )
     {
-        0
+        0 -1 -1000000000000000000000000
         ! -268435457
         inert
             ! T{ inert-object f }
-        -29/2
-        -3.14
+        -29/2 1000000000000000000000000000000/1111111111111111111111111111111111111111111
+        3/4
+            -1000000000000000000000000/111111111111111111
+        -3.14 1/0. 0.0 -1/0. 3.14 0/0.
         C{ 1 -1 }
         W{ 55 }
         { }
-        f
+        f  t
         H{ }
-        V{ }
+        V{ 65536 0 0 0 65536 }
         ""
         SBUF" "
         [ ]
@@ -86,22 +88,17 @@ TUPLE: inert-object ;
 SYMBOL: err
 SYMBOL: type-error
 SYMBOL: params
+SYMBOL: last-time
 : throws? ( data... quot -- ? )
     err off type-error off
     >r
         dup clone params set
         maybe-explode
     r>
-     ! "<<<<<testing" .
-     .s
-     ! "-----" . flush
-
-        ! dup [ standard-combination ] = [
-            ! >r 3dup . sheet . . r> dup .
-        ! ] when
+    dup [ nth-byte ] = [ .s ] when
+    ! .s
+    dup last-time get = [ dup . dup last-time set ] unless
     [ call ] [ err on ] recover
-     ! .s
-     ! ">>>>>tested" .
     err get [
         dup type-error? dup [
             ! .s
@@ -112,7 +109,7 @@ SYMBOL: params
 : test-inputs ( word -- seq )
     [ word-inputs ] keep
     unit [
-        throws? not
+        throws? not clear
     ] curry each-permutation ;
 
 : test1