Mercurial > ecos
annotate packages/compat/uitron/current/tests/testcxx.cxx @ 66:bf00f99aec69 ecos-sw-2000-02-02
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
| author | jlarmour |
|---|---|
| date | Wed, 02 Feb 2000 19:57:02 +0000 |
| parents | c38311975d4f |
| children | e0c0827131d1 |
| rev | line source |
|---|---|
| 0 | 1 //=========================================================================== |
| 2 // | |
| 2 | 3 // testcxx.cxx |
| 0 | 4 // |
| 2 | 5 // uITRON "C++" test program |
| 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 |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
12 // Version 1.1 (the "License"); you may not use this file except in |
|
64
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 |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
14 // http://www.redhat.com/ |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
15 // |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
16 // Software distributed under the License is distributed on an "AS IS" |
|
64
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 /* the end of the large #if statement */ \ | |
| 71 1 | |
| 72 | |
| 73 // ============================ END ============================ | |
| 74 | |
| 75 | |
| 76 | |
| 77 #include <cyg/compat/uitron/uit_func.h> // uITRON | |
| 78 | |
| 79 externC void | |
| 80 cyg_package_start( void ) | |
| 81 { | |
| 82 CYG_TEST_INIT(); | |
| 83 CYG_TEST_INFO( "Calling cyg_uitron_start()" ); | |
| 84 cyg_uitron_start(); | |
| 85 } | |
| 86 | |
| 87 volatile int intercom = 0; | |
| 88 volatile int intercount = 0; | |
| 89 INT scratch = 0; | |
| 90 | |
| 91 extern "C" { | |
| 92 void task1( unsigned int arg ); | |
| 93 void task2( unsigned int arg ); | |
| 94 void task3( unsigned int arg ); | |
| 95 void task4( unsigned int arg ); | |
| 96 } | |
| 97 | |
| 98 | |
| 99 #ifndef CYGSEM_KERNEL_SCHED_TIMESLICE | |
| 100 #define TIMESLICEMSG "Assuming no kernel timeslicing" | |
| 2 | 101 #define TSGO() (1) |
| 102 #define TSRELEASE() CYG_EMPTY_STATEMENT | |
| 103 #define TSSTOP() CYG_EMPTY_STATEMENT | |
| 104 #define TSLOCK() CYG_EMPTY_STATEMENT | |
| 105 #define TSUNLOCK() CYG_EMPTY_STATEMENT | |
| 106 #define ICWAIT( _i_ ) CYG_EMPTY_STATEMENT | |
| 0 | 107 |
| 108 #else | |
| 109 // Now follow some nasty bodges to control the scheduling when basically it | |
| 110 // isn't controlled ie. timeslicing is on. It's bodgy because we're | |
| 111 // testing normal synchronization methods, so we shouldn't rely on them for | |
| 112 // comms between threads here. Instead there's a mixture of communicating | |
| 113 // via a flag (ts_interlock) which stops the "controlled" thread running | |
| 114 // away, and waiting for the controlled thread to run enough for us. | |
| 115 // | |
| 116 // Tasks 3 and 4 are waited for by the control task: task 3 locks the | |
| 117 // scheduler so is immediately descheduled when it unlocks it, task 4 does | |
| 118 // waiting-type operations, so we must give it chance to run by yielding a | |
| 119 // few times ourselves. Note the plain constant in ICWAIT() below. | |
| 120 | |
| 121 #define TIMESLICEMSG "Assuming kernel timeslicing ENABLED" | |
| 122 volatile int ts_interlock = 0; | |
| 2 | 123 #define TSGO() (ts_interlock) |
| 124 #define TSRELEASE() ts_interlock = 1 | |
| 125 #define TSSTOP() ts_interlock = 0 | |
| 0 | 126 |
| 2 | 127 #define TSLOCK() CYG_MACRO_START \ |
| 128 ER ercd2 = dis_dsp(); \ | |
| 129 CYG_TEST_CHECK( E_OK == ercd2, "dis_dsp (TSLOCK) bad ercd2" ); \ | |
| 0 | 130 CYG_MACRO_END |
| 131 | |
| 2 | 132 #define TSUNLOCK() CYG_MACRO_START \ |
| 133 ER ercd3 = ena_dsp(); \ | |
| 134 CYG_TEST_CHECK( E_OK == ercd3, "ena_dsp (TSUNLOCK) bad ercd3" ); \ | |
| 0 | 135 CYG_MACRO_END |
| 136 | |
| 2 | 137 #define ICWAIT( _i_ ) CYG_MACRO_START \ |
| 138 int loops; \ | |
| 139 for ( loops = 3; (0 < loops) || ((_i_) > intercount); loops-- ) { \ | |
| 140 ER ercd4 = rot_rdq( 0 ); /* yield */ \ | |
| 141 CYG_TEST_CHECK( E_OK == ercd4, "rot_rdq (ICWAIT) bad ercd4" ); \ | |
| 142 } \ | |
| 0 | 143 CYG_MACRO_END |
| 144 #endif // CYGSEM_KERNEL_SCHED_TIMESLICE | |
| 145 | |
| 146 /* | |
| 147 #define IC() \ | |
| 148 CYG_MACRO_START \ | |
| 149 static char *msgs[] = { "ZERO", "ONE", "TWO", "THREE", "FOUR", "LOTS" }; \ | |
| 150 CYG_TEST_INFO( msgs[ intercount > 5 ? 5 : intercount ] ); \ | |
| 151 CYG_MACRO_END | |
| 152 */ | |
| 153 | |
| 154 // #define CYG_TEST_UITRON_TEST1_LOOPING 1 | |
| 155 | |
| 156 void task1( unsigned int arg ) | |
| 157 { | |
| 158 ER ercd; | |
| 159 T_RTSK ref_tskd; | |
| 160 | |
| 161 #ifdef CYG_TEST_UITRON_TEST1_LOOPING | |
| 162 while ( 1 ) { | |
| 163 #endif // CYG_TEST_UITRON_TEST1_LOOPING | |
| 164 | |
| 165 CYG_TEST_INFO( "Task 1 running" ); | |
| 166 CYG_TEST_INFO( TIMESLICEMSG ); | |
| 167 | |
| 168 intercom = 0; | |
| 169 intercount = 0; | |
| 170 | |
| 171 CYG_TEST_INFO( "Testing get_tid and ref_tsk" ); | |
| 172 ercd = get_tid( &scratch ); | |
| 173 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 174 CYG_TEST_CHECK( 1 == scratch, "tid not 1" ); | |
| 175 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 176 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR | |
| 177 ercd = get_tid( NULL ); | |
| 178 CYG_TEST_CHECK( E_PAR == ercd, "get_tid bad ercd !E_PAR" ); | |
| 179 #endif | |
| 180 ercd = ref_tsk( &ref_tskd, -6 ); | |
| 181 CYG_TEST_CHECK( E_ID == ercd, "ref_tsk bad ercd !E_ID" ); | |
| 182 ercd = ref_tsk( &ref_tskd, 99 ); | |
| 183 CYG_TEST_CHECK( E_ID == ercd, "ref_tsk bad ercd !E_ID" ); | |
| 184 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR | |
| 185 ercd = ref_tsk( NULL, 1 ); | |
| 186 CYG_TEST_CHECK( E_PAR == ercd, "ref_tsk bad ercd !E_PAR" ); | |
| 187 #endif | |
| 188 #endif // we can test bad param error returns | |
| 189 ercd = ref_tsk( &ref_tskd, 1 ); | |
| 190 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 191 CYG_TEST_CHECK( TTS_RUN == ref_tskd.tskstat, "Bad task status 1" ); | |
| 192 ercd = ref_tsk( &ref_tskd, 0 ); | |
| 193 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 194 CYG_TEST_CHECK( TTS_RUN == ref_tskd.tskstat, "Bad task status 0" ); | |
| 195 ercd = ref_tsk( &ref_tskd, 2 ); | |
| 196 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 197 CYG_TEST_CHECK( TTS_DMT == ref_tskd.tskstat, "Bad task status 2" ); | |
| 198 CYG_TEST_CHECK( 2 == ref_tskd.tskpri, "Bad task prio 2" ); | |
| 199 | |
| 200 ercd = rsm_tsk( 2 ); | |
| 201 CYG_TEST_CHECK( E_OBJ == ercd, "rsm_tsk DMT bad ercd !E_OBJ" ); | |
| 202 ercd = frsm_tsk( 2 ); | |
| 203 CYG_TEST_CHECK( E_OBJ == ercd, "frsm_tsk DMT bad ercd !E_OBJ" ); | |
| 204 ercd = rel_wai( 2 ); | |
| 205 CYG_TEST_CHECK( E_OBJ == ercd, "rel_wai DMT bad ercd !E_OBJ" ); | |
| 206 ercd = sus_tsk( 2 ); | |
| 207 CYG_TEST_CHECK( E_OBJ == ercd, "sus_tsk DMT bad ercd !E_OBJ" ); | |
| 208 ercd = wup_tsk( 2 ); | |
| 209 CYG_TEST_CHECK( E_OBJ == ercd, "wup_tsk DMT bad ercd !E_OBJ" ); | |
| 210 ercd = can_wup( &scratch, 2 ); | |
| 211 CYG_TEST_CHECK( E_OBJ == ercd, "can_wup DMT bad ercd !E_OBJ" ); | |
| 212 | |
| 213 CYG_TEST_PASS( "get_tid, ref_tsk" ); | |
| 214 | |
| 215 CYG_TEST_INFO( "Testing prio change and start task" ); | |
| 216 ercd = sta_tsk( 2, 99 ); | |
| 217 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 218 | |
| 219 // drop pri of task 2 | |
| 220 ercd = chg_pri( 2, 4 ); | |
| 221 CYG_TEST_CHECK( E_OK == ercd, "chg_pri bad ercd" ); | |
| 222 ercd = ref_tsk( &ref_tskd, 2 ); | |
| 223 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 224 CYG_TEST_CHECK( TTS_RDY == ref_tskd.tskstat, "Bad task status 2" ); | |
| 225 CYG_TEST_CHECK( 4 == ref_tskd.tskpri, "Bad task prio 2" ); | |
| 226 | |
| 227 // drop our pri below task 2 | |
| 228 ercd = chg_pri( 0, 5 ); | |
| 229 CYG_TEST_CHECK( E_OK == ercd, "chg_pri bad ercd" ); | |
| 230 | |
| 231 ercd = ref_tsk( &ref_tskd, 1 ); | |
| 232 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 233 CYG_TEST_CHECK( 5 == ref_tskd.tskpri, "Bad task prio 1" ); | |
| 234 ercd = ref_tsk( &ref_tskd, 0 ); | |
| 235 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 236 CYG_TEST_CHECK( 5 == ref_tskd.tskpri, "Bad task prio 0" ); | |
| 237 ercd = ref_tsk( &ref_tskd, 2 ); | |
| 238 CYG_TEST_CHECK( E_OK == ercd, "ref_tsk bad ercd" ); | |
| 239 // it will have run to completion and regained its original prio | |
| 240 CYG_TEST_CHECK( 2 == ref_tskd.tskpri, "Bad task prio 2" ); | |
| 241 CYG_TEST_CHECK( TTS_DMT == ref_tskd.tskstat, "Bad task status 2" ); | |
| 242 | |
| 243 // retest these now that the task has executed once | |
| 244 ercd = rsm_tsk( 2 ); | |
| 245 CYG_TEST_CHECK( E_OBJ == ercd, "rsm_tsk DMT bad ercd !E_OBJ" ); | |
| 246 ercd = frsm_tsk( 2 ); | |
| 247 CYG_TEST_CHECK( E_OBJ == ercd, "frsm_tsk DMT bad ercd !E_OBJ" ); | |
| 248 ercd = rel_wai( 2 ); | |
| 249 CYG_TEST_CHECK( E_OBJ == ercd, "rel_wai DMT bad ercd !E_OBJ" ); | |
| 250 ercd = sus_tsk( 2 ); | |
| 251 CYG_TEST_CHECK( E_OBJ == ercd, "sus_tsk DMT bad ercd !E_OBJ" ); | |
| 252 ercd = wup_tsk( 2 ); | |
| 253 CYG_TEST_CHECK( E_OBJ == ercd, "wup_tsk DMT bad ercd !E_OBJ" ); | |
| 254 ercd = can_wup( &scratch, 2 ); | |
| 255 CYG_TEST_CHECK( E_OBJ == ercd, "can_wup DMT bad ercd !E_OBJ" ); | |
| 256 | |
| 257 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 258 ercd = chg_pri( -6, 9 ); | |
| 259 CYG_TEST_CHECK( E_ID == ercd, "chg_pri bad ercd !E_ID" ); | |
| 260 ercd = chg_pri( 99, 9 ); | |
| 261 CYG_TEST_CHECK( E_ID == ercd, "chg_pri bad ercd !E_ID" ); | |
| 262 ercd = sta_tsk( -6, 99 ); | |
| 263 CYG_TEST_CHECK( E_ID == ercd, "sta_tsk bad ercd !E_ID" ); | |
| 264 ercd = sta_tsk( 99, 99 ); | |
| 265 CYG_TEST_CHECK( E_ID == ercd, "sta_tsk bad ercd !E_ID" ); | |
| 266 #endif // we can test bad param error returns | |
| 267 | |
| 268 CYG_TEST_PASS( "sta_tsk, chg_pri" ); | |
| 269 | |
| 270 CYG_TEST_INFO( "Testing delay and dispatch disabling" ); | |
| 271 ercd = dly_tsk( 10 ); | |
| 272 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 273 ercd = ena_dsp(); | |
| 274 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 275 ercd = dly_tsk( 10 ); | |
| 276 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 277 ercd = dis_dsp(); | |
| 278 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 279 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 280 ercd = dly_tsk( 10 ); | |
| 281 CYG_TEST_CHECK( E_CTX == ercd, "dly_tsk bad ercd !E_CTX" ); | |
| 282 ercd = dis_dsp(); | |
| 283 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 284 ercd = dly_tsk( 10 ); | |
| 285 CYG_TEST_CHECK( E_CTX == ercd, "dly_tsk bad ercd !E_CTX" ); | |
| 286 #endif // we can test bad param error returns | |
| 287 ercd = ena_dsp(); | |
| 288 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 289 ercd = dly_tsk( 10 ); | |
| 290 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 291 ercd = ena_dsp(); | |
| 292 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 293 ercd = dly_tsk( 10 ); | |
| 294 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 295 | |
| 296 CYG_TEST_PASS( "dly_tsk, ena_dsp, dis_dsp" ); | |
| 297 | |
| 298 CYG_TEST_INFO( "Testing ready queue manipulation" ); | |
| 299 ercd = rot_rdq( 0 ); | |
| 300 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 301 ercd = rot_rdq( 4 ); | |
| 302 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 303 ercd = rot_rdq( 5 ); | |
| 304 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 305 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 306 ercd = rot_rdq( -6 ); | |
| 307 CYG_TEST_CHECK( E_PAR == ercd, "rot_rdq bad ercd !E_PAR" ); | |
| 308 ercd = rot_rdq( 99 ); | |
| 309 CYG_TEST_CHECK( E_PAR == ercd, "rot_rdq bad ercd !E_PAR" ); | |
| 310 #endif // we can test bad param error returns | |
| 311 | |
| 312 CYG_TEST_PASS( "rot_rdq" ); | |
| 313 | |
| 314 CYG_TEST_INFO( "Testing suspend/resume" ); | |
| 315 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 316 ercd = sus_tsk( -6 ); | |
| 317 CYG_TEST_CHECK( E_ID == ercd, "sus_tsk bad ercd !E_ID" ); | |
| 318 ercd = sus_tsk( 99 ); | |
| 319 CYG_TEST_CHECK( E_ID == ercd, "sus_tsk bad ercd !E_ID" ); | |
| 320 ercd = rsm_tsk( -6 ); | |
| 321 CYG_TEST_CHECK( E_ID == ercd, "rsm_tsk bad ercd !E_ID" ); | |
| 322 ercd = rsm_tsk( 99 ); | |
| 323 CYG_TEST_CHECK( E_ID == ercd, "rsm_tsk bad ercd !E_ID" ); | |
| 324 ercd = frsm_tsk( -6 ); | |
| 325 CYG_TEST_CHECK( E_ID == ercd, "frsm_tsk bad ercd !E_ID" ); | |
| 326 ercd = frsm_tsk( 99 ); | |
| 327 CYG_TEST_CHECK( E_ID == ercd, "frsm_tsk bad ercd !E_ID" ); | |
| 328 #endif // we can test bad param error returns | |
| 329 // drop task 3 pri to same as us | |
| 330 CYG_TEST_CHECK( 0 == intercount, "intercount != 0" ); | |
| 331 | |
| 332 intercom = 3; // tell T3 to loop | |
| 333 TSRELEASE(); | |
| 334 ercd = dis_dsp(); | |
| 335 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 336 ercd = sta_tsk( 3, 66 ); | |
| 337 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 338 ercd = chg_pri( 3, 5 ); | |
| 339 CYG_TEST_CHECK( E_OK == ercd, "chg_pri bad ercd" ); | |
| 340 ercd = ena_dsp(); | |
| 341 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 342 | |
| 343 ercd = rot_rdq( 0 ); | |
| 344 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 345 ICWAIT( 1 ); | |
| 346 CYG_TEST_CHECK( 1 == intercount, "intercount != 1" ); | |
| 347 ercd = sus_tsk( 3 ); | |
| 348 TSRELEASE(); | |
| 349 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 350 intercom = 0; // bad data to T3 | |
| 351 ercd = rot_rdq( 0 ); | |
| 352 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 353 CYG_TEST_CHECK( 1 == intercount, "intercount != 1" ); | |
| 354 intercom = 3; // tell T3 to loop | |
| 355 TSRELEASE(); | |
| 356 ercd = rsm_tsk( 3 ); | |
| 357 CYG_TEST_CHECK( E_OK == ercd, "rsm_tsk bad ercd" ); | |
| 358 ercd = rot_rdq( 0 ); | |
| 359 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 360 ICWAIT( 2 ); | |
| 361 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 362 | |
| 363 CYG_TEST_INFO( "Command task 3 inner loop stop" ); | |
| 364 intercom = 2 + 4; | |
| 365 TSRELEASE(); | |
| 366 ercd = rot_rdq( 0 ); | |
| 367 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 368 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 369 | |
| 370 ercd = sus_tsk( 3 ); | |
| 371 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 372 intercom = 0; // bad data to T3 | |
| 373 TSRELEASE(); | |
| 374 ercd = rot_rdq( 0 ); | |
| 375 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 376 ercd = sus_tsk( 3 ); // suspend AGAIN | |
| 377 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 378 ercd = sus_tsk( 3 ); // AND AGAIN | |
| 379 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 380 TSRELEASE(); | |
| 381 ercd = rot_rdq( 0 ); | |
| 382 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 383 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 384 ercd = rsm_tsk( 3 ); | |
| 385 CYG_TEST_CHECK( E_OK == ercd, "rsm_tsk bad ercd" ); | |
| 386 ercd = rsm_tsk( 3 ); | |
| 387 CYG_TEST_CHECK( E_OK == ercd, "rsm_tsk bad ercd" ); | |
| 388 TSRELEASE(); | |
| 389 ercd = rot_rdq( 0 ); | |
| 390 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 391 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 392 intercom = 3; // tell T3 to loop | |
| 393 TSRELEASE(); | |
| 394 ercd = rsm_tsk( 3 ); // expect restart this time | |
| 395 CYG_TEST_CHECK( E_OK == ercd, "rsm_tsk bad ercd" ); | |
| 396 ercd = rot_rdq( 0 ); | |
| 397 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 398 ICWAIT( 3 ); | |
| 399 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 400 | |
| 401 CYG_TEST_INFO( "Command task 3 inner loop stop 2" ); | |
| 402 intercom = 2 + 4; | |
| 403 TSRELEASE(); | |
| 404 ercd = rot_rdq( 0 ); | |
| 405 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 406 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 407 | |
| 408 ercd = sus_tsk( 3 ); | |
| 409 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 410 intercom = 0; // bad data to T3 | |
| 411 TSRELEASE(); | |
| 412 ercd = rot_rdq( 0 ); | |
| 413 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 414 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 415 ercd = sus_tsk( 3 ); // suspend AGAIN | |
| 416 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 417 ercd = sus_tsk( 3 ); // AND AGAIN | |
| 418 CYG_TEST_CHECK( E_OK == ercd, "sus_tsk bad ercd" ); | |
| 419 TSRELEASE(); | |
| 420 ercd = rot_rdq( 0 ); | |
| 421 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 422 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 423 intercom = 3; // tell T3 to loop | |
| 424 TSRELEASE(); | |
| 425 ercd = frsm_tsk( 3 ); // expect restart this time | |
| 426 CYG_TEST_CHECK( E_OK == ercd, "frsm_tsk bad ercd" ); | |
| 427 ercd = rot_rdq( 0 ); | |
| 428 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 429 ICWAIT( 4 ); | |
| 430 CYG_TEST_CHECK( 4 == intercount, "intercount != 4" ); | |
| 431 | |
| 432 TSRELEASE(); | |
| 433 ercd = rsm_tsk( 3 ); // try it again | |
| 434 CYG_TEST_CHECK( E_OBJ == ercd, "rsm_tsk bad ercd !E_OBJ" ); | |
| 435 ercd = rot_rdq( 0 ); | |
| 436 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 437 ICWAIT( 5 ); | |
| 438 CYG_TEST_CHECK( 5 == intercount, "intercount != 5" ); | |
| 439 | |
| 440 TSRELEASE(); | |
| 441 ercd = frsm_tsk( 3 ); // try it again | |
| 442 CYG_TEST_CHECK( E_OBJ == ercd, "frsm_tsk bad ercd !E_OBJ" ); | |
| 443 ercd = rot_rdq( 0 ); | |
| 444 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 445 ICWAIT( 6 ); | |
| 446 CYG_TEST_CHECK( 6 == intercount, "intercount != 6" ); | |
| 447 | |
| 448 CYG_TEST_INFO( "Command task 3 all loops stop" ); | |
| 449 intercom = 4 + 8; | |
| 450 TSRELEASE(); | |
| 451 ercd = rot_rdq( 0 ); | |
| 452 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 453 TSRELEASE(); | |
| 454 ercd = rot_rdq( 0 ); | |
| 455 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 456 CYG_TEST_CHECK( 6 == intercount, "intercount != 6" ); | |
| 457 | |
| 458 intercom = intercount = 0; | |
| 459 | |
| 460 CYG_TEST_PASS( "sus_tsk, rsm_tsk, frsm_tsk" ); | |
| 461 | |
| 462 CYG_TEST_INFO( "Testing sleep/wakeup stuff" ); | |
| 463 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 464 ercd = wup_tsk( -6 ); | |
| 465 CYG_TEST_CHECK( E_ID == ercd, "wup_tsk bad ercd !E_ID" ); | |
| 466 ercd = wup_tsk( 99 ); | |
| 467 CYG_TEST_CHECK( E_ID == ercd, "wup_tsk bad ercd !E_ID" ); | |
| 468 ercd = can_wup( &scratch, -6 ); | |
| 469 CYG_TEST_CHECK( E_ID == ercd, "can_wup bad ercd !E_ID" ); | |
| 470 ercd = can_wup( &scratch, 99 ); | |
| 471 CYG_TEST_CHECK( E_ID == ercd, "can_wup bad ercd !E_ID" ); | |
| 472 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR | |
| 473 ercd = can_wup( NULL, 2 ); | |
| 474 CYG_TEST_CHECK( E_PAR == ercd, "can_wup bad ercd !E_PAR" ); | |
| 475 #endif | |
| 476 | |
| 477 ercd = wup_tsk( 0 ); // not ourself | |
| 478 CYG_TEST_CHECK( E_ID == ercd, "wup_tsk bad ercd !E_ID" ); | |
| 479 ercd = wup_tsk( 1 ); // ourself | |
| 480 CYG_TEST_CHECK( E_OBJ == ercd, "wup_tsk bad ercd !E_OBJ" ); | |
| 481 #endif // we can test bad param error returns | |
| 482 | |
| 483 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 484 ercd = tslp_tsk( -6 ); | |
| 485 CYG_TEST_CHECK( E_PAR == ercd, "tslp_tsk bad ercd !E_PAR" ); | |
| 486 #endif // we can test bad param error returns | |
| 487 ercd = tslp_tsk( TMO_POL ); | |
| 488 CYG_TEST_CHECK( E_TMOUT == ercd, "tslp_tsk bad ercd !E_TMOUT" ); | |
| 489 ercd = tslp_tsk( 5 ); | |
| 490 CYG_TEST_CHECK( E_TMOUT == ercd, "tslp_tsk bad ercd !E_TMOUT" ); | |
| 491 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 492 ercd = dis_dsp(); | |
| 493 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 494 ercd = tslp_tsk( TMO_FEVR ); | |
| 495 CYG_TEST_CHECK( E_CTX == ercd, "tslp_tsk bad ercd !E_CTX" ); | |
| 496 ercd = tslp_tsk( TMO_POL ); | |
| 497 CYG_TEST_CHECK( E_CTX == ercd, "tslp_tsk bad ercd !E_CTX" ); | |
| 498 ercd = tslp_tsk( 5 ); | |
| 499 CYG_TEST_CHECK( E_CTX == ercd, "tslp_tsk bad ercd !E_CTX" ); | |
| 500 ercd = ena_dsp(); | |
| 501 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 502 ercd = tslp_tsk( -6 ); | |
| 503 CYG_TEST_CHECK( E_PAR == ercd, "tslp_tsk bad ercd !E_PAR" ); | |
| 504 #endif // we can test bad param error returns | |
| 505 ercd = tslp_tsk( TMO_POL ); | |
| 506 CYG_TEST_CHECK( E_TMOUT == ercd, "tslp_tsk bad ercd !E_TMOUT" ); | |
| 507 ercd = tslp_tsk( 5 ); | |
| 508 CYG_TEST_CHECK( E_TMOUT == ercd, "tslp_tsk bad ercd !E_TMOUT" ); | |
| 509 | |
| 510 // drop task 4 pri to same as us | |
| 511 intercount = 0; | |
| 512 intercom = 1; // test plain slp_tsk | |
| 513 TSRELEASE(); | |
| 514 ercd = chg_pri( 4, 5 ); | |
| 515 CYG_TEST_CHECK( E_OBJ == ercd, "chg_pri bad ercd" ); | |
| 516 | |
| 517 ercd = dis_dsp(); | |
| 518 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 519 ercd = sta_tsk( 4, 77 ); | |
| 520 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 521 ercd = chg_pri( 4, 5 ); | |
| 522 CYG_TEST_CHECK( E_OK == ercd, "chg_pri bad ercd" ); | |
| 523 ercd = ena_dsp(); | |
| 524 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 525 | |
| 526 ercd = wup_tsk( 4 ); | |
| 527 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 528 ercd = rot_rdq( 0 ); | |
| 529 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 530 ICWAIT( 1 ); | |
| 531 CYG_TEST_CHECK( 1 == intercount, "intercount != 1" ); | |
| 532 intercom = 2; // test tslp_tsk | |
| 533 TSRELEASE(); | |
| 534 ercd = wup_tsk( 4 ); | |
| 535 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 536 ercd = rot_rdq( 0 ); | |
| 537 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 538 ICWAIT( 2 ); | |
| 539 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 540 intercom = 3; // test tslp_tsk | |
| 541 TSRELEASE(); | |
| 542 ercd = rot_rdq( 0 ); | |
| 543 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 544 CYG_TEST_CHECK( 2 == intercount, "intercount != 2" ); | |
| 545 intercom = 1; // test slp_tsk next... | |
| 546 ercd = dly_tsk( 20 ); // without a wup | |
| 547 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 548 ICWAIT( 3 ); | |
| 549 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 550 | |
| 551 intercom = 1; // ...test slp_tsk | |
| 552 TSRELEASE(); | |
| 553 ercd = dly_tsk( 20 ); // without a wup (yet) | |
| 554 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 555 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 556 TSRELEASE(); | |
| 557 ercd = tslp_tsk( 20 ); // yield again | |
| 558 CYG_TEST_CHECK( E_TMOUT == ercd, "tslp_tsk bad ercd !E_TMOUT" ); | |
| 559 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 560 TSRELEASE(); | |
| 561 ercd = rot_rdq( 0 ); // and again | |
| 562 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 563 CYG_TEST_CHECK( 3 == intercount, "intercount != 3" ); | |
| 564 TSRELEASE(); | |
| 565 ercd = wup_tsk( 4 ); // now issue a wup | |
| 566 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 567 ercd = rot_rdq( 0 ); // and yield | |
| 568 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 569 ICWAIT( 4 ); | |
| 570 CYG_TEST_CHECK( 4 == intercount, "intercount != 4" ); | |
| 571 | |
| 572 intercom = 1; // test slp_tsk | |
| 573 TSRELEASE(); | |
| 574 ercd = dly_tsk( 20 ); // without a wup (yet) | |
| 575 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 576 CYG_TEST_CHECK( 4 == intercount, "intercount != 4" ); | |
| 577 | |
| 578 // this wup will restart it when we yield: | |
| 579 TSLOCK(); | |
| 580 ercd = wup_tsk( 4 ); // now issue a wup | |
| 581 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 582 // these will count up: | |
| 583 ercd = wup_tsk( 4 ); // now issue a wup | |
| 584 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 585 ercd = wup_tsk( 4 ); // now issue a wup | |
| 586 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 587 scratch = -1; | |
| 588 ercd = can_wup( &scratch, 4 ); | |
| 589 CYG_TEST_CHECK( E_OK == ercd, "can_wup bad ercd" ); | |
| 590 CYG_TEST_CHECK( 2 == scratch, "Cancelled wups not 2" ); | |
| 591 CYG_TEST_CHECK( 4 == intercount, "intercount != 4" ); | |
| 592 TSUNLOCK(); | |
| 593 | |
| 594 intercom = 4; // do nothing | |
| 595 TSRELEASE(); | |
| 596 ercd = rot_rdq( 0 ); // and yield | |
| 597 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 598 ICWAIT( 5 ); | |
| 599 CYG_TEST_CHECK( 5 == intercount, "intercount != 5" ); | |
| 600 TSRELEASE(); | |
| 601 ercd = dly_tsk( 20 ); // let it do nothing | |
| 602 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 603 | |
| 604 TSRELEASE(); | |
| 605 ercd = wup_tsk( 4 ); // now issue a wup | |
| 606 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 607 TSRELEASE(); | |
| 608 ercd = wup_tsk( 4 ); // now issue a wup | |
| 609 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 610 TSRELEASE(); | |
| 611 ercd = wup_tsk( 4 ); // now issue a wup | |
| 612 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 613 TSRELEASE(); | |
| 614 ercd = dly_tsk( 20 ); // lots of wups but no sleep | |
| 615 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 616 CYG_TEST_CHECK( 5 == intercount, "intercount != 5" ); | |
| 617 scratch = -1; | |
| 618 ercd = can_wup( &scratch, 4 ); | |
| 619 CYG_TEST_CHECK( E_OK == ercd, "can_wup bad ercd" ); | |
| 620 CYG_TEST_CHECK( 3 == scratch, "Cancelled wups not 3" ); | |
| 621 // now check that they are cancelled by doing a wait again | |
| 622 intercom = 1; // test slp_tsk | |
| 623 TSRELEASE(); | |
| 624 ercd = rot_rdq( 0 ); // still without a wup | |
| 625 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 626 TSRELEASE(); | |
| 627 ercd = rot_rdq( 0 ); // still without a wup | |
| 628 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 629 intercom = 4; // do nothing next | |
| 630 TSRELEASE(); | |
| 631 ICWAIT( 6 ); | |
| 632 CYG_TEST_CHECK( 6 == intercount, "intercount != 6" ); | |
| 633 ercd = rot_rdq( 0 ); // still without a wup | |
| 634 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 635 CYG_TEST_CHECK( 6 == intercount, "intercount != 6" ); | |
| 636 TSRELEASE(); | |
| 637 ercd = wup_tsk( 4 ); // now issue a wup | |
| 638 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 639 ercd = rot_rdq( 0 ); // it will run now | |
| 640 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 641 TSRELEASE(); | |
| 642 ercd = rot_rdq( 0 ); // it will run now | |
| 643 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 644 ICWAIT( 7 ); | |
| 645 CYG_TEST_CHECK( 7 == intercount, "intercount != 7" ); | |
| 646 | |
| 647 TSRELEASE(); | |
| 648 intercom = 99; // exit, all done | |
| 649 ercd = rot_rdq( 0 ); // let it run | |
| 650 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 651 ICWAIT( 8 ); | |
| 652 CYG_TEST_CHECK( 8 == intercount, "intercount != 8" ); | |
| 653 | |
| 654 TSRELEASE(); | |
| 655 ercd = rot_rdq( 0 ); // let it run | |
| 656 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" ); | |
| 657 CYG_TEST_CHECK( 8 == intercount, "intercount != 8" ); | |
| 658 | |
| 659 CYG_TEST_PASS( "wup_tsk, can_wup, slp_tsk, tslp_tsk" ); | |
| 660 | |
| 661 #ifdef CYG_TEST_UITRON_TEST1_LOOPING | |
| 662 chg_pri( 1, 1 ); | |
| 663 rot_rdq( 0 ); | |
| 664 ter_tsk( 2 ); | |
| 665 rot_rdq( 0 ); | |
| 666 ter_tsk( 3 ); | |
| 667 rot_rdq( 0 ); | |
| 668 ter_tsk( 4 ); | |
| 669 rot_rdq( 0 ); | |
| 670 } | |
| 671 #endif // CYG_TEST_UITRON_TEST1_LOOPING | |
| 672 | |
| 673 CYG_TEST_EXIT( "All done" ); | |
| 674 ext_tsk(); | |
| 675 } | |
| 676 | |
| 677 | |
| 678 | |
| 679 void task2( unsigned int arg ) | |
| 680 { | |
| 681 ER ercd; | |
| 682 CYG_TEST_PASS( "Task 2 running" ); | |
| 683 ercd = get_tid( &scratch ); | |
| 684 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 685 CYG_TEST_CHECK( 2 == scratch, "tid not 2" ); | |
| 686 if ( 99 != arg ) | |
| 687 CYG_TEST_FAIL( "Task 2 arg not 99" ); | |
| 688 ext_tsk(); | |
| 689 CYG_TEST_FAIL( "Task 2 failed to exit" ); | |
| 690 } | |
| 691 | |
| 692 void task3( unsigned int arg ) | |
| 693 { | |
| 694 ER ercd; | |
| 695 TSLOCK(); | |
| 696 CYG_TEST_PASS("Task3 running"); | |
| 697 ercd = get_tid( &scratch ); | |
| 698 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 699 CYG_TEST_CHECK( 3 == scratch, "tid not 3" ); | |
| 700 if ( 66 != arg ) | |
| 701 CYG_TEST_FAIL( "Task 3 arg not 66" ); | |
| 702 | |
| 703 while ( 2 & intercom ) { | |
| 704 while ( 1 & intercom ) { | |
| 705 intercount++; | |
| 706 TSSTOP(); | |
| 707 do { | |
| 708 TSUNLOCK(); | |
| 709 ercd = rot_rdq( 0 ); // yield() | |
| 710 TSLOCK(); | |
| 711 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq 1 (task3) bad ercd" ); | |
| 712 } while ( !TSGO() ); | |
| 713 } | |
| 714 CYG_TEST_CHECK( 4 & intercom, "should not have got here yet 1" ); | |
| 715 TSSTOP(); | |
| 716 do { | |
| 717 TSUNLOCK(); | |
| 718 ercd = rot_rdq( 0 ); // yield() | |
| 719 TSLOCK(); | |
| 720 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq 2 (task3) bad ercd" ); | |
| 721 } while ( !TSGO() ); | |
| 722 } | |
| 723 CYG_TEST_CHECK( 8 & intercom, "should not have got here yet 2" ); | |
| 724 | |
| 725 TSUNLOCK(); | |
| 726 ext_tsk(); | |
| 727 CYG_TEST_FAIL( "Task 3 failed to exit" ); | |
| 728 } | |
| 729 | |
| 730 void task4( unsigned int arg ) | |
| 731 { | |
| 732 ER ercd; | |
| 733 CYG_TEST_PASS("Task4 running"); | |
| 734 ercd = get_tid( &scratch ); | |
| 735 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 736 CYG_TEST_CHECK( 4 == scratch, "tid not 4" ); | |
| 737 if ( 77 != arg ) | |
| 738 CYG_TEST_FAIL( "Task 4 arg not 77" ); | |
| 739 while ( 1 ) { | |
| 740 switch ( intercom ) { | |
| 741 case 1: | |
| 742 ercd = slp_tsk(); | |
| 743 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk (task4) bad ercd" ); | |
| 744 break; | |
| 745 case 2: | |
| 746 ercd = tslp_tsk( 10 ); | |
| 747 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk (task4) bad ercd" ); | |
| 748 break; | |
| 749 case 3: | |
| 750 ercd = tslp_tsk( 10 ); | |
| 751 CYG_TEST_CHECK( E_TMOUT == ercd, | |
| 752 "slp_tsk (task4) bad ercd !E_TMOUT" ); | |
| 753 break; | |
| 754 case 4: | |
| 755 // busily do nothing | |
| 756 while ( 4 == intercom ) { | |
| 757 ercd = rot_rdq( 0 ); | |
| 758 CYG_TEST_CHECK( E_OK == ercd, | |
| 759 "rot_rdq (task4 idle) bad ercd" ); | |
| 760 } | |
| 761 break; | |
| 762 case 99: | |
| 763 goto out; | |
| 764 default: | |
| 765 CYG_TEST_FAIL( "Task 4 bad intercom" ); | |
| 766 goto out; | |
| 767 } | |
| 768 intercount++; | |
| 769 TSSTOP(); | |
| 770 do { | |
| 771 ercd = rot_rdq( 0 ); // yield() | |
| 772 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq (task4) bad ercd" ); | |
| 773 } while ( !TSGO() ); | |
| 774 } | |
| 775 out: | |
| 776 ext_tsk(); | |
| 777 CYG_TEST_FAIL( "Task 4 failed to exit" ); | |
| 778 } | |
| 779 | |
| 780 #else // not enough (or too many) uITRON objects configured in | |
| 781 #define N_A_MSG "not enough uITRON objects to run test" | |
| 782 #endif // not enough (or too many) uITRON objects configured in | |
| 783 #else // not C++ and some C++ specific options enabled | |
| 784 #define N_A_MSG "C++ specific options selected but this is C" | |
| 785 #endif // not C++ and some C++ specific options enabled | |
| 786 #else // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 787 #define N_A_MSG "no CYGVAR_KERNEL_COUNTERS_CLOCK" | |
| 788 #endif // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 2 | 789 #else // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it |
| 0 | 790 #define N_A_MSG "no CYGFUN_KERNEL_THREADS_TIMER" |
| 2 | 791 #endif // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it |
| 792 #else // ! CYGIMP_THREAD_PRIORITY - can't test without it | |
| 0 | 793 #define N_A_MSG "no CYGSEM_KERNEL_SCHED_MLQUEUE" |
| 2 | 794 #endif // ! CYGSEM_KERNEL_SCHED_MLQUEUE - can't test without it |
| 0 | 795 #else // ! CYGPKG_UITRON |
| 796 #define N_A_MSG "uITRON Compatibility layer disabled" | |
| 797 #endif // CYGPKG_UITRON | |
| 798 | |
| 799 #ifdef N_A_MSG | |
| 800 externC void | |
| 801 cyg_start( void ) | |
| 802 { | |
| 803 CYG_TEST_INIT(); | |
| 2 | 804 CYG_TEST_NA( N_A_MSG ); |
| 0 | 805 } |
| 806 #endif // N_A_MSG defined ie. we are N/A. | |
| 807 | |
| 808 // EOF testcxx.cxx |