Merge pull request #509 from k-okada/test_508

[WIP] add test code for [unexpected behavior if message has property `name`] #508

roseus/CMakeLists.txt

@@ -102,7 +102,7 @@ add_service_files(
   FILES AddTwoInts.srv StringString.srv
 )
 add_message_files(
-  FILES String.msg StringStamped.msg FixedArray.msg VariableArray.msg
+  FILES String.msg StringStamped.msg FixedArray.msg VariableArray.msg TestName.msg
 )
 
 generate_messages(

roseus/msg/TestName.msg

@@ -0,0 +1 @@
+roseus/StringStamped name

roseus/test/test-name-pub.l

@@ -0,0 +1,16 @@
+#!/usr/bin/env roseus
+
+(ros::load-ros-manifest "roseus")
+
+(ros::roseus "test_name_pub")
+(ros::advertise "test_name" roseus::TestName)
+(ros::rate 1)
+(setq i 0)
+(while (ros::ok)
+  (setq ss (instance roseus::StringStamped :init :data (format nil "test ~A" (incf i))))
+  (setq msg (instance roseus::TestName :init :name ss))
+  (ros::ros-info "pub ~A" msg)
+  (ros::publish "test_name" msg)
+  (ros::sleep)
+  (ros::spin-once))
+

roseus/test/test-name-sub.l

@@ -0,0 +1,8 @@
+#!/usr/bin/env roseus
+
+(ros::load-ros-manifest "roseus")
+
+(ros::roseus "test_name_sub")
+(ros::subscribe "test_name" roseus::TestName #'(lambda (msg) (ros::ros-info "sub ~A" msg)))
+(ros::spin)
+

roseus/test/test-name.test

@@ -0,0 +1,6 @@
+<launch>
+  <node name="test_name_pub" pkg="roseus" type="test-name-pub.l"
+        output="screen" />
+  <node name="test_name_sub" pkg="roseus" type="test-name-sub.l"
+        output="screen" />
+</launch>