1 files changed, 129 insertions, 0 deletions
diff --git a/testsuites/sptests/sp15/task1.c b/testsuites/sptests/sp15/task1.c
new file mode 100644
index 0000000000..f22d27efe3
--- /dev/null
+++ b/testsuites/sptests/sp15/task1.c
@@ -0,0 +1,129 @@
+/*  Task_1
+ *
+ *  This routine serves as a test task.  It tests the partition manager.
+ *
+ *  Input parameters:
+ *    argument - task argument
+ *
+ *  Output parameters:  NONE
+ *
+ *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
+ *  On-Line Applications Research Corporation (OAR).
+ *  All rights assigned to U.S. Government, 1994.
+ *
+ *  This material may be reproduced by or for the U.S. Government pursuant
+ *  to the copyright license under the clause at DFARS 252.227-7013.  This
+ *  notice must appear in all copies of this file and its derivatives.
+ *
+ *  $Id$
+ */
+
+#include "system.h"
+
+rtems_task Task_1(
+  rtems_task_argument argument
+)
+{
+  rtems_id           ptid_1;
+  rtems_id           ptid_2;
+  void              *buffer_address_1;
+  void              *buffer_address_2;
+  void              *buffer_address_3;
+  void              *buffer_address_4;
+  rtems_status_code  status;
+
+  puts_nocr( "TA1 - rtems_partition_ident - partition 1 id = " );
+  status = rtems_partition_ident(
+    Partition_name[ 1 ],
+    RTEMS_SEARCH_ALL_NODES,
+    &ptid_1
+  );
+  directive_failed( status, "rtems_partition_ident of PT1" );
+  printf( "%08x\n", ptid_1 );
+
+  puts_nocr( "TA1 - rtems_partition_ident - partition 2 id = " );
+  status = rtems_partition_ident(
+    Partition_name[ 2 ],
+    RTEMS_SEARCH_ALL_NODES,
+    &ptid_2
+  );
+  directive_failed( status, "rtems_partition_ident of PT2" );
+  printf( "%08x\n", ptid_2 );
+
+  puts_nocr(
+    "TA1 - rtems_partition_get_buffer - buffer 1 from partition 1  - "
+  );
+  status = rtems_partition_get_buffer( ptid_1, &buffer_address_1 );
+  directive_failed( status, "rtems_partition_get_buffer" );
+  Put_address_from_area_1( buffer_address_1 );
+  new_line;
+
+  puts_nocr(
+    "TA1 - rtems_partition_get_buffer - buffer 2 from partition 1  - "
+  );
+  status = rtems_partition_get_buffer( ptid_1, &buffer_address_2 );
+  directive_failed( status, "rtems_partition_get_buffer" );
+  Put_address_from_area_1( buffer_address_2 );
+  new_line;
+
+  puts_nocr(
+    "TA1 - rtems_partition_get_buffer - buffer 1 from partition 2  - "
+  );
+  status = rtems_partition_get_buffer( ptid_2, &buffer_address_3 );
+  directive_failed( status, "rtems_partition_get_buffer" );
+  Put_address_from_area_2( buffer_address_3 );
+  new_line;
+
+  puts_nocr(
+    "TA1 - rtems_partition_get_buffer - buffer 2 from partition 2  - "
+  );
+  status = rtems_partition_get_buffer( ptid_2, &buffer_address_4 );
+  directive_failed( status, "rtems_partition_get_buffer" );
+  Put_address_from_area_2( buffer_address_4 );
+  new_line;
+
+  puts_nocr(
+    "TA1 - rtems_partition_return_buffer - buffer 1 to partition 1 - "
+  );
+  Put_address_from_area_1( buffer_address_1 );
+  new_line;
+  status = rtems_partition_return_buffer( ptid_1, buffer_address_1 );
+  directive_failed( status, "rtems_partition_return_buffer" );
+
+  puts_nocr(
+    "TA1 - rtems_partition_return_buffer - buffer 2 to partition 1 - "
+  );
+  Put_address_from_area_1( buffer_address_2 );
+  new_line;
+  status = rtems_partition_return_buffer( ptid_1, buffer_address_2 );
+  directive_failed( status, "rtems_partition_return_buffer" );
+
+  puts_nocr(
+    "TA1 - rtems_partition_return_buffer - buffer 1 to partition 2 - "
+  );
+  Put_address_from_area_2( buffer_address_3 );
+  new_line;
+  status = rtems_partition_return_buffer( ptid_2, buffer_address_3 );
+  directive_failed( status, "rtems_partition_return_buffer" );
+
+  puts_nocr(
+    "TA1 - rtems_partition_return_buffer - buffer 2 to partition 2 - "
+  );
+  Put_address_from_area_2( buffer_address_4 );
+  new_line;
+  status = rtems_partition_return_buffer( ptid_2, buffer_address_4 );
+  directive_failed( status, "rtems_partition_return_buffer" );
+
+  puts( "TA1 - rtems_partition_delete - delete partition 1"
+  );
+  status = rtems_partition_delete( ptid_1 );
+  directive_failed( status, "rtems_partition_delete" );
+
+  puts( "TA1 - rtems_partition_delete - delete partition 2"
+  );
+  status = rtems_partition_delete( ptid_2 );
+  directive_failed( status, "rtems_partition_delete" );
+
+  puts( "*** END OF TEST 15 ***" );
+  exit( 0 );
+}