diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-05-08 02:05:51 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-05-08 02:05:51 +0000 |
commit | c14c2f0baf9cf9654c43ee00e7b85cdabaa16f7c (patch) | |
tree | edf727138c1e00afeccc39305ddc9bbb7026e71c | |
parent | 2009-05-07 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | rtems-c14c2f0baf9cf9654c43ee00e7b85cdabaa16f7c.tar.bz2 |
2009-05-07 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile.am, configure.ac: Add initial test of _Objects_Get_next.
* spobjgetnext/.cvsignore, spobjgetnext/Makefile.am,
spobjgetnext/init.c, spobjgetnext/spobjgetnext.scn,
spobjgetnext/system.h: New files.
-rw-r--r-- | testsuites/sptests/ChangeLog | 7 | ||||
-rw-r--r-- | testsuites/sptests/Makefile.am | 2 | ||||
-rw-r--r-- | testsuites/sptests/configure.ac | 1 | ||||
-rw-r--r-- | testsuites/sptests/spobjgetnext/.cvsignore | 2 | ||||
-rw-r--r-- | testsuites/sptests/spobjgetnext/Makefile.am | 27 | ||||
-rw-r--r-- | testsuites/sptests/spobjgetnext/init.c | 83 | ||||
-rw-r--r-- | testsuites/sptests/spobjgetnext/spobjgetnext.scn | 0 | ||||
-rw-r--r-- | testsuites/sptests/spobjgetnext/system.h | 33 |
8 files changed, 154 insertions, 1 deletions
diff --git a/testsuites/sptests/ChangeLog b/testsuites/sptests/ChangeLog index 5e17e3cf5b..c010607daf 100644 --- a/testsuites/sptests/ChangeLog +++ b/testsuites/sptests/ChangeLog @@ -1,3 +1,10 @@ +2009-05-07 Joel Sherrill <joel.sherrill@oarcorp.com> + + * Makefile.am, configure.ac: Add initial test of _Objects_Get_next. + * spobjgetnext/.cvsignore, spobjgetnext/Makefile.am, + spobjgetnext/init.c, spobjgetnext/spobjgetnext.scn, + spobjgetnext/system.h: New files. + 2009-05-04 Joel Sherrill <joel.sherrill@oarcorp.com> * sp25/init.c, sp25/system.h, sp25/task1.c: Reduce size of array from diff --git a/testsuites/sptests/Makefile.am b/testsuites/sptests/Makefile.am index be54ecf62b..cc32a3ec65 100644 --- a/testsuites/sptests/Makefile.am +++ b/testsuites/sptests/Makefile.am @@ -9,7 +9,7 @@ SUBDIRS = sp01 sp02 sp03 sp04 sp05 sp06 sp07 sp08 sp09 sp11 sp12 sp13 sp14 \ sp15 sp16 sp17 sp19 sp20 sp21 sp22 sp23 sp24 sp25 sp26 sp27 sp28 sp29 \ sp30 sp31 sp32 sp33 sp34 sp35 sp37 sp38 sp39 sp40 sp41 sp42 sp43 sp44 \ sp45 sp46 sp47 sp48 spsize spwatchdog spfatal01 spfatal02 spfatal03 \ - spfatal04 spfatal05 spfatal06 spfatal07 spfatal08 spfatal09 + spfatal04 spfatal05 spfatal06 spfatal07 spfatal08 spfatal09 spobjgetnext DIST_SUBDIRS = $(SUBDIRS) spfatal spfatal_support EXTRA_DIST = spfatal_support/init.c spfatal_support/system.h diff --git a/testsuites/sptests/configure.ac b/testsuites/sptests/configure.ac index e518a73553..b13885d10d 100644 --- a/testsuites/sptests/configure.ac +++ b/testsuites/sptests/configure.ac @@ -85,5 +85,6 @@ spfatal06/Makefile spfatal07/Makefile spfatal08/Makefile spfatal09/Makefile +spobjgetnext/Makefile ]) AC_OUTPUT diff --git a/testsuites/sptests/spobjgetnext/.cvsignore b/testsuites/sptests/spobjgetnext/.cvsignore new file mode 100644 index 0000000000..282522db03 --- /dev/null +++ b/testsuites/sptests/spobjgetnext/.cvsignore @@ -0,0 +1,2 @@ +Makefile +Makefile.in diff --git a/testsuites/sptests/spobjgetnext/Makefile.am b/testsuites/sptests/spobjgetnext/Makefile.am new file mode 100644 index 0000000000..a0d67ef310 --- /dev/null +++ b/testsuites/sptests/spobjgetnext/Makefile.am @@ -0,0 +1,27 @@ +## +## $Id$ +## + +MANAGERS = all + +rtems_tests_PROGRAMS = spobjgetnext +spobjgetnext_SOURCES = init.c system.h + +dist_rtems_tests_DATA = spobjgetnext.scn + +include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg +include $(top_srcdir)/../automake/compile.am +include $(top_srcdir)/../automake/leaf.am + +spobjgetnext_LDADD = $(MANAGERS_NOT_WANTED:%=$(PROJECT_LIB)/no-%.rel) + +AM_CPPFLAGS += -I$(top_srcdir)/../support/include + +LINK_OBJS = $(spobjgetnext_OBJECTS) $(spobjgetnext_LDADD) +LINK_LIBS = $(spobjgetnext_LDLIBS) + +spobjgetnext$(EXEEXT): $(spobjgetnext_OBJECTS) $(spobjgetnext_DEPENDENCIES) + @rm -f spobjgetnext$(EXEEXT) + $(make-exe) + +include $(top_srcdir)/../automake/local.am diff --git a/testsuites/sptests/spobjgetnext/init.c b/testsuites/sptests/spobjgetnext/init.c new file mode 100644 index 0000000000..5058a69fff --- /dev/null +++ b/testsuites/sptests/spobjgetnext/init.c @@ -0,0 +1,83 @@ +/* + * Exercise SuperCore Object Get Next + * + * 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. + * + * $Id$ + */ + +#define CONFIGURE_INIT +#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__ 1 +#include "system.h" + +#define MAX_SCAN 10 +int scan_objects( + Objects_Information *information, + Objects_Id start +) +{ + Objects_Control *o[MAX_SCAN]; + int i; + Objects_Locations location; + Objects_Id id; + + memset( o, 1, sizeof(o) ); + + id = start; + for (i=0 ; i<MAX_SCAN ; i++ ) { + o[i] = _Objects_Get_next( + information, + id, + &location, + &id + ); + if ( !o[i] ) + break; + if ( location == OBJECTS_ERROR ) + break; + /* XXX check dispatch level with macros */ + + _Thread_Enable_dispatch(); + + /* XXX should be able to check that next Id is not one we have seen */ + } + return i; +} + +rtems_task Init( + rtems_task_argument argument +) +{ + rtems_status_code status; + rtems_id main_task; + int count; + + puts( "\n\n*** TEST OBJECT GET NEXT ***" ); + + main_task = rtems_task_self(); + + /* XXX push the three NULL error cases */ + + /* simple case of only all tasks in the system, starting at initial */ + count = scan_objects( &_RTEMS_tasks_Information, OBJECTS_ID_INITIAL_INDEX ); + printf( "%d RTEMS Task%s\n", count, ((count == 1) ? "" : "s") ); + assert( count == 1 ); + + /* simple case of only 1 task in the system, starting at that task */ + count = scan_objects( &_RTEMS_tasks_Information, main_task ); + printf( "%d RTEMS Task%s\n", count, ((count == 1) ? "" : "s") ); + assert( count == 1 ); + + /* XXX create >= 1 task and make sure the counts are correct when */ + /* XXX you start the search at initial, first id, arbitrary id */ + + /* XXX try with a manager with no objects created */ + + puts( "*** END OF TEST OBJECT GET NEXT ***" ); + rtems_test_exit( 0 ); +} diff --git a/testsuites/sptests/spobjgetnext/spobjgetnext.scn b/testsuites/sptests/spobjgetnext/spobjgetnext.scn new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/testsuites/sptests/spobjgetnext/spobjgetnext.scn diff --git a/testsuites/sptests/spobjgetnext/system.h b/testsuites/sptests/spobjgetnext/system.h new file mode 100644 index 0000000000..b0e70f9883 --- /dev/null +++ b/testsuites/sptests/spobjgetnext/system.h @@ -0,0 +1,33 @@ +/* + * 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. + * + * $Id$ + */ + +#include <tmacros.h> + +/* functions */ + +rtems_task Init( + rtems_task_argument argument +); + +/* configuration information */ + +#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER +#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER + +#define CONFIGURE_RTEMS_INIT_TASKS_TABLE + +#define CONFIGURE_MAXIMUM_TASKS 2 +#define CONFIGURE_MAXIMUM_TIMERS 1 +#define CONFIGURE_MAXIMUM_SEMAPHORES 1 + +#include <rtems/confdefs.h> + +/* end of include file */ |