From a08f32081def70de76b22b98f3e39ece09ac6036 Mon Sep 17 00:00:00 2001 From: Kei Okada Date: Sun, 30 Dec 2018 04:58:15 +0000 Subject: [PATCH] To test test-pointcloud.l with conmpiled code requries https://github.com/euslisp/EusLisp/pull/357 --- irteus/test/test-pointcloud.l | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/irteus/test/test-pointcloud.l b/irteus/test/test-pointcloud.l index aa48e375d..3731fea9f 100644 --- a/irteus/test/test-pointcloud.l +++ b/irteus/test/test-pointcloud.l @@ -229,18 +229,26 @@ (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-precisiona*))) + (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*) + (if (and (derivedp #'move-origin-to-check compiled-code) (not (boundp 'lisp::*print-precisiona*))) + (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*)) + )) (assert (eps-v= (send *point* :worldpos) (send *ccoords* :pos) *temp-eps*)) (assert