;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Tue May 25 07:15:02 2004
;;;; Contains: Tests of printing random states

(in-package :cl-test)



(deftest print.random-state.1
  (loop repeat 100
        do (loop repeat 50 do (random 1000))
        nconc
        (let* ((rs1 (make-random-state *random-state*))
               (rs2 (with-standard-io-syntax
                     (read-from-string
                      (write-to-string rs1 :readably t))))
               (result (list (notnot (random-state-p rs2))
                             (is-similar rs1 rs2))))
          (unless (equal result '(t t)) (list result rs1 rs2))))
  nil)