2008-01-31 Joel Sherrill <joel.sherrill@OARcorp.com>

	* Makefile.am, configure.ac: New tests.
	* psxfatal01/.cvsignore, psxfatal01/Makefile.am,
	psxfatal01/psxfatal01.scn, psxfatal01/testcase.h,
	psxfatal02/.cvsignore, psxfatal02/Makefile.am,
	psxfatal02/psxfatal02.scn, psxfatal02/testcase.h,
	psxfatal_support/init.c, psxfatal_support/system.h: New files.

2 files changed, 228 insertions, 0 deletions

diff --git a/testsuites/psxtests/psxfatal_support/init.c b/testsuites/psxtests/psxfatal_support/init.c
new file mode 100644
index 0000000000..20dcce306d
--- /dev/null
+++ b/testsuites/psxtests/psxfatal_support/init.c
@@ -0,0 +1,156 @@
+/*  POSIX_Init
+ *
+ *  This routine is the initialization task for this test program.
+ *  It is a user initialization task and has the responsibility for creating
+ *  and starting the tasks that make up the test.  If the time of day
+ *  clock is required for the test, it should also be set to a known
+ *  value by this function.
+ *
+ *  Input parameters:
+ *    argument - task argument
+ *
+ *  Output parameters:  NONE
+ *
+ *  COPYRIGHT (c) 1989-2008.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+#define TEST_INIT
+#include "system.h"
+
+void *POSIX_Init(
+  void *argument
+)
+{
+  force_error();
+  printk( "Fatal error (%s) NOT hit\n", FATAL_ERROR_DESCRIPTION );
+  rtems_test_exit(0);
+}
+
+char *Sources[] = {
+  "INTERNAL_ERROR_CORE",
+  "INTERNAL_ERROR_RTEMS_API",
+  "INTERNAL_ERROR_POSIX_API",
+  "INTERNAL_ERROR_ITRON_API"
+};
+
+char *Errors_Rtems[] = {
+  "RTEMS_SUCCESSFUL",               /* successful completion */
+  "RTEMS_TASK_EXITTED",             /* returned from a task */
+  "RTEMS_MP_NOT_CONFIGURED",        /* multiprocessing not configured */
+  "RTEMS_INVALID_NAME",             /* invalid object name */
+  "RTEMS_INVALID_ID",               /* invalid object id */
+  "RTEMS_TOO_MANY",                 /* too many */
+  "RTEMS_TIMEOUT",                  /* timed out waiting */
+  "RTEMS_OBJECT_WAS_DELETED",       /* object was deleted while waiting */
+  "RTEMS_INVALID_SIZE",             /* specified size was invalid */
+  "RTEMS_INVALID_ADDRESS",          /* address specified is invalid */
+  "RTEMS_INVALID_NUMBER",           /* number was invalid */
+  "RTEMS_NOT_DEFINED",              /* item has not been initialized */
+  "RTEMS_RESOURCE_IN_USE",          /* resources still outstanding */
+  "RTEMS_UNSATISFIED",              /* request not satisfied */
+  "RTEMS_INCORRECT_STATE",          /* task is in wrong state */
+  "RTEMS_ALREADY_SUSPENDED",        /* task already in state */
+  "RTEMS_ILLEGAL_ON_SELF",          /* illegal operation on calling task */
+  "RTEMS_ILLEGAL_ON_REMOTE_OBJECT", /* illegal operation for remote object */
+  "RTEMS_CALLED_FROM_ISR",          /* called from ISR */
+  "RTEMS_INVALID_PRIORITY",         /* invalid task priority */
+  "RTEMS_INVALID_CLOCK",            /* invalid date/time */
+  "RTEMS_INVALID_NODE",             /* invalid node id */
+  "RTEMS_NOT_OWNER_OF_RESOURCE",    /* not owner of resource */
+  "RTEMS_NOT_CONFIGURED",           /* directive not configured */
+  "RTEMS_NOT_IMPLEMENTED"           /* directive not implemented */
+};
+
+char *Errors_Core[] = {
+  "INTERNAL_ERROR_NO_CONFIGURATION_TABLE",
+  "INTERNAL_ERROR_NO_CPU_TABLE",
+  "INTERNAL_ERROR_INVALID_WORKSPACE_ADDRESS",
+  "INTERNAL_ERROR_TOO_LITTLE_WORKSPACE",
+  "INTERNAL_ERROR_WORKSPACE_ALLOCATION",
+  "INTERNAL_ERROR_INTERRUPT_STACK_TOO_SMALL",
+  "INTERNAL_ERROR_THREAD_EXITTED",
+  "INTERNAL_ERROR_INCONSISTENT_MP_INFORMATION",
+  "INTERNAL_ERROR_INVALID_NODE",
+  "INTERNAL_ERROR_NO_MPCI",
+  "INTERNAL_ERROR_BAD_PACKET",
+  "INTERNAL_ERROR_OUT_OF_PACKETS",
+  "INTERNAL_ERROR_OUT_OF_GLOBAL_OBJECTS",
+  "INTERNAL_ERROR_OUT_OF_PROXIES",
+  "INTERNAL_ERROR_INVALID_GLOBAL_ID",
+  "INTERNAL_ERROR_BAD_STACK_HOOK",
+  "INTERNAL_ERROR_BAD_ATTRIBUTES",
+  "INTERNAL_ERROR_IMPLEMENTATION_KEY_CREATE_INCONSISTENCY",
+  "INTERNAL_ERROR_IMPLEMENTATION_BLOCKING_OPERATION_CANCEL",
+  "INTERNAL_ERROR_MUTEX_OBTAIN_FROM_BAD_STATE"
+};
+
+void Put_Error( uint32_t source, uint32_t error )
+{
+  if ( source == INTERNAL_ERROR_CORE ) {
+    if ( error >  INTERNAL_ERROR_MUTEX_OBTAIN_FROM_BAD_STATE )
+      printk("Unknown Internal Core Error (%d)", error);
+    else
+      printk( Errors_Core[ error ] );
+  }
+  else if (source == INTERNAL_ERROR_RTEMS_API ){
+    if (error >  RTEMS_NOT_IMPLEMENTED )
+      printk("Unknown Internal Rtems Error (%d)", error);
+    else
+      printk( Errors_Rtems[ error ] );
+  }
+  else if (source == INTERNAL_ERROR_POSIX_API ) {
+      printk( "SOURCE=%d ERROR=%d %s", source, error, strerror( error ) );
+  }
+}
+
+void Put_Source( uint32_t source )
+{
+  if ( source > INTERNAL_ERROR_ITRON_API )
+    printk("Unknown Source (%d)", source);
+  else
+    printk( Sources[ source ] );
+}
+
+
+rtems_extension Fatal_extension(
+  uint32_t   source,
+  boolean    is_internal,
+  uint32_t   error
+)
+{
+  printk( "Fatal error (%s) hit\n", FATAL_ERROR_DESCRIPTION );
+
+  if ( source != FATAL_ERROR_EXPECTED_SOURCE ){
+    printk( "ERROR==> Fatal Extension source Expected (");
+    Put_Source( FATAL_ERROR_EXPECTED_SOURCE );
+    printk( ") received (");
+    Put_Source( source );
+    printk( ")\n" );
+  }
+
+  if ( is_internal !=  FATAL_ERROR_EXPECTED_IS_INTERNAL )
+  {
+    if ( is_internal == TRUE )
+      printk( "ERROR==> Fatal Extension is internal set to TRUE expected FALSE\n" );
+    else
+      printk( "ERROR==> Fatal Extension is internal set to FALSE expected TRUE\n" );
+  }
+  
+  if ( error !=  FATAL_ERROR_EXPECTED_ERROR ) {
+    printk( "ERROR==> Fatal Error Expected (");
+    Put_Error( source, FATAL_ERROR_EXPECTED_ERROR );
+    printk( ") received (");
+    Put_Error( source, error );
+    printk( ")\n" );
+  }
+
+  /* return and let the CPU halt */
+}
+
diff --git a/testsuites/psxtests/psxfatal_support/system.h b/testsuites/psxtests/psxfatal_support/system.h
new file mode 100644
index 0000000000..551632a79f
--- /dev/null
+++ b/testsuites/psxtests/psxfatal_support/system.h
@@ -0,0 +1,72 @@
+/*  system.h
+ *
+ *  This include file contains information that is included in every
+ *  function in the test set.
+ *
+ *  COPYRIGHT (c) 1989-1999.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+/*
+ *  Some of the fatal error cases require the ability to peek inside RTEMS
+ */
+#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
+#include <rtems.h>
+#include <tmacros.h>
+
+/* functions */
+
+void *POSIX_Init(
+  void *argument
+);
+
+rtems_extension Fatal_extension(
+  uint32_t   source,
+  boolean    is_internal,
+  uint32_t   error
+);
+
+/* need prototypes */
+
+#include "testcase.h"
+
+/* configuration information */
+
+extern rtems_extensions_table initial_extensions;
+
+#define CONFIGURE_INITIAL_EXTENSIONS \
+  { \
+    NULL,                    /* create  */ \
+    NULL,                    /* start   */ \
+    NULL,                    /* restart */ \
+    NULL,                    /* delete  */ \
+    NULL,                    /* switch  */ \
+    NULL,                    /* begin   */ \
+    NULL,                    /* exitted */ \
+    Fatal_extension          /* fatal   */ \
+  }
+
+/* extra parameters may be in testcase.h */
+#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
+#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
+
+/* always need an Init task, some cases need more tasks */
+#ifndef SPFATAL_TEST_CASE_EXTRA_THREADS
+#define SPFATAL_TEST_CASE_EXTRA_THREADS 0
+#endif
+#define CONFIGURE_MAXIMUM_POSIX_THREADS \
+  (SPFATAL_TEST_CASE_EXTRA_THREADS + 1)
+
+#define CONFIGURE_POSIX_INIT_THREAD_TABLE
+
+#include <rtems/confdefs.h>
+
+/* global variables */
+
+/* end of include file */