diff options
Diffstat (limited to 'testsuites/ada/sptests/sp09/sptest.adb')
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.adb | 18 |
1 files 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; |