2008-01-07 Joel Sherrill <joel.sherrill@oarcorp.com>

* sp09/screen07.c, sp09/screen12.c, sp09/screen14.c, sp09/sp09.scn
	Add test cases for:
	  + message queue create requesting too many message buffers
	    for the available memory
	  + region extend with address inside existing heap
	  + timer server initiate too large a stack, create error
	* sp12/pritask.c, sp12/sp12.scn: Add test cases for:
	  + task set priority while holding resource

testsuites/sptests/ChangeLog

@@ -1,3 +1,14 @@
+2008-01-07	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* sp09/screen07.c, sp09/screen12.c, sp09/screen14.c, sp09/sp09.scn
+	Add test cases for:
+	  + message queue create requesting too many message buffers
+	    for the available memory
+	  + region extend with address inside existing heap
+	  + timer server initiate too large a stack, create error
+	* sp12/pritask.c, sp12/sp12.scn: Add test cases for:
+	  + task set priority while holding resource
+
 2008-01-07	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* Makefile.am, configure.ac: Added sp38 and sp39.

testsuites/sptests/sp09/screen07.c

@@ -70,6 +70,21 @@ void Screen7()
 #endif
   puts( "TA1 - rtems_message_queue_create - Q 1 - RTEMS_MP_NOT_CONFIGURED" );
 
+  /* not enough memory for messages */
+  status = rtems_message_queue_create(
+    Queue_name[ 1 ],
+    1000000,                     /* 1 million messages should do it */
+    MESSAGE_SIZE,
+    RTEMS_DEFAULT_ATTRIBUTES,
+    &Queue_id[ 1 ]
+  );
+  fatal_directive_status(
+    status,
+    RTEMS_UNSATISFIED,
+    "rtems_message_queue_create unsatisfied"
+  );
+  puts( "TA1 - rtems_message_queue_create - Q 2 - RTEMS_UNSATISFIED" );
+
   status = rtems_message_queue_create(
     Queue_name[ 1 ],
     2,
@@ -78,9 +93,7 @@ void Screen7()
     &Queue_id[ 1 ]
   );
   directive_failed( status, "rtems_message_queue_create successful" );
