[rtems commit] ada/sp09: The year 2100 cannot be set

[Sebastian Huber]

Module:    rtems
Branch:    master
Commit:    d4c21e516a1aee288fbefb79f9eba49be65517b7
Changeset: http://git.rtems.org/rtems/commit/?id=d4c21e516a1aee288fbefb79f9eba49be65517b7

Author:    Sebastian Huber <sebastian.huber at embedded-brains.de>
Date:      Wed Jul 20 09:42:17 2022 +0200

ada/sp09: The year 2100 cannot be set

Update #4338.

---

 testsuites/ada/sptests/sp09/sptest.adb | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/testsuites/ada/sptests/sp09/sptest.adb b/testsuites/ada/sptests/sp09/sptest.adb
index 946829a2c1..fa6aafb349 100644
--- a/testsuites/ada/sptests/sp09/sptest.adb
+++ b/testsuites/ada/sptests/sp09/sptest.adb
@@ -2595,21 +2595,15 @@ package body SPTEST is
 
       TIME := ( 2100, 12, 31, 23, 59, 59, 0 );
       RTEMS.CLOCK.SET( TIME, STATUS );
-      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET SUCCESSFUL" );
-      TEST_SUPPORT.PRINT_TIME(
-         "TA1 - clock_set - ",
-         TIME,
-         " - SUCCESSFUL"
+      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
+         STATUS,
+         RTEMS.INVALID_CLOCK,
+         "CLOCK_SET WITH INVALID YEAR"
       );
-      TEXT_IO.NEW_LINE;
-      RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
-      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
-      RTEMS.CLOCK.GET_TOD( TIME, STATUS );
-      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET_TOD" );
       TEST_SUPPORT.PRINT_TIME(
-         "TA1 - clock_get - ",
+         "TA1 - clock_set - ",
          TIME,
-         " - SUCCESSFUL"
+         " - INVALID_CLOCK"
       );
       TEXT_IO.NEW_LINE;