irttest/test/*.l : some tests will not work on :arm

Author: k-okada

irteus/test/geo.l

@@ -21,6 +21,8 @@
                        distance (- (v. normal (car vertices))))))
 (in-package "USER")
 
+;; https://github.com/euslisp/EusLisp/issues/232
+#-:arm
 (deftest test-body+
   (let (bottom-frame
         b

irteus/test/interpolator.l

@@ -110,6 +110,8 @@
      (< (reduce #'(lambda (x y) (max x y)) ret-list2) (+ 90 *epsilon*)))
     ))
 
+;; https://github.com/euslisp/EusLisp/issues/232
+#-:arm
 (deftest test-linear-interpolator ()
   (let ((res (test-interpolators linear-interpolator)))
     (assert res)))

irteus/test/test-irt-motion.l

@@ -885,6 +885,8 @@
     :robot-class sarmclass :wheel-class omniwheel-joint
     :use-wholebody t)))
 
+;; https://github.com/euslisp/EusLisp/issues/232
+#-:arm
 (deftest test-orientation-of-joint-class
   (assert
    (let ((ret (test-orientation-of-joint-class-common sphere-joint)))