Skip to content
Snippets Groups Projects
Commit 37f3cfab authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Mention the environment variables

parent 701bb02c
No related branches found
No related tags found
No related merge requests found
...@@ -62,6 +62,17 @@ test-types shows the error for every pair ...@@ -62,6 +62,17 @@ test-types shows the error for every pair
#+clozure (ccl:getenv parameter) #+clozure (ccl:getenv parameter)
) )
#+asdf
(defun quit-random-test (code)
(uiop:quit code))
#-asdf
(defun quit-random-test (code)
#+allegro (cl-user::exit)
#+(or cmu sbcl gcl armedbear clisp clozure ecl) (cl-user::quit)
#+clasp (ext:quit 0)
)
(defun get-env-parameter-as-number (parameter) (defun get-env-parameter-as-number (parameter)
(let ((value (get-env-parameter parameter))) (let ((value (get-env-parameter parameter)))
(if value (if value
...@@ -71,16 +82,23 @@ test-types shows the error for every pair ...@@ -71,16 +82,23 @@ test-types shows the error for every pair
(let* ((default-size 20) (let* ((default-size 20)
(default-variables 4) (default-variables 4)
(default-iterations 10000) (default-iterations 10000)
(actual-size (or (get-env-parameter-as-number "random_int_size") default-size)) (env-size "random_int_size")
(actual-variables (or (get-env-parameter-as-number "random_int_variables") default-variables)) (env-variables "random_int_variables")
(actual-iterations (or (get-env-parameter-as-number "random_int_iterations") default-iterations)) (env-iterations "random_int_iterations")
(actual-size (or (get-env-parameter-as-number env-size) default-size))
(actual-variables (or (get-env-parameter-as-number env-variables) default-variables))
(actual-iterations (or (get-env-parameter-as-number env-iterations) default-iterations))
(*random-state* (make-random-state t))) (*random-state* (make-random-state t)))
(handler-bind ((style-warning #'muffle-warning)) (handler-bind ((style-warning #'muffle-warning))
(format t "Running test-random-integer-forms with size: ~a variables: ~a iterations: ~a on implementation ~a ~%" (format t "Running test-random-integer-forms with size: ~a variables: ~a iterations: ~a on implementation ~a ~%"
actual-size actual-variables actual-iterations (lisp-implementation-type)) actual-size actual-variables actual-iterations (lisp-implementation-type))
(format t "Set the following environment variables to modify: ~a ~a ~a.~%"
env-size env-variables env-iterations)
(test-random-integer-forms actual-size actual-variables actual-iterations))) (test-random-integer-forms actual-size actual-variables actual-iterations)))
#+clasp (ext:quit 0) #-dont-quit
(progn
(quit-random-test 0))
#| #|
4) Additional testing can be done with test-types and test-type-triples. The latter has its own pruner, prune-type-triple. 4) Additional testing can be done with test-types and test-type-triples. The latter has its own pruner, prune-type-triple.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment