~octaspire/crates2

fbd2c6925ca1d490ed16effca1c3cec25b18faf1 — octaspire 4 months ago 47f3218
Increase allowed test update count, warn if count is exeeded
1 files changed, 3 insertions(+), 1 deletions(-)

M src/main.lisp
M src/main.lisp => src/main.lisp +3 -1
@@ 31,7 31,7 @@
(defparameter *frame-duration-default* 0.25) ; Not zeroed in test mode.
(defparameter *frame-duration* *frame-duration-default*) ; Zeroed in test mode.
(defparameter *test-run* nil)
(defparameter *test-run-max-updates* 1900)
(defparameter *test-run-max-updates* 3000)

(defun verbose-parser (x)
  (setf *verbose* (parse-integer x)))


@@ 121,6 121,8 @@ This is similar to 'test' but runs much slower."
                     (format s "~%----------LEVEL ~A----------~%" *level-number*)))
                 (incf *update-counter*)
                 (sleep *frame-duration*))
        (when (>= *update-counter* *test-run-max-updates*)
          (format t "~%CRATES2: WARNING EXECUTION STOPPED ON TOO LARGE UPDATE COUNT~%"))
        (setf str (nstring-downcase str))
        (when log-input
          (format t "~%~A~%" str))))))