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

* spprintk/init.c, spprintk/spprintk.doc, spprintk/spprintk.scn: Clean
	up and add test of getchark().

testsuites/sptests/ChangeLog

@@ -1,3 +1,8 @@
+2010-07-14	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* spprintk/init.c, spprintk/spprintk.doc, spprintk/spprintk.scn: Clean
+	up and add test of getchark().
+
 2010-07-14	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* spfatal21/Makefile.am: Fix typo.

testsuites/sptests/spprintk/init.c

@@ -1,7 +1,7 @@
 /*
- *  Exercise Printk
+ *  Exercise putk, printk, and getchark
  *
- *  COPYRIGHT (c) 1989-2009.
+ *  COPYRIGHT (c) 1989-2010.
  *  On-Line Applications Research Corporation (OAR).
  *
  *  The license and distribution terms for this file may be
@@ -12,15 +12,41 @@
  */
 
 #include <tmacros.h>
+#include <rtems/bspIo.h>
 
-rtems_task Init(
+int test_getchar(void)
-  rtems_task_argument argument
-)
 {
-  printk( "\n\n*** TEST PRINTK ***\n" );
+  return 0x35;
+}
 
-  putk( "This is a test of putk\n" );
+void do_getchark(void)
+{
+  int                                sc;
+  BSP_polling_getchar_function_type  poll_char;
 
+  poll_char = BSP_poll_char;
+
+  BSP_poll_char = NULL;
+  
+  putk( "getchark - NULL getchar method - return -1" );
+  sc = getchark();
+  rtems_test_assert( sc == -1 );
+
+  putk( "getchark - test getchar method - returns 0x35" );
+  BSP_poll_char = test_getchar;
+  sc = getchark();
+  rtems_test_assert( sc == 0x35 );
+
+  BSP_poll_char = poll_char;
+}
+
+void do_putk(void)
+{
+  putk( "This is a test of putk" );
+}
+
+void do_printk(void)
+{
   printk( "bad format -- %%q in parentheses (%q)\n" );
 
   printk( "bad format -- %%lq in parentheses (%lq)\n", 0x1234 );
@@ -52,7 +78,21 @@ rtems_task Init(
   printk( "%%-12s of joel -- (%-20s)\n", "joel" );
   printk( "%%-4s of joel -- (%-4s)\n", "joel" );
   printk( "%%c of X -- (%c)\n", 'X' );
+}
 
+rtems_task Init(
+  rtems_task_argument argument
+)
+{
+  printk( "\n\n*** TEST PRINTK ***\n" );
+
+  do_putk();
+  putk("");
+
+  do_printk();
+  putk("");
+
+  do_getchark();
 
   printk( "*** END OF TEST PRINTK ***\n" );
   rtems_test_exit( 0 );

testsuites/sptests/spprintk/spprintk.doc

@@ -15,8 +15,14 @@ test set name:  spprintk
 
 directives:
 
+  putk
   printk
+  getchark
 
 concepts:
 
++ Ensure that putk() is fully exercised and operates as expected.
+
 + Ensure that printk() is fully exercised and operates as expected.
+
++ Ensure that getchark() is fully exercised and operates as expected.

testsuites/sptests/spprintk/spprintk.scn

@@ -1,6 +1,3 @@
-sparc-rtems4.10-run is /opt/rtems-4.10/bin/sparc-rtems4.10-run
-
-
 *** TEST PRINTK ***
 This is a test of putk
 
@@ -28,4 +25,7 @@ bad format -- %lq in parentheses (q)
 %-12s of joel -- (joel                )
 %-4s of joel -- (joel)
 %c of X -- (X)
+
+getchark - NULL getchar method - return -1
+getchark - test getchar method - returns 0x35
 *** END OF TEST PRINTK ***