diff options
Diffstat (limited to 'c/src/ada-tests/sptests/sp09')
-rw-r--r-- | c/src/ada-tests/sptests/sp09/ada_sp09.scn | 4 | ||||
-rw-r--r-- | c/src/ada-tests/sptests/sp09/sptest.adb | 65 |
2 files changed, 0 insertions, 69 deletions
diff --git a/c/src/ada-tests/sptests/sp09/ada_sp09.scn b/c/src/ada-tests/sptests/sp09/ada_sp09.scn index 8fb09cd35a..de199d7dd5 100644 --- a/c/src/ada-tests/sptests/sp09/ada_sp09.scn +++ b/c/src/ada-tests/sptests/sp09/ada_sp09.scn @@ -2,8 +2,6 @@ INIT - task_create - INVALID_PRIORITY INIT - task_restart - INCORRECT_STATE TA1 - task_delete - INVALID_ID -TA1 - task_get_note - INVALID_NUMBER -TA1 - task_get_note - INVALID_ID TA1 - task_ident - current task SUCCESSFUL TA1 - task_ident - global INVALID_NAME TA1 - task_ident - local INVALID_NAME @@ -13,8 +11,6 @@ TA1 - task_resume - INVALID_ID TA1 - task_resume - INCORRECT_STATE TA1 - task_set_priority - INVALID_PRIORITY TA1 - task_set_priority - INVALID_ID -TA1 - task_set_note - INVALID_NUMBER -TA1 - task_set_note - INVALID_ID TA1 - task_start - INVALID_ID TA1 - task_start - INCORRECT_STATE TA1 - task_suspend - INVALID_ID diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb index 5b3de76fd8..0eb96e8e3e 100644 --- a/c/src/ada-tests/sptests/sp09/sptest.adb +++ b/c/src/ada-tests/sptests/sp09/sptest.adb @@ -148,7 +148,6 @@ package body SPTEST is procedure SCREEN_1 is - NOTEPAD_VALUE : RTEMS.UNSIGNED32 := 0; SELF_ID : RTEMS.ID; PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY; STATUS : RTEMS.STATUS_CODES; @@ -162,38 +161,6 @@ package body SPTEST is ); TEXT_IO.PUT_LINE( "TA1 - task_delete - INVALID_ID" ); - begin - RTEMS.TASKS.GET_NOTE( RTEMS.SELF, - RTEMS.NOTEPAD_INDEX'LAST + 10, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_NUMBER, - "TASK_GET_NOTE WITH ILLEGAL NOTEPAD" - ); - TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_NUMBER" ); - exception - when others => - TEXT_IO.PUT_LINE( - "TA1 - task_get_note - INVALID_NUMBER -- constraint error" - ); - end; - - RTEMS.TASKS.GET_NOTE( - 100, - RTEMS.NOTEPAD_INDEX'LAST, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_ID, - "TASK_GET_NOTE WITH ILLEGAL ID" - ); - TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_ID" ); - RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, @@ -295,38 +262,6 @@ package body SPTEST is ); TEXT_IO.PUT_LINE( "TA1 - task_set_priority - INVALID_ID" ); - begin - RTEMS.TASKS.SET_NOTE( RTEMS.SELF, - RTEMS.NOTEPAD_INDEX'LAST + 10, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_NUMBER, - "TASK_SET_NOTE WITH ILLEGAL NOTEPAD" - ); - TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_NUMBER" ); - exception - when others => - TEXT_IO.PUT_LINE( - "TA1 - task_set_note - INVALID_NUMBER -- constraint error" - ); - end; - - RTEMS.TASKS.SET_NOTE( - 100, - RTEMS.NOTEPAD_INDEX'LAST, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_ID, - "TASK_SET_NOTE WITH ILLEGAL ID" - ); - TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_ID" ); - RTEMS.TASKS.START( 100, SPTEST.TASK_1'ACCESS, 0, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( STATUS, |