diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-06-08 21:05:20 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-06-08 21:05:20 +0000 |
commit | 25686a5718867760da4575234a7cbf33fa41bd8d (patch) | |
tree | 64f40a2a9ce0964bc1cfb54407efdc1070c82eb5 /testsuites/sptests/sp52 | |
parent | 2009-06-06 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | rtems-25686a5718867760da4575234a7cbf33fa41bd8d.tar.bz2 |
2009-06-08 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile.am, configure.ac: Add sp52 and sp53 based upon bug report
from Sergio Faustino <sergio.faustino@edisoft.pt> regarding moving
the time of day forward not making server based timers fire.
* sp52/.cvsignore, sp52/Makefile.am, sp52/init.c, sp52/sp52.doc,
sp52/sp52.scn, sp53/.cvsignore, sp53/Makefile.am, sp53/sp53.doc,
sp53/sp53.scn: New files.
Diffstat (limited to 'testsuites/sptests/sp52')
-rw-r--r-- | testsuites/sptests/sp52/.cvsignore | 2 | ||||
-rw-r--r-- | testsuites/sptests/sp52/Makefile.am | 28 | ||||
-rw-r--r-- | testsuites/sptests/sp52/init.c | 116 | ||||
-rw-r--r-- | testsuites/sptests/sp52/sp52.doc | 24 | ||||
-rw-r--r-- | testsuites/sptests/sp52/sp52.scn | 3 |
5 files changed, 173 insertions, 0 deletions
diff --git a/testsuites/sptests/sp52/.cvsignore b/testsuites/sptests/sp52/.cvsignore new file mode 100644 index 0000000000..282522db03 --- /dev/null +++ b/testsuites/sptests/sp52/.cvsignore @@ -0,0 +1,2 @@ +Makefile +Makefile.in diff --git a/testsuites/sptests/sp52/Makefile.am b/testsuites/sptests/sp52/Makefile.am new file mode 100644 index 0000000000..0a354d7cec --- /dev/null +++ b/testsuites/sptests/sp52/Makefile.am @@ -0,0 +1,28 @@ +## +## $Id$ +## + +MANAGERS = all + +rtems_tests_PROGRAMS = sp52 +sp52_SOURCES = init.c + +dist_rtems_tests_DATA = sp52.scn +dist_rtems_tests_DATA += sp52.doc + +include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg +include $(top_srcdir)/../automake/compile.am +include $(top_srcdir)/../automake/leaf.am + +sp52_LDADD = $(MANAGERS_NOT_WANTED:%=$(PROJECT_LIB)/no-%.rel) + +AM_CPPFLAGS += -I$(top_srcdir)/../support/include + +LINK_OBJS = $(sp52_OBJECTS) $(sp52_LDADD) +LINK_LIBS = $(sp52_LDLIBS) + +sp52$(EXEEXT): $(sp52_OBJECTS) $(sp52_DEPENDENCIES) + @rm -f sp52$(EXEEXT) + $(make-exe) + +include $(top_srcdir)/../automake/local.am diff --git a/testsuites/sptests/sp52/init.c b/testsuites/sptests/sp52/init.c new file mode 100644 index 0000000000..45a08798ff --- /dev/null +++ b/testsuites/sptests/sp52/init.c @@ -0,0 +1,116 @@ +/* + * Based upon test code posted on the RTEMS User's Mailing List + * by Sergio Faustino <sergio.faustino@edisoft.pt>: + * + * http://www.rtems.org/pipermail/rtems-users/2009-June/005540.html + * + * The license and distribution terms for this file may be + * found in the file LICENSE in this distribution or at + * http://www.rtems.com/license/LICENSE. + * + * $Id$ + */ + +#if defined(USE_TIMER_SERVER) + #define TEST_NUMBER "53" + #define TSR_MODE "Server" + #define FIRE_WHEN rtems_timer_server_fire_when + #define FIRE_WHEN_STRING "rtems_timer_server_fire_when" +#else + #define TEST_NUMBER "52" + #define TSR_MODE "Interrupt" + #define FIRE_WHEN rtems_timer_fire_when + #define FIRE_WHEN_STRING "rtems_timer_fire_when" +#endif + +#include <tmacros.h> + +#define INITIAL_SECOND 10 +volatile bool _timer_passage = FALSE; + +/*timer Routine*/ +rtems_timer_service_routine TIMER_service_routine( + rtems_id ignored_id, + void *user_data +) +{ + _timer_passage = TRUE; +} + +rtems_task Init( + rtems_task_argument argument +) +{ + rtems_status_code status; + rtems_id timer_id; + rtems_name timer_name; + + rtems_time_of_day global_time; + rtems_time_of_day time_to_fire; + + puts( "\n\n*** TEST " TEST_NUMBER " ***" ); + + /* build timer name*/ + timer_name = rtems_build_name('T', 'M', '1', ' '); + + /* create Timer */ + status = rtems_timer_create(timer_name, &timer_id); + directive_failed( status, "rtems_timer_create" ); + + #if defined(USE_TIMER_SERVER) + /* initiate timer server */ + status = rtems_timer_initiate_server( + RTEMS_MINIMUM_PRIORITY, + RTEMS_MINIMUM_STACK_SIZE, + RTEMS_DEFAULT_ATTRIBUTES + ); + directive_failed( status, "rtems_timer_initiate_server" ); + #endif + + /* Set system clock */ + build_time(&global_time, 6, 8, 2009, 16, 5, INITIAL_SECOND, 0); + status = rtems_clock_set(&global_time); + directive_failed( status, "rtems_clock_set" ); + + /* Set Timer to Fire */ + /* build fire times */ + time_to_fire = global_time; + + /* only diferent second */ + time_to_fire.second = INITIAL_SECOND + 5; + + status = FIRE_WHEN( + timer_id, + &time_to_fire, + TIMER_service_routine, + (void*) NULL + ); + directive_failed( status, FIRE_WHEN_STRING ); + + /* Set system clock FORWARD */ + global_time.second = INITIAL_SECOND + 10; + status = rtems_clock_set(&global_time); + + if (!_timer_passage) { + puts( TSR_MODE " Timer FAILED to fire after setting time forward"); + rtems_test_exit(0); + } + + puts( TSR_MODE " Timer fired after setting time forward -- OK"); + + puts( "*** END OF TEST " TEST_NUMBER " ***" ); + rtems_test_exit(0); +} + +/* configuration stuff */ + +#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER +#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER + +#define CONFIGURE_MAXIMUM_TASKS 2 +#define CONFIGURE_MAXIMUM_TIMERS 1 + +#define CONFIGURE_RTEMS_INIT_TASKS_TABLE + +#define CONFIGURE_INIT +#include <rtems/confdefs.h> diff --git a/testsuites/sptests/sp52/sp52.doc b/testsuites/sptests/sp52/sp52.doc new file mode 100644 index 0000000000..1bb9e3d8aa --- /dev/null +++ b/testsuites/sptests/sp52/sp52.doc @@ -0,0 +1,24 @@ +# +# $Id$ +# +# COPYRIGHT (c) 1989-2009. +# On-Line Applications Research Corporation (OAR). +# +# The license and distribution terms for this file may be +# found in the file LICENSE in this distribution or at +# http://www.rtems.com/license/LICENSE. +# + +This file describes the directives and concepts tested by this test set. + +test set name: sp52 + +directives: + + rtems_timer_fire_after + rtems_clock_set + +concepts: + ++ Ensure that setting the time of day forward fires any interrupt based + TSRs that should be fire. diff --git a/testsuites/sptests/sp52/sp52.scn b/testsuites/sptests/sp52/sp52.scn new file mode 100644 index 0000000000..19bec5ae7a --- /dev/null +++ b/testsuites/sptests/sp52/sp52.scn @@ -0,0 +1,3 @@ +*** TEST 52 *** +Interrupt Timer fired after setting time forward -- OK +*** END OF TEST 52 *** |