diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-12-13 21:45:23 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-12-13 21:45:23 +0000 |
commit | 9c691efcf40135d1b875515b25108f8cf4ed8ee7 (patch) | |
tree | 1551d8e41fcf872916d2452681fc384128e299d3 /testsuites/sptests/sp07 | |
parent | 2007-12-13 Joel Sherrill <joel.sherrill@OARcorp.com> (diff) | |
download | rtems-9c691efcf40135d1b875515b25108f8cf4ed8ee7.tar.bz2 |
2007-12-13 Joel Sherrill <joel.sherrill@OARcorp.com>
* sp07/init.c, sp07/sp07.scn, sp07/task1.c: Add tests for
using notepad with the current task's ID or SELF
* sp09/screen02.c, sp09/screen04.c, sp09/sp09.scn: Add
test missing test cases for clock_get.
Diffstat (limited to 'testsuites/sptests/sp07')
-rw-r--r-- | testsuites/sptests/sp07/init.c | 7 | ||||
-rw-r--r-- | testsuites/sptests/sp07/sp07.scn | 9 | ||||
-rw-r--r-- | testsuites/sptests/sp07/task1.c | 6 |
3 files changed, 16 insertions, 6 deletions
diff --git a/testsuites/sptests/sp07/init.c b/testsuites/sptests/sp07/init.c index 4913d07558..5339a196fe 100644 --- a/testsuites/sptests/sp07/init.c +++ b/testsuites/sptests/sp07/init.c @@ -11,7 +11,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 @@ -116,6 +116,11 @@ rtems_task Init( buffered_io_flush(); + status = rtems_task_set_note( RTEMS_SELF, RTEMS_NOTEPAD_4, 32 ); + directive_failed( status, "task_set_node of Self" ); + printf( "INIT - rtems_task_set_note - set my RTEMS_NOTEPAD_4 " ); + puts ( "to TA1's priority: 04" ); + status = rtems_task_set_note( Task_id[ 1 ], RTEMS_NOTEPAD_8, 4 ); directive_failed( status, "task_set_node of TA1" ); printf( "INIT - rtems_task_set_note - set TA1's RTEMS_NOTEPAD_8 " ); diff --git a/testsuites/sptests/sp07/sp07.scn b/testsuites/sptests/sp07/sp07.scn index 015f72cbb6..1b6ec9e3b6 100644 --- a/testsuites/sptests/sp07/sp07.scn +++ b/testsuites/sptests/sp07/sp07.scn @@ -8,6 +8,7 @@ TASK_START - TA2 - started TASK_START - TA3 - started TASK_START - TA4 - started TASK_RESTART - TA3 - restarted +INIT - rtems_task_set_note - set my RTEMS_NOTEPAD_4 to TA1's priority: 04 INIT - rtems_task_set_note - set TA1's RTEMS_NOTEPAD_8 to TA1's priority: 04 INIT - rtems_task_set_note - set TA2's RTEMS_NOTEPAD_8 to TA2's priority: 04 <pause> @@ -24,9 +25,9 @@ TA1 - rtems_task_set_priority - set TA2's priority: 01 TA2 - rtems_task_get_note - get RTEMS_NOTEPAD_8 - current priority: 01 TA2 - rtems_task_suspend - suspend TA1 TA2 - rtems_task_set_priority - set priority of TA1 ( blocked ) -TASK_DELETE - TA2 TASK_DELETEdeleting - TA1 -TASK_DELETE - TA2 TASK_DELETEdeleting - TA3 -TASK_DELETE - TA2 TASK_DELETEdeleting - TA2 +TASK_DELETE - TA2 TASK_DELETEdeleting - TA1 +TASK_DELETE - TA2 TASK_DELETEdeleting - TA3 +TASK_DELETE - TA2 TASK_DELETEdeleting - TA2 TA4 - exitting task -RTEMS_TASK_EXITTED - extension invoked for TA4 +RTEMS_TASK_EXITTED - extension invoked for TA4 *** END OF TEST 7 *** diff --git a/testsuites/sptests/sp07/task1.c b/testsuites/sptests/sp07/task1.c index e5c0a950dd..651e63b4e0 100644 --- a/testsuites/sptests/sp07/task1.c +++ b/testsuites/sptests/sp07/task1.c @@ -27,6 +27,10 @@ rtems_task Task_1( rtems_status_code status; rtems_task_priority the_priority; rtems_task_priority previous_priority; + rtems_id my_id; + + /* XXX really need a Classic API service for this */ + my_id = _Thread_Executing->Object.id; rtems_test_pause(); @@ -42,7 +46,7 @@ rtems_task Task_1( ); while( FOREVER ) { - status = rtems_task_get_note( _Thread_Executing->Object.id, RTEMS_NOTEPAD_8, &the_priority ); + status = rtems_task_get_note( my_id, RTEMS_NOTEPAD_8, &the_priority ); directive_failed( status, "rtems_task_get_note" ); printf( "TA1 - rtems_task_get_note - get RTEMS_NOTEPAD_8 - current priority: %02d\n", |