enable to run compile test

k-okada · k-okada · commit 4df6ca6a76bf · 2018-08-10T10:21:31.000+09:00
override euslisp#493, use eval-when not to run test code on compile time
diff --git a/irteus/test/all-robots-objects.l b/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))
diff --git a/irteus/test/bignum.l b/irteus/test/bignum.l
@@ -109,6 +109,6 @@
   (print 'done)
   )
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/character.l b/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
diff --git a/irteus/test/const.l b/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))
diff --git a/irteus/test/coords.l b/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))
diff --git a/irteus/test/geo.l b/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))
diff --git a/irteus/test/graph.l b/irteus/test/graph.l
@@ -119,6 +119,6 @@
     ))
 
 
-(run-all-tests)
-
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/interpolator.l b/irteus/test/interpolator.l
@@ -127,5 +127,6 @@
 (print (length r2))
 |#
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/irteus-demo.l b/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))
diff --git a/irteus/test/joint.l b/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))
diff --git a/irteus/test/mathtest.l b/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))
diff --git a/irteus/test/matrix.l b/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))
diff --git a/irteus/test/min-max.l b/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))
diff --git a/irteus/test/number.l b/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
diff --git a/irteus/test/object.l b/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))
diff --git a/irteus/test/queue.l b/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))
diff --git a/irteus/test/read-img.l b/irteus/test/read-img.l
@@ -34,6 +34,6 @@
 	))
     ))
 
-(run-all-tests)
-(exit)
-
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/read-line.l b/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))
diff --git a/irteus/test/rendering.l b/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))
diff --git a/irteus/test/robot-model-usage.l b/irteus/test/robot-model-usage.l
@@ -167,5 +167,6 @@
     ))
 
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/sort.l b/irteus/test/sort.l
@@ -22,5 +22,6 @@
       )
     ))
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/irteus/test/string.l b/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
diff --git a/irteus/test/test-irt-motion.l b/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))
diff --git a/irteus/test/test-pointcloud.l b/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))
diff --git a/irteus/test/time.l b/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
diff --git a/irteus/test/transparent.l b/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))
diff --git a/irteus/test/unittest.l b/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
+
diff --git a/irteus/test/vector.l b/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))

Original file line number	Diff line number	Diff line change
`@@ -109,6 +109,6 @@`
`109`	`109`	`(print 'done)`
`110`	`110`	`)`
`111`	`111`
`112`		`-(run-all-tests)`
`113`		`-(exit)`
`114`		`-`
	`112`	`+(eval-when (load eval)`
	`113`	`+ (run-all-tests)`
	`114`	`+ (exit))`
Original file line number	Diff line number	Diff line change
`@@ -45,5 +45,7 @@`
`45`	`45`	`(assert (eq t (lisp::char>= #\d #\d #\c #\a)) "(lisp::char>= #\d #\d #\c #\a)")`
`46`	`46`	`)`
`47`	`47`
`48`		`-(run-all-tests)`
`49`		`-(exit) ;; end of character.l`
	`48`	`+(eval-when (load eval)`
	`49`	`+ (run-all-tests)`
	`50`	`+ (exit))`
	`51`	`+;; end of character.l`
Original file line number	Diff line number	Diff line change
`@@ -25,5 +25,6 @@`
`25`	`25`	`(assert (not (= num (+ (length ((find-package "TEST3") . intsymvector)) 10))) "check if intsymvector is expanded")`
`26`	`26`	`)`
`27`	`27`
`28`		`-(run-all-tests)`
`29`		`-(exit)`
	`28`	`+(eval-when (load eval)`
	`29`	`+ (run-all-tests)`
	`30`	`+ (exit))`