Investigating bug #126: testcase for invoking same command multiple t…

…imes.

git-svn-id: https://svn.mech.kuleuven.be/repos/orocos/orocos-trunk@5195 ce417995-dfc9-0310-95a0-acdaff106893

tests/dispatch_test.cpp

@@ -242,11 +242,16 @@ void DispatchTest::testDispatchUntilFail()
     this->finishDispatch( &gtc, "x");
 }
 
-void DispatchTest::testSendDispatch()
+void DispatchTest::testDispatchMany()
 {
     // XXX not a valid test. send not present in Orocos, this looks like 'try'
     // a program which must not fail, even if the command failes.
-    string prog = "program x { send space.subspace.test.assert(false) \n }";
+    string prog = string("program x { ")
+        +"  do space.subspace.test.instantDone()\n"
+        +"  do space.subspace.test.instantDone()\n"
+        +"  do space.subspace.test.instantDone()\n"
+        +"  do space.subspace.test.instantDone()\n"
+        +" }";
     this->doDispatch( prog, &gtc );
 
     CPPUNIT_ASSERT( gtc.engine()->programs()->getProgramStatus("x") != ProgramInterface::Status::error );

tests/dispatch_test.hpp

@@ -42,6 +42,7 @@ class DispatchTest : public CppUnit::TestFixture
     CPPUNIT_TEST( testDispatchTry );
     CPPUNIT_TEST( testDispatchUntil );
     CPPUNIT_TEST( testDispatchUntilFail );
+    CPPUNIT_TEST( testDispatchMany );
     CPPUNIT_TEST_SUITE_END();
 
     //CPPUNIT_TEST( testSendDispatch );
@@ -74,7 +75,7 @@ class DispatchTest : public CppUnit::TestFixture
 
     void testParseDispatch();
     void testDispatchCondition();
-    void testSendDispatch();
+    void testDispatchMany();
     void testDispatchFailure();
     void testDispatchAnd();
     void testDispatchTry();