enable to run compile test

override euslisp#493, use eval-when not to run test code on compile time

irteus/test/all-robots-objects.l

@@ -26,5 +26,6 @@
  '("robots" "objects" "scenes")
  '(make-all-robots make-all-objects make-all-scenes))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/bignum.l

@@ -109,6 +109,6 @@
   (print 'done)
   )
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/character.l

@@ -45,5 +45,7 @@
   (assert (eq t (lisp::char>= #\d #\d #\c #\a)) "(lisp::char>= #\d #\d #\c #\a)")
 )
 
-(run-all-tests)
-(exit) ;; end of character.l
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
+;; end of character.l

irteus/test/const.l

@@ -25,5 +25,6 @@
   (assert (not (= num (+ (length ((find-package "TEST3") . intsymvector)) 10))) "check if intsymvector is expanded")
   )
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/coords.l

@@ -55,5 +55,6 @@
     (format *error-output* "~A gc:~A, vmrss:~A -> ~A~%" j (sys::gc) vmrss-orig vmrss)
     (assert (< vmrss (* 2 vmrss-orig)) "make-coords quaternion2matrix")))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/geo.l

@@ -87,6 +87,6 @@
     (assert (eps= (send f :distance (float-vector 200 0 100)) (norm #f(100 100))))
     ))
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/graph.l

@@ -119,6 +119,6 @@
     ))
 
 
-(run-all-tests)
-
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/interpolator.l

@@ -127,5 +127,6 @@
 (print (length r2))
 |#
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/irteus-demo.l

@@ -144,5 +144,6 @@
   (assert
    (look-at-ik-all)))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/joint.l

@@ -289,5 +289,6 @@
 (deftest test-make-joint-min-max-table-margin-5deg
   (assert (test-make-joint-min-max-table-common :margin 5)))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/mathtest.l

@@ -144,5 +144,6 @@
     (assert (eps-matrix= (m* m6 vec) (m* vec (diagonal val))) "ql-decompose")
     ))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/matrix.l

@@ -174,5 +174,6 @@
                   (apply #'concatenate-matrix-column-naive-impl mats))))
     ))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/min-max.l

@@ -54,5 +54,6 @@
   (print 'min-test-done)
   )
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/number.l

@@ -45,5 +45,7 @@
   (assert (eq (= 0 -0.0) t)            "(= 0 -0.0) is true.")
   )
 
-(run-all-tests)
-(exit) ;; end of number.l
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
+;; end of number.l

irteus/test/object.l

@@ -102,5 +102,6 @@
     (format *error-output* "~A gc:~A, vmrss:~A -> ~A~%" j (sys::gc) vmrss-orig vmrss)
     (assert (< vmrss (* 10 vmrss-orig)) "copy-object matrix")))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/queue.l

@@ -49,5 +49,6 @@
     (assert (send q :empty?) "queue is empty" (car q))
     ))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/read-img.l

@@ -34,6 +34,6 @@
 	))
     ))
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/read-line.l

@@ -23,5 +23,6 @@
      (apply #'eq (read-from-string (format nil "~S" (list g g))))
      "Unable to read uninterned symbol")))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/rendering.l

@@ -20,6 +20,6 @@
           "image transposed twice must be the same as original image")
 )
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/robot-model-usage.l

@@ -167,5 +167,6 @@
     ))
 
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/sort.l

@@ -22,5 +22,6 @@
       )
     ))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/string.l

@@ -48,5 +48,7 @@
 
 )
 
-(run-all-tests)
-(exit) ;; end of string.l
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
+; end of string.l

irteus/test/test-irt-motion.l

@@ -1176,5 +1176,6 @@
        (send* self :inverse-kinematics-loop-org dif-pos dif-rot :ik-args ik-args args)))
     ))
 
-(run-all-tests)
-(exit 0)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/test-pointcloud.l

@@ -294,5 +294,6 @@
   (move-origin-to-check)
   )
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/time.l

@@ -62,5 +62,7 @@
 
 )
 
-(run-all-tests)
-(exit)  ;; end of time.l
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
+;; end of time.l

irteus/test/transparent.l

@@ -33,5 +33,6 @@
       (assert (< vmrss (* 4 vmrss-orig)) "check memory leak")
       )))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

irteus/test/unittest.l

@@ -31,7 +31,9 @@
 (setf (symbol-function 'org-exit) (symbol-function 'exit))
 (setf (symbol-function 'exit) #'(lambda (a) (print a)))
 ;; Test all cases including intentinal failure.
-(run-all-tests)
+(eval-when (load eval)
+  (run-all-tests)
+
 ;; Revert exit function
 (setf (symbol-function 'exit) (symbol-function 'org-exit))
 
@@ -50,3 +52,5 @@
 (format t "return code = ~A~%" ret)
 (exit ret)
 
+);; eval-when
+

irteus/test/vector.l

@@ -119,5 +119,6 @@
     (assert (not (= (elt v2 2) (elt v2 2)))) ;; check if v2[2] is nan;
     t))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))