2007-11-27 Glenn Humphrey <glenn.humphrey@OARcorp.com>

	* sp07/sp07.scn, sp07/task1.c, sp09/screen01.c, sp09/screen05.c,
	sp09/screen07.c, sp09/screen10.c, sp09/screen12.c, sp09/screen14.c,
	sp09/sp09.scn, sp25/sp25.scn, sp25/task1.c: Added several test cases
	to improve test coverage.

2 files changed, 65 insertions, 11 deletions

diff --git a/testsuites/sptests/sp25/sp25.scn b/testsuites/sptests/sp25/sp25.scn
index 85ec899f43..986cae9548 100644
--- a/testsuites/sptests/sp25/sp25.scn
+++ b/testsuites/sptests/sp25/sp25.scn
@@ -2,9 +2,11 @@ NOTE: Addresses vary between BSPs.  Please check that the addresses
       printed are reasonable for your target board and that the
       segments noted as being returned were allocated from the region.
 *** TEST 25 ***
-TA1 - rtems_region_ident - 0x32010002
+TA1 - rtems_region_ident - 0x32010001
 TA1 - rtems_region_get_segment - wait on 64 byte segment from region 1
 TA1 - got segment from region 1 - 0xXXXXXXXX
+TA1 - rtems_region_get_segment_size from - 0xXXXXXXXX
+TA1 - got segment size of 124
 TA1 - rtems_region_get_segment - wait on 128 byte segment from region 1
 TA1 - got segment from region 1 - 0xXXXXXXXX
 TA1 - rtems_region_get_segment - wait on 256 byte segment from region 1
@@ -19,6 +21,12 @@ TA1 - rtems_region_get_segment - wait on 4096 byte segment from region 1
 TA1 - got segment from region 1 - 0xXXXXXXXX
 TA1 - rtems_region_get_segment - wait on 8192 byte segment from region 1
 TA1 - got segment from region 1 - 0xXXXXXXXX
+TA1 - rtems_region_get_segment_size from - 0xXXXXXXXX
+TA1 - got segment size of 8252
+TA1 - rtems_region_get_information - 0x32010001
+TA1 - got information - free = 1, used = 8
+TA1 - rtems_region_get_free_information - 0x32010001
+TA1 - got free information - free = 1, used = 0
 <pause>
 TA1 - rtems_region_return_segment - return segment to region 1 - 0xXXXXXXXX
 TA1 - rtems_region_return_segment - return segment to region 1 - 0xXXXXXXXX
diff --git a/testsuites/sptests/sp25/task1.c b/testsuites/sptests/sp25/task1.c
index 20b1ade8c3..86e9dcead0 100644
--- a/testsuites/sptests/sp25/task1.c
+++ b/testsuites/sptests/sp25/task1.c
@@ -23,21 +23,25 @@ rtems_task Task_1(
   rtems_task_argument argument
 )
 {
-  void              *address_1;
-  void              *address_2;
-  void              *address_3;
-  void              *address_4;
-  void              *address_5;
-  void              *address_6;
-  void              *address_7;
-  void              *address_8;
-  rtems_status_code  status;
-  rtems_id           region_id;
+  void                   *address_1;
+  void                   *address_2;
+  void                   *address_3;
+  void                   *address_4;
+  void                   *address_5;
+  void                   *address_6;
+  void                   *address_7;
+  void                   *address_8;
+  rtems_id                region_id;
+  Heap_Information_block  region_info;
+  size_t                  segment_size;
+  rtems_status_code       status;
 
+  /* Obtain the region id */
   status = rtems_region_ident(Region_name[ 1 ], &region_id);
   printf( "TA1 - rtems_region_ident - 0x%08x\n", region_id );
   directive_failed(status, "rtems_region_ident of RN01");
 
+  /* Get a 64 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 64 byte segment from region 1"
   );
@@ -53,6 +57,15 @@ rtems_task Task_1(
   Put_address_from_area_1( address_1 );
   new_line;
 
+  /* Get the size of segment_1 */
+  puts_nocr( "TA1 - rtems_region_get_segment_size from - " );
+  Put_address_from_area_1( address_1 );
+  new_line;
+  status = rtems_region_get_segment_size(region_id, address_1, &segment_size);
+  directive_failed(status, "rtems_region_get_segment_size of segment 1");
+  printf( "TA1 - got segment size of %d\n", segment_size );
+
+  /* Get a 128 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 128 byte segment from region 1"
   );
@@ -68,6 +81,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_2 );
   new_line;
 
+  /* Get a 256 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 256 byte segment from region 1"
   );
@@ -83,6 +97,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_3 );
   new_line;
 
+  /* Get a 512 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 512 byte segment from region 1"
   );
@@ -98,6 +113,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_4 );
   new_line;
 
+  /* Get a 1024 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 1024 byte segment from region 1"
   );
@@ -113,6 +129,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_5 );
   new_line;
 
+  /* Get a 2048 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 2048 byte segment from region 1"
   );
@@ -128,6 +145,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_6 );
   new_line;
 
+  /* Get a 4096 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 4096 byte segment from region 1"
   );
@@ -143,6 +161,7 @@ rtems_task Task_1(
   Put_address_from_area_1( address_7 );
   new_line;
 
+  /* Get a 8192 byte segment from the region */
   puts(
     "TA1 - rtems_region_get_segment - wait on 8192 byte segment from region 1"
   );
@@ -158,6 +177,33 @@ rtems_task Task_1(
   Put_address_from_area_1( address_8 );
   new_line;
 
+  /* Get the size of segment_8 */
+  puts_nocr( "TA1 - rtems_region_get_segment_size from - " );
+  Put_address_from_area_1( address_8 );
+  new_line;
+  status = rtems_region_get_segment_size(region_id, address_8, &segment_size);
+  directive_failed(status, "rtems_region_get_segment_size of segment 8");
+  printf( "TA1 - got segment size of %d\n", segment_size );
+
+  /* Get information about the region */
+  printf( "TA1 - rtems_region_get_information - 0x%08x\n", region_id );
+  status = rtems_region_get_information(region_id, &region_info);
+  directive_failed(status, "rtems_region_get_information of RN01");
+  printf(
+    "TA1 - got information - free = %d, used = %d\n",
+    region_info.Free.number,
+    region_info.Used.number
+  );
+
+  printf( "TA1 - rtems_region_get_free_information - 0x%08x\n", region_id );
+  status = rtems_region_get_free_information(region_id, &region_info);
+  directive_failed(status, "rtems_region_get_free_information of RN01");
+  printf(
+    "TA1 - got free information - free = %d, used = %d\n",
+    region_info.Free.number,
+    region_info.Used.number
+  );
+
 rtems_test_pause();
 
   puts_nocr(