Mercurial > ecos
annotate packages/compat/uitron/current/tests/testcx3.cxx @ 64:c38311975d4f ecos-sw-2000-01-28
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
| author | jlarmour |
|---|---|
| date | Fri, 28 Jan 2000 04:59:39 +0000 |
| parents | 443894e2e912 |
| children | bf00f99aec69 |
| rev | line source |
|---|---|
| 0 | 1 //=========================================================================== |
| 2 // | |
| 2 | 3 // testcx3.cxx |
| 0 | 4 // |
| 2 | 5 // uITRON "C++" test program three |
| 0 | 6 // |
| 7 //=========================================================================== | |
| 8 //####COPYRIGHTBEGIN#### | |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
9 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
10 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
11 // The contents of this file are subject to the Red Hat eCos Public License |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
12 // Version 1.0 (the "License"); you may not use this file except in |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
13 // compliance with the License. You may obtain a copy of the License at |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
14 // http://sourceware.cygnus.com/ecos |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
15 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
16 // Software distributed under the License is distributed on an |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
18 // License for the specific language governing rights and limitations under |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
19 // the License. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
20 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
21 // The Original Code is eCos - Embedded Configurable Operating System, |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
22 // released September 30, 1998. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
23 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
24 // The Initial Developer of the Original Code is Red Hat. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
25 // Portions created by Red Hat are |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
27 // All Rights Reserved. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
28 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
29 // |
| 0 | 30 //####COPYRIGHTEND#### |
| 31 //=========================================================================== | |
| 32 //#####DESCRIPTIONBEGIN#### | |
| 33 // | |
| 2 | 34 // Author(s): hmt |
| 35 // Contributors: hmt | |
| 36 // Date: 1998-03-13 | |
| 37 // Purpose: uITRON API testing | |
| 38 // Description: | |
| 0 | 39 // |
| 40 //####DESCRIPTIONEND#### | |
| 41 // | |
| 42 //=========================================================================== | |
| 43 | |
| 44 #include <pkgconf/uitron.h> // uITRON setup CYGNUM_UITRON_SEMAS | |
| 45 // CYGPKG_UITRON et al | |
| 46 #include <cyg/infra/testcase.h> // testing infrastructure | |
| 47 | |
| 48 #ifdef CYGPKG_UITRON // we DO want the uITRON package | |
| 49 | |
| 50 #ifdef CYGSEM_KERNEL_SCHED_MLQUEUE // we DO want prioritized threads | |
| 51 | |
| 52 #ifdef CYGFUN_KERNEL_THREADS_TIMER // we DO want timout-able calls | |
| 53 | |
| 54 #ifdef CYGVAR_KERNEL_COUNTERS_CLOCK // we DO want the realtime clock | |
| 55 | |
| 56 // we're OK if it's C++ or neither of those two is defined: | |
| 57 #if defined( __cplusplus ) || \ | |
| 58 (!defined( CYGIMP_UITRON_INLINE_FUNCS ) && \ | |
| 59 !defined( CYGIMP_UITRON_CPP_OUTLINE_FUNCS) ) | |
| 60 | |
| 61 // =================== TEST CONFIGURATION =================== | |
| 62 #if \ | |
| 63 /* test configuration for enough tasks */ \ | |
| 64 (CYGNUM_UITRON_TASKS >= 4) && \ | |
| 65 (CYGNUM_UITRON_TASKS < 90) && \ | |
| 66 (CYGNUM_UITRON_START_TASKS == 1) && \ | |
| 67 ( !defined(CYGPKG_UITRON_TASKS_CREATE_DELETE) || \ | |
| 68 CYGNUM_UITRON_TASKS_INITIALLY >= 4 ) && \ | |
| 69 \ | |
| 70 /* test configuration for enough semaphores */ \ | |
| 71 defined( CYGPKG_UITRON_SEMAS ) && \ | |
| 72 (CYGNUM_UITRON_SEMAS >= 3) && \ | |
| 73 (CYGNUM_UITRON_SEMAS < 90) && \ | |
| 74 ( !defined(CYGPKG_UITRON_SEMAS_CREATE_DELETE) || \ | |
| 75 CYGNUM_UITRON_SEMAS_INITIALLY >= 3 ) && \ | |
| 76 \ | |
| 77 /* the end of the large #if statement */ \ | |
| 78 1 | |
| 79 | |
| 80 // ============================ END ============================ | |
| 81 | |
| 82 | |
| 83 | |
| 84 #include <cyg/compat/uitron/uit_func.h> // uITRON | |
| 85 | |
| 86 int t2done = 0; | |
| 87 int t3done = 0; | |
| 88 int t4done = 0; | |
| 89 | |
| 90 externC void | |
| 91 cyg_package_start( void ) | |
| 92 { | |
| 93 CYG_TEST_INIT(); | |
| 94 CYG_TEST_INFO( "Calling cyg_uitron_start()" ); | |
| 95 cyg_uitron_start(); | |
| 96 } | |
| 97 | |
| 98 extern "C" { | |
| 99 void task1( unsigned int arg ); | |
| 100 void task2( unsigned int arg ); | |
| 101 void task3( unsigned int arg ); | |
| 102 void task4( unsigned int arg ); | |
| 103 } | |
| 104 | |
| 105 void task1( unsigned int arg ) | |
| 106 { | |
| 107 ER ercd; | |
| 108 INT scratch; | |
| 109 | |
| 110 CYG_TEST_INFO( "Task 1 running" ); | |
| 111 ercd = get_tid( &scratch ); | |
| 112 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 113 CYG_TEST_CHECK( 1 == scratch, "tid not 1" ); | |
| 114 | |
| 115 // start lower prio tasks to interact with | |
| 116 ercd = sta_tsk( 2, 222 ); | |
| 117 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 118 ercd = sta_tsk( 3, 333 ); | |
| 119 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 120 ercd = sta_tsk( 4, 444 ); | |
| 121 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 122 | |
| 123 // now start the test | |
| 124 ercd = slp_tsk(); | |
| 125 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 126 CYG_TEST_INFO( "T1 awoken" ); | |
| 127 ercd = wai_sem( 1 ); | |
| 128 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" ); | |
| 129 CYG_TEST_INFO( "T1 signalled" ); | |
| 130 | |
| 131 // let the others complete, so we get the status back | |
| 132 ercd = dly_tsk( 50 ); | |
| 133 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 134 | |
| 135 CYG_TEST_CHECK( t2done, "t2 not done" ); | |
| 136 CYG_TEST_CHECK( t3done, "t3 not done" ); | |
| 137 CYG_TEST_CHECK( t4done, "t4 not done" ); | |
| 138 | |
| 139 CYG_TEST_PASS( "Immediate-dispatch producer/consumer test OK" ); | |
| 140 | |
| 141 // all done | |
| 142 CYG_TEST_EXIT( "All done" ); | |
| 143 ext_tsk(); | |
| 144 } | |
| 145 | |
| 146 | |
| 147 | |
| 148 void task2( unsigned int arg ) | |
| 149 { | |
| 150 ER ercd; | |
| 151 INT scratch; | |
| 152 | |
| 153 CYG_TEST_INFO( "Task 2 running" ); | |
| 154 ercd = get_tid( &scratch ); | |
| 155 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 156 CYG_TEST_CHECK( 2 == scratch, "tid not 2" ); | |
| 157 if ( 222 != arg ) | |
| 158 CYG_TEST_FAIL( "Task 2 arg not 222" ); | |
| 159 | |
| 160 // now start the test | |
| 161 ercd = slp_tsk(); | |
| 162 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 163 CYG_TEST_INFO( "T2 awoken" ); | |
| 164 ercd = sig_sem( 1 ); | |
| 165 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" ); | |
| 166 ercd = wup_tsk( 1 ); | |
| 167 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 168 | |
| 169 CYG_TEST_INFO( "T2 completing" ); | |
| 170 t2done++; | |
| 171 | |
| 172 ercd = slp_tsk(); | |
| 173 CYG_TEST_FAIL( "Task 2 sleep came back" ); | |
| 174 } | |
| 175 | |
| 176 void task3( unsigned int arg ) | |
| 177 { | |
| 178 ER ercd; | |
| 179 INT scratch; | |
| 180 | |
| 181 CYG_TEST_INFO( "Task 3 running" ); | |
| 182 ercd = get_tid( &scratch ); | |
| 183 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 184 CYG_TEST_CHECK( 3 == scratch, "tid not 3" ); | |
| 185 if ( 333 != arg ) | |
| 186 CYG_TEST_FAIL( "Task 3 arg not 333" ); | |
| 187 | |
| 188 // now start the test | |
| 189 ercd = wai_sem( 1 ); | |
| 190 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" ); | |
| 191 CYG_TEST_INFO( "T3 awoken" ); | |
| 192 ercd = sig_sem( 1 ); | |
| 193 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" ); | |
| 194 | |
| 195 CYG_TEST_INFO( "T3 completing" ); | |
| 196 t3done++; | |
| 197 | |
| 198 ercd = slp_tsk(); | |
| 199 CYG_TEST_FAIL( "Task 3 sleep came back" ); | |
| 200 } | |
| 201 | |
| 202 void task4( unsigned int arg ) | |
| 203 { | |
| 204 ER ercd; | |
| 205 INT scratch; | |
| 206 | |
| 207 CYG_TEST_INFO( "Task 4 running" ); | |
| 208 ercd = get_tid( &scratch ); | |
| 209 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 210 CYG_TEST_CHECK( 4 == scratch, "tid not 4" ); | |
| 211 if ( 444 != arg ) | |
| 212 CYG_TEST_FAIL( "Task 4 arg not 444" ); | |
| 213 | |
| 214 // now start the test | |
| 215 ercd = wup_tsk( 2 ); | |
| 216 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 217 | |
| 218 CYG_TEST_INFO( "T4 completing" ); | |
| 219 t4done++; | |
| 220 | |
| 221 ercd = slp_tsk(); | |
| 222 CYG_TEST_FAIL( "Task 4 sleep came back" ); | |
| 223 } | |
| 224 | |
| 225 #else // not enough (or too many) uITRON objects configured in | |
| 226 #define N_A_MSG "not enough uITRON objects to run test" | |
| 227 #endif // not enough (or too many) uITRON objects configured in | |
| 228 #else // not C++ and some C++ specific options enabled | |
| 229 #define N_A_MSG "C++ specific options selected but this is C" | |
| 230 #endif // not C++ and some C++ specific options enabled | |
| 231 #else // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 232 #define N_A_MSG "no CYGVAR_KERNEL_COUNTERS_CLOCK" | |
| 233 #endif // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 2 | 234 #else // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it |
| 0 | 235 #define N_A_MSG "no CYGFUN_KERNEL_THREADS_TIMER" |
| 2 | 236 #endif // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it |
| 237 #else // ! CYGIMP_THREAD_PRIORITY - can't test without it | |
| 0 | 238 #define N_A_MSG "no CYGSEM_KERNEL_SCHED_MLQUEUE" |
| 2 | 239 #endif // ! CYGSEM_KERNEL_SCHED_MLQUEUE - can't test without it |
| 0 | 240 #else // ! CYGPKG_UITRON |
| 241 #define N_A_MSG "uITRON Compatibility layer disabled" | |
| 242 #endif // CYGPKG_UITRON | |
| 243 | |
| 244 #ifdef N_A_MSG | |
| 245 externC void | |
| 246 cyg_start( void ) | |
| 247 { | |
| 248 CYG_TEST_INIT(); | |
| 2 | 249 CYG_TEST_NA( N_A_MSG ); |
| 0 | 250 } |
| 251 #endif // N_A_MSG defined ie. we are N/A. | |
| 252 | |
| 253 // EOF testcx3.cxx |