2010-07-27 Joel Sherrill <joel.sherrill@oarcorp.com>

* psxobj01/Makefile.am, psxobj01/init.c, psxobj01/psxobj01.scn: Add
	test for runnign out of workspace when setting object name as string.

testsuites/psxtests/ChangeLog

@@ -1,3 +1,8 @@
+2010-07-27	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* psxobj01/Makefile.am, psxobj01/init.c, psxobj01/psxobj01.scn: Add
+	test for runnign out of workspace when setting object name as string.
+
 2010-07-27	Vinu Rajashekhar <vinutheraj@gmail.com>
 
 	PR 1629/cpukit

testsuites/psxtests/psxobj01/Makefile.am

@@ -5,7 +5,7 @@
 MANAGERS = all
 
 rtems_tests_PROGRAMS = psxobj01
-psxobj01_SOURCES = init.c
+psxobj01_SOURCES = init.c ../../support/src/test_support.c
 
 dist_rtems_tests_DATA = psxobj01.scn
 dist_rtems_tests_DATA += psxobj01.doc

testsuites/psxtests/psxobj01/init.c

@@ -12,6 +12,7 @@
 
 #define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
 #include <tmacros.h>
+#include "test_support.h"
 
 rtems_task Init(
   rtems_task_argument ignored
@@ -21,6 +22,7 @@ rtems_task Init(
   Objects_Information              TestClass;
   Objects_Id                       id;
   char                             name[64];
+  bool                             bc;
 
   puts( "\n\n*** POSIX OBJECT TEST 1 ***" );
 
@@ -62,6 +64,13 @@ rtems_task Init(
     rtems_test_exit(0);
   }
 
+  /* out of memory error ONLY when POSIX is enabled */
+  puts( "INIT - _Objects_Set_name fails - out of memory" );
+  Allocate_majority_of_workspace( 1 );
+
+  bc = _Objects_Set_name( &TestClass, &_Thread_Executing->Object, name );
+  rtems_test_assert( bc == false );
+
   puts( "*** END OF POSIX OBJECT TEST 1 ***" );
   rtems_test_exit(0);
 }

testsuites/psxtests/psxobj01/psxobj01.scn

@@ -2,4 +2,6 @@
 INIT - _Objects_Name_to_id_string - NULL name
 INIT - _Objects_Name_to_id_string - NULL ID
 INIT - _Objects_Name_to_id_string - name of non-existent object
+INIT - _Objects_Set_name fails - out of memory
+Allocate_majority_of_workspace: 
 *** END OF POSIX OBJECT TEST 1 ***