To test test-pointcloud.l with conmpiled code requries euslisp/EusLis…

…p#357
k-okada · Dec 30, 2018 · 249283d · 249283d
1 parent 5f0d718
commit 249283d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/irteus/test/test-pointcloud.l b/irteus/test/test-pointcloud.l
@@ -229,11 +229,15 @@
         (send base :assoc *point*)
         (send base :transform
               (make-coords :pos (float-vector 400 -800 1200) :rpy (list 0.4 0.3 0.2)))
+	(if (and (derivedp #'move-origin-to-check compiled-code) (not (boundp 'lisp::*print-precision*)))
+	    (warning-message 1 "eps-v= ... (float-vector 792.73...) tests requires https://github.com/euslisp/EusLisp/pull/357~%")
+	  (progn
         (assert
          (eps-v=
           (send (send *point* :worldcoords) :transform-vector (car (send *point* :point-list)))
           (float-vector 792.732209445 539.4908242525 2397.9448709116)
           *temp-eps*))
+	))
 
         (send *point* :move-origin-to *ccoords*)
         (assert