-  puts(
+  puts( "TA1 - rtems_message_queue_create - Q 1 - 2 DEEP - RTEMS_SUCCESSFUL" );
-    "TA1 - rtems_message_queue_create - Q 1 - 2 DEEP - RTEMS_SUCCESSFUL"
-  );
 
   status = rtems_message_queue_create(
     Queue_name[ 2 ],

testsuites/sptests/sp09/screen12.c

@@ -6,7 +6,7 @@
  *
  *  Output parameters:  NONE
  *
- *  COPYRIGHT (c) 1989-1999.
+ *  COPYRIGHT (c) 1989-2007.
  *  On-Line Applications Research Corporation (OAR).
  *
  *  The license and distribution terms for this file may be
@@ -127,6 +127,18 @@ void Screen12()
   directive_failed( status, "rtems_region_create" );
   puts( "TA1 - rtems_region_create - RTEMS_SUCCESSFUL" );
 
+  status = rtems_region_extend(
+    Region_id[ 1 ],
+    &Region_good_area[ REGION_START_OFFSET ],
+    REGION_LENGTH - 1
+  );
+  fatal_directive_status(
+    status,
+    RTEMS_INVALID_ADDRESS,
+    "rtems_region_extend with address in heap"
+  );
+  puts( "TA1 - rtems_region_extend - address within - RTEMS_INVALID_ADDRESS" );
+
   status = rtems_region_create(
     Region_name[ 1 ],
     Region_good_area,

testsuites/sptests/sp09/screen14.c

@@ -187,10 +187,22 @@ void Screen14()
   );
   puts( "TA1 - rtems_timer_initiate_server - RTEMS_INVALID_PRIORITY" );
 
+  status = rtems_timer_initiate_server(
+      RTEMS_TIMER_SERVER_DEFAULT_PRIORITY,
+      0x10000000,
+      0
+  );
+  fatal_directive_status(
+    status,
+    RTEMS_UNSATISFIED,
+    "rtems_timer_initiate_server too much stack "
+  );
+  puts( "TA1 - rtems_timer_initiate_server - RTEMS_UNSATISFIED" );
+
   status =
     rtems_timer_initiate_server( RTEMS_TIMER_SERVER_DEFAULT_PRIORITY, 0, 0 );
   directive_failed( status, "rtems_timer_initiate_server" );
-  puts( "TA1 - rtems_timer_initiate_server" );
+  puts( "TA1 - rtems_timer_initiate_server - SUCCESSFUL" );
 
   status = rtems_timer_server_fire_after(
     0x010100,

testsuites/sptests/sp09/sp09.scn

@@ -104,6 +104,7 @@ TA1 - rtems_task_delete TA2 - already deleted RTEMS_INVALID_ID
 TA1 - rtems_message_queue_broadcast - RTEMS_INVALID_ID
 TA1 - rtems_message_queue_create - Q 1 - RTEMS_INVALID_NAME
 TA1 - rtems_message_queue_create - Q 1 - RTEMS_MP_NOT_CONFIGURED
+TA1 - rtems_message_queue_create - Q 2 - RTEMS_UNSATISFIED
 TA1 - rtems_message_queue_create - Q 1 - 2 DEEP - RTEMS_SUCCESSFUL
 TA1 - rtems_message_queue_create - Q 2 - RTEMS_TOO_MANY
 TA1 - rtems_message_queue_delete - unknown RTEMS_INVALID_ID
@@ -209,6 +210,7 @@ TA1 - rtems_region_create - RTEMS_INVALID_ADDRESS
 TA1 - rtems_region_create - RTEMS_INVALID_SIZE
 TA1 - rtems_region_create - RTEMS_INVALID_ADDRESS
 TA1 - rtems_region_create - RTEMS_SUCCESSFUL
+TA1 - rtems_region_extend - address within - RTEMS_INVALID_ADDRESS
 TA1 - rtems_region_create - RTEMS_TOO_MANY
 TA1 - rtems_region_delete - unknown RTEMS_INVALID_ID
 TA1 - rtems_region_delete - local RTEMS_INVALID_ID
@@ -278,7 +280,8 @@ TA1 - rtems_timer_get_information - RTEMS_INVALID_ID
 TA1 - rtems_timer_server_fire_after - RTEMS_INCORRECT_STATE
 TA1 - rtems_timer_server_fire_when - RTEMS_INCORRECT_STATE
 TA1 - rtems_timer_initiate_server - RTEMS_INVALID_PRIORITY
-TA1 - rtems_timer_initiate_server
+TA1 - rtems_timer_initiate_server - RTEMS_UNSATISFIED
+TA1 - rtems_timer_initiate_server - SUCCESSFUL
 TA1 - rtems_timer_server_fire_after - RTEMS_INVALID_ID
 TA1 - rtems_timer_server_fire_when - RTEMS_INVALID_ID
 TA1 - rtems_timer_server_fire_after - RTEMS_INVALID_NUMBER

testsuites/sptests/sp12/pritask.c

@@ -7,7 +7,7 @@
  *
  *  Output parameters:  NONE
  *
- *  COPYRIGHT (c) 1989-1999.
+ *  COPYRIGHT (c) 1989-2007.
  *  On-Line Applications Research Corporation (OAR).
  *
  *  The license and distribution terms for this file may be
@@ -51,6 +51,23 @@ rtems_task Priority_task(
     rtems_test_exit( 0 );
   }
 
+  /* special case of setting priority while holding a resource */
+  { 
+    rtems_task_priority priority;
+    rtems_task_priority old_priority;
+
+    puts( "Set priority of self while holding resource" );
+    status =
+      rtems_task_set_priority( RTEMS_SELF, RTEMS_CURRENT_PRIORITY, &priority );
+    directive_failed( status, "rtems_task_set_priority get current" );
+    status = rtems_task_set_priority( RTEMS_SELF, priority, &old_priority );
+    directive_failed( status, "rtems_task_set_priority with resource" );
+    if ( priority != old_priority ) {
+      printf( "priority != old_priority (%d != %d)\n", priority, old_priority );
+      rtems_test_exit(0);
+    }
+  }
+
   if ( its_index == 5 )
     puts( "PRI5 - rtems_task_suspend - until all priority tasks blocked" );
   status = rtems_task_suspend( RTEMS_SELF );

testsuites/sptests/sp12/sp12.scn

@@ -17,6 +17,7 @@ INIT - rtems_semaphore_create - allocated binary semaphore
 INIT - rtems_semaphore_release - allocated binary semaphore
 INIT - rtems_semaphore_delete - allocated binary semaphore
 PRI5 - rtems_semaphore_obtain - wait forever on SM2
+Set priority of self while holding resource
 PRI5 - rtems_task_suspend - until all priority tasks blocked
 PDRV - priority of PRI5 is 67
 PRI4 - rtems_semaphore_obtain - wait forever on SM2
@@ -35,7 +36,7 @@ PRI5 - rtems_semaphore_release - nested
 PRI5 - rtems_semaphore_release - restore priority
 PRI5 - priority of PRI5 is 68
 <pause>
-TA1 - rtems_semaphore_ident - smid => 18010002
+TA1 - rtems_semaphore_ident - smid => 1a010009
 TA1 - rtems_semaphore_obtain - wait forever on SM2
 TA1 - got SM2
 TA1 - rtems_semaphore_obtain - wait forever on SM3