summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/sptests
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/sptests')
-rw-r--r--c/src/ada-tests/sptests/sp07/ada_sp07.scn9
-rw-r--r--c/src/ada-tests/sptests/sp07/sptest.adb46
-rw-r--r--c/src/ada-tests/sptests/sp09/ada_sp09.scn4
-rw-r--r--c/src/ada-tests/sptests/sp09/sptest.adb65
4 files changed, 0 insertions, 124 deletions
diff --git a/c/src/ada-tests/sptests/sp07/ada_sp07.scn b/c/src/ada-tests/sptests/sp07/ada_sp07.scn
index b048411960..9748dda74c 100644
--- a/c/src/ada-tests/sptests/sp07/ada_sp07.scn
+++ b/c/src/ada-tests/sptests/sp07/ada_sp07.scn
@@ -8,20 +8,11 @@ TASKS_START - TA2 - started.
TASKS_START - TA3 - started.
TASKS_START - TA4 - started.
TASKS_RESTART - TA3 - restarted.
-INIT - task_set_note - set TA1's NOTEPAD_8 to TA1's initial priority: 4
-INIT - task_set_note - set TA2's NOTEPAD_8 to TA2's initial priority: 4
<pause>
TA1 - task_set_priority - get initial priority of self: 4
-TA1 - task_get_note - get NOTEPAD_8 - current priority: 4
-TA1 - task_set_note - set TA2's NOTEPAD_8: 3
TA1 - task_set_priority - set TA2's priority: 3
-TA2 - task_get_note - get NOTEPAD_8 - current priority: 3
-TA2 - task_set_note - set TA1's NOTEPAD_8: 2
TA2 - task_set_priority - set TA1's priority: 2
-TA1 - task_get_note - get NOTEPAD_8 - current priority: 2
-TA1 - task_set_note - set TA2's NOTEPAD_8: 1
TA1 - task_set_priority - set TA2's priority: 1
-TA2 - task_get_note - get NOTEPAD_8 - current priority: 1
TA2 - task_suspend - suspend TA1
TA2 - task_set_priority - set priority of TA1 ( blocked )
TASKS_DELETE - TA2 deleting TA1
diff --git a/c/src/ada-tests/sptests/sp07/sptest.adb b/c/src/ada-tests/sptests/sp07/sptest.adb
index 300ad90d50..d55aa73bf8 100644
--- a/c/src/ada-tests/sptests/sp07/sptest.adb
+++ b/c/src/ada-tests/sptests/sp07/sptest.adb
@@ -229,16 +229,6 @@ package body SPTEST is
Flush_Task_Event_Log;
- RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA1" );
- TEXT_IO.PUT( "INIT - task_set_note - set TA1's NOTEPAD_8" );
- TEXT_IO.PUT_LINE( " to TA1's initial priority: 4" );
-
- RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 2 ), 8, 4, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA2" );
- TEXT_IO.PUT( "INIT - task_set_note - set TA2's NOTEPAD_8" );
- TEXT_IO.PUT_LINE( " to TA2's initial priority: 4" );
-
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
@@ -273,13 +263,6 @@ package body SPTEST is
loop
- RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
- TEXT_IO.PUT( "TA1 - task_get_note - ");
- TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
- UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
- TEXT_IO.NEW_LINE;
-
THE_PRIORITY := THE_PRIORITY - 1;
if THE_PRIORITY = 0 then
@@ -305,17 +288,6 @@ package body SPTEST is
end if;
- TEXT_IO.PUT( "TA1 - task_set_note - set TA2's NOTEPAD_8: " );
- UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
- TEXT_IO.NEW_LINE;
- RTEMS.TASKS.SET_NOTE(
- SPTEST.TASK_ID( 2 ),
- 8,
- THE_PRIORITY,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE" );
-
TEXT_IO.PUT("TA1 - task_set_priority - set TA2's priority: ");
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
TEXT_IO.NEW_LINE;
@@ -346,13 +318,6 @@ package body SPTEST is
loop
- RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
- TEXT_IO.PUT( "TA2 - task_get_note - ");
- TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
- UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
- TEXT_IO.NEW_LINE;
-
THE_PRIORITY := THE_PRIORITY - 1;
if THE_PRIORITY = 0 then
@@ -387,17 +352,6 @@ package body SPTEST is
else
- TEXT_IO.PUT( "TA2 - task_set_note - set TA1's NOTEPAD_8: " );
- UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
- TEXT_IO.NEW_LINE;
- RTEMS.TASKS.SET_NOTE(
- SPTEST.TASK_ID( 1 ),
- 8,
- THE_PRIORITY,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE" );
-
TEXT_IO.PUT( "TA2 - task_set_priority - ");
TEXT_IO.PUT( "set TA1's priority: ");
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2);
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,
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-09 11:58:52 +0000