Mercurial > ecos-v2_0-branch
annotate packages/compat/uitron/current/tests/test9.c @ 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 // | |
| 3 // test9.c | |
| 4 // | |
| 5 // uITRON "C" test program nine | |
| 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 // | |
| 34 // Author(s): hmt | |
| 35 // Contributors: hmt | |
| 36 // Date: 1998-10-16 | |
| 37 // Purpose: uITRON API testing | |
| 38 // Description: | |
| 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 fixed memory pools */ \ | |
| 71 defined( CYGPKG_UITRON_MEMPOOLFIXED ) && \ | |
| 72 (CYGNUM_UITRON_MEMPOOLFIXED >= 3) && \ | |
| 73 (CYGNUM_UITRON_MEMPOOLFIXED < 90) && \ | |
| 74 ( !defined(CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE) || \ | |
| 75 CYGNUM_UITRON_MEMPOOLFIXED_INITIALLY >= 3 ) && \ | |
| 76 \ | |
| 77 /* test configuration for enough variable mempools */ \ | |
| 78 defined( CYGPKG_UITRON_MEMPOOLVAR ) && \ | |
| 79 (CYGNUM_UITRON_MEMPOOLVAR >= 3) && \ | |
| 80 (CYGNUM_UITRON_MEMPOOLVAR < 90) && \ | |
| 81 ( !defined(CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE) || \ | |
| 82 CYGNUM_UITRON_MEMPOOLVAR_INITIALLY >= 3 ) && \ | |
| 83 \ | |
| 84 /* the end of the large #if statement */ \ | |
| 85 1 | |
| 86 | |
| 87 // ============================ END ============================ | |
| 88 | |
| 89 | |
| 90 | |
| 91 #include <cyg/compat/uitron/uit_func.h> // uITRON | |
| 92 | |
| 93 externC void | |
| 94 cyg_package_start( void ) | |
| 95 { | |
| 96 CYG_TEST_INIT(); | |
| 97 CYG_TEST_INFO( "Calling cyg_uitron_start()" ); | |
| 98 cyg_uitron_start(); | |
| 99 } | |
| 100 | |
| 101 VP vp; | |
| 102 | |
| 103 T_CMPL t_cmpl = { NULL, 0, 1000 }; | |
| 104 T_RMPL t_rmpl; | |
| 105 T_CMPF t_cmpf = { NULL, 0, 10, 100 }; | |
| 106 T_RMPF t_rmpf; | |
| 107 | |
| 108 | |
| 109 void task1( unsigned int arg ) | |
| 110 { | |
| 111 ER ercd; | |
| 112 int tests = 0; | |
| 113 | |
| 114 CYG_TEST_INFO( "Task 1 running" ); | |
| 115 | |
| 116 ercd = dis_dsp(); | |
| 117 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" ); | |
| 118 ercd = sta_tsk( 2, 22222 ); | |
| 119 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" ); | |
| 120 ercd = chg_pri( 2, 5 ); | |
| 121 CYG_TEST_CHECK( E_OK == ercd, "chg_pri bad ercd" ); | |
| 122 ercd = ena_dsp(); | |
| 123 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" ); | |
| 124 ercd = dly_tsk( 10 ); | |
| 125 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 126 | |
| 127 #ifdef CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE | |
| 128 tests++; | |
| 129 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 130 ercd = del_mpf( -6 ); | |
| 131 CYG_TEST_CHECK( E_ID == ercd, "del_mpf bad ercd !E_ID" ); | |
| 132 ercd = del_mpf( 99 ); | |
| 133 CYG_TEST_CHECK( E_ID == ercd, "del_mpf bad ercd !E_ID" ); | |
| 134 ercd = cre_mpf( -6, &t_cmpf ); | |
| 135 CYG_TEST_CHECK( E_ID == ercd, "cre_mpf bad ercd !E_ID" ); | |
| 136 ercd = cre_mpf( 99, &t_cmpf ); | |
| 137 CYG_TEST_CHECK( E_ID == ercd, "cre_mpf bad ercd !E_ID" ); | |
| 138 #endif // we can test bad param error returns | |
| 139 // try a pre-existing object | |
| 140 // [first get a valid block from it for the freeing test later] | |
| 141 ercd = pget_blf( &vp, 3 ); | |
| 142 CYG_TEST_CHECK( E_OK == ercd, "pget_blf bad ercd" ); | |
| 143 ercd = cre_mpf( 3, &t_cmpf ); | |
| 144 CYG_TEST_CHECK( E_OBJ == ercd, "cre_mpf bad ercd !E_OBJ" ); | |
| 145 // delete it so we can play | |
| 146 ercd = del_mpf( 3 ); | |
| 147 CYG_TEST_CHECK( E_OK == ercd, "del_mpf bad ercd" ); | |
| 148 // check it is deleted | |
| 149 ercd = rel_blf( 3, vp ); // vp did come from this pool | |
| 150 CYG_TEST_CHECK( E_NOEXS == ercd, "rel_blf bad ercd !E_NOEXS" ); | |
| 151 ercd = pget_blf( &vp, 3 ); | |
| 152 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blf bad ercd !E_NOEXS" ); | |
| 153 ercd = tget_blf( &vp, 3, 10 ); | |
| 154 CYG_TEST_CHECK( E_NOEXS == ercd, "tget_blf bad ercd !E_NOEXS" ); | |
| 155 ercd = get_blf( &vp, 3 ); | |
| 156 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blf bad ercd !E_NOEXS" ); | |
| 157 ercd = ref_mpf( &t_rmpf, 3 ); | |
| 158 CYG_TEST_CHECK( E_NOEXS == ercd, "ref_mpf bad ercd !E_NOEXS" ); | |
| 159 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 160 // now try creating it (badly) | |
| 161 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR | |
| 162 ercd = cre_mpf( 3, NULL ); | |
| 163 CYG_TEST_CHECK( E_PAR == ercd, "cre_mpf bad ercd !E_PAR" ); | |
| 164 #endif | |
| 165 ercd = cre_mpf( 3, NADR ); | |
| 166 CYG_TEST_CHECK( E_PAR == ercd, "cre_mpf bad ercd !E_PAR" ); | |
| 167 t_cmpf.mpfatr = 0xfff; | |
| 168 ercd = cre_mpf( 3, &t_cmpf ); | |
| 169 CYG_TEST_CHECK( E_RSATR == ercd, "cre_mpf bad ercd !E_RSATR" ); | |
| 170 #endif // we can test bad param error returns | |
| 171 t_cmpf.mpfatr = 0; | |
| 172 t_cmpf.mpfcnt = 10000; | |
| 173 t_cmpf.blfsz = 100; | |
| 174 ercd = cre_mpf( 3, &t_cmpf ); | |
| 175 CYG_TEST_CHECK( E_NOMEM == ercd, "cre_mpf bad ercd" ); | |
| 176 t_cmpf.mpfcnt = 100; | |
| 177 t_cmpf.blfsz = 100000; | |
| 178 ercd = cre_mpf( 3, &t_cmpf ); | |
| 179 CYG_TEST_CHECK( E_NOMEM == ercd, "cre_mpf bad ercd" ); | |
| 180 // now create it well | |
| 181 t_cmpf.mpfatr = 0; | |
| 182 t_cmpf.mpfcnt = 10; | |
| 183 t_cmpf.blfsz = 100; | |
| 184 ercd = cre_mpf( 3, &t_cmpf ); | |
| 185 CYG_TEST_CHECK( E_OK == ercd, "cre_mpf bad ercd" ); | |
| 186 // and check we can use it | |
| 187 ercd = pget_blf( &vp, 3 ); | |
| 188 CYG_TEST_CHECK( E_OK == ercd, "pget_blf bad ercd" ); | |
| 189 ercd = tget_blf( &vp, 3, 10 ); | |
| 190 CYG_TEST_CHECK( E_OK == ercd, "tget_blf bad ercd" ); | |
| 191 ercd = get_blf( &vp, 3 ); | |
| 192 CYG_TEST_CHECK( E_OK == ercd, "get_blf bad ercd" ); | |
| 193 ercd = rel_blf( 3, vp ); // vp did come from new pool | |
| 194 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" ); | |
| 195 ercd = rel_blf( 3, vp ); // vp already freed | |
| 196 CYG_TEST_CHECK( E_PAR == ercd, "rel_blf bad ercd !E_PAR" ); | |
| 197 ercd = ref_mpf( &t_rmpf, 3 ); | |
| 198 CYG_TEST_CHECK( E_OK == ercd, "ref_mpf bad ercd" ); | |
| 199 | |
| 200 // In order to wait on the pools, we must first consume all they have: | |
| 201 while ( E_OK == (ercd = pget_blf( &vp, 1 )) ) /* nothing */; | |
| 202 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" ); | |
| 203 while ( E_OK == (ercd = tget_blf( &vp, 2, 1 )) ) /* nothing */; | |
| 204 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf bad ercd !E_TMOUT" ); | |
| 205 // now wait while task 2 deletes the wait objects | |
| 206 ercd = wup_tsk( 2 ); | |
| 207 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 208 ercd = get_blf( &vp, 1 ); | |
| 209 CYG_TEST_CHECK( E_DLT == ercd, "get_blf bad ercd !E_DLT" ); | |
| 210 ercd = wup_tsk( 2 ); | |
| 211 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 212 ercd = tget_blf( &vp, 2, 20 ); | |
| 213 CYG_TEST_CHECK( E_DLT == ercd, "tget_blf bad ercd !E_DLT" ); | |
| 214 // check they are deleted | |
| 215 ercd = get_blf( &vp, 1 ); | |
| 216 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blf bad ercd !E_NOEXS" ); | |
| 217 ercd = pget_blf( &vp, 2 ); | |
| 218 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blf bad ercd !E_NOEXS" ); | |
| 219 | |
| 220 // re-create and do it again | |
| 221 t_cmpf.mpfcnt = 90; | |
| 222 t_cmpf.blfsz = 20; | |
| 223 ercd = cre_mpf( 1, &t_cmpf ); | |
| 224 CYG_TEST_CHECK( E_OK == ercd, "cre_mpf bad ercd" ); | |
| 225 t_cmpf.mpfcnt = 5; | |
| 226 t_cmpf.blfsz = 200; | |
| 227 ercd = cre_mpf( 2, &t_cmpf ); | |
| 228 CYG_TEST_CHECK( E_OK == ercd, "cre_mpf bad ercd" ); | |
| 229 | |
| 230 // In order to wait on the pools, we must first consume all they have: | |
| 231 while ( E_OK == (ercd = pget_blf( &vp, 1 )) ) /* nothing */; | |
| 232 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" ); | |
| 233 while ( E_OK == (ercd = tget_blf( &vp, 2, 1 )) ) /* nothing */; | |
| 234 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf bad ercd !E_TMOUT" ); | |
| 235 // now wait while task 2 deletes the wait objects | |
| 236 ercd = wup_tsk( 2 ); | |
| 237 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 238 ercd = get_blf( &vp, 1 ); | |
| 239 CYG_TEST_CHECK( E_DLT == ercd, "get_blf bad ercd !E_DLT" ); | |
| 240 ercd = wup_tsk( 2 ); | |
| 241 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 242 ercd = tget_blf( &vp, 2, 10 ); | |
| 243 CYG_TEST_CHECK( E_DLT == ercd, "tget_blf bad ercd !E_DLT" ); | |
| 244 // check they are deleted | |
| 245 ercd = tget_blf( &vp, 1, 1 ); | |
| 246 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blf bad ercd !E_NOEXS" ); | |
| 247 ercd = get_blf( &vp, 2 ); | |
| 248 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blf bad ercd !E_NOEXS" ); | |
| 249 | |
| 250 CYG_TEST_PASS("create/delete fixed mempools"); | |
| 251 #endif // CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE | |
| 252 | |
| 253 #ifdef CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE | |
| 254 tests++; | |
| 255 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 256 ercd = del_mpl( -6 ); | |
| 257 CYG_TEST_CHECK( E_ID == ercd, "del_mpl bad ercd !E_ID" ); | |
| 258 ercd = del_mpl( 99 ); | |
| 259 CYG_TEST_CHECK( E_ID == ercd, "del_mpl bad ercd !E_ID" ); | |
| 260 ercd = cre_mpl( -6, &t_cmpl ); | |
| 261 CYG_TEST_CHECK( E_ID == ercd, "cre_mpl bad ercd !E_ID" ); | |
| 262 ercd = cre_mpl( 99, &t_cmpl ); | |
| 263 CYG_TEST_CHECK( E_ID == ercd, "cre_mpl bad ercd !E_ID" ); | |
| 264 #endif // we can test bad param error returns | |
| 265 // try a pre-existing object | |
| 266 // [first get a valid block from it for the freeing test later] | |
| 267 ercd = pget_blk( &vp, 3, 100 ); | |
| 268 CYG_TEST_CHECK( E_OK == ercd, "pget_blk bad ercd" ); | |
| 269 ercd = cre_mpl( 3, &t_cmpl ); | |
| 270 CYG_TEST_CHECK( E_OBJ == ercd, "cre_mpl bad ercd !E_OBJ" ); | |
| 271 // delete it so we can play | |
| 272 ercd = del_mpl( 3 ); | |
| 273 CYG_TEST_CHECK( E_OK == ercd, "del_mpl bad ercd" ); | |
| 274 // check it is deleted | |
| 275 ercd = rel_blk( 3, vp ); // vp did come from this pool | |
| 276 CYG_TEST_CHECK( E_NOEXS == ercd, "rel_blk bad ercd !E_NOEXS" ); | |
| 277 ercd = pget_blk( &vp, 3, 100 ); | |
| 278 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blk bad ercd !E_NOEXS" ); | |
| 279 ercd = tget_blk( &vp, 3, 100, 10 ); | |
| 280 CYG_TEST_CHECK( E_NOEXS == ercd, "tget_blk bad ercd !E_NOEXS" ); | |
| 281 ercd = get_blk( &vp, 3, 100 ); | |
| 282 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blk bad ercd !E_NOEXS" ); | |
| 283 ercd = ref_mpl( &t_rmpl, 3 ); | |
| 284 CYG_TEST_CHECK( E_NOEXS == ercd, "ref_mpl bad ercd !E_NOEXS" ); | |
| 285 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS | |
| 286 // now try creating it (badly) | |
| 287 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR | |
| 288 ercd = cre_mpl( 3, NULL ); | |
| 289 CYG_TEST_CHECK( E_PAR == ercd, "cre_mpl bad ercd !E_PAR" ); | |
| 290 #endif | |
| 291 ercd = cre_mpl( 3, NADR ); | |
| 292 CYG_TEST_CHECK( E_PAR == ercd, "cre_mpl bad ercd !E_PAR" ); | |
| 293 t_cmpl.mplatr = 0xfff; | |
| 294 ercd = cre_mpl( 3, &t_cmpl ); | |
| 295 CYG_TEST_CHECK( E_RSATR == ercd, "cre_mpl bad ercd !E_RSATR" ); | |
| 296 #endif // we can test bad param error returns | |
| 297 t_cmpl.mplatr = 0; | |
| 298 t_cmpl.mplsz = 100000000; | |
| 299 ercd = cre_mpl( 3, &t_cmpl ); | |
| 300 CYG_TEST_CHECK( E_NOMEM == ercd, "cre_mpl bad ercd" ); | |
| 301 // now create it well | |
| 302 t_cmpl.mplatr = 0; | |
| 303 t_cmpl.mplsz = 1000; | |
| 304 ercd = cre_mpl( 3, &t_cmpl ); | |
| 305 CYG_TEST_CHECK( E_OK == ercd, "cre_mpl bad ercd" ); | |
| 306 // and check we can use it | |
| 307 ercd = pget_blk( &vp, 3, 100 ); | |
| 308 CYG_TEST_CHECK( E_OK == ercd, "pget_blk bad ercd" ); | |
| 309 ercd = pget_blk( &vp, 3, 100000000 ); // way too large | |
| 310 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" ); | |
| 311 ercd = tget_blk( &vp, 3, 100, 10 ); | |
| 312 CYG_TEST_CHECK( E_OK == ercd, "tget_blk bad ercd" ); | |
| 313 ercd = get_blk( &vp, 3, 100 ); | |
| 314 CYG_TEST_CHECK( E_OK == ercd, "get_blk bad ercd" ); | |
| 315 ercd = rel_blk( 3, vp ); // vp did come from new pool | |
| 316 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" ); | |
| 317 ercd = rel_blk( 3, vp ); // vp already freed | |
| 318 CYG_TEST_CHECK( E_PAR == ercd, "rel_blk bad ercd !E_PAR" ); | |
| 319 ercd = ref_mpl( &t_rmpl, 3 ); | |
| 320 CYG_TEST_CHECK( E_OK == ercd, "ref_mpl bad ercd" ); | |
| 321 | |
| 322 // In order to wait on the pools, we must first consume all they have: | |
| 323 while ( E_OK == (ercd = pget_blk( &vp, 1, 100 )) ) /* nothing */; | |
| 324 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" ); | |
| 325 while ( E_OK == (ercd = tget_blk( &vp, 2, 100, 1 )) ) /* nothing */; | |
| 326 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk bad ercd !E_TMOUT" ); | |
| 327 // now wait while task 2 deletes the wait objects | |
| 328 ercd = wup_tsk( 2 ); | |
| 329 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 330 ercd = get_blk( &vp, 1, 200 ); | |
| 331 CYG_TEST_CHECK( E_DLT == ercd, "get_blk bad ercd !E_DLT" ); | |
| 332 ercd = wup_tsk( 2 ); | |
| 333 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 334 ercd = tget_blk( &vp, 2, 100, 20 ); | |
| 335 CYG_TEST_CHECK( E_DLT == ercd, "tget_blk bad ercd !E_DLT" ); | |
| 336 // check they are deleted | |
| 337 ercd = get_blk( &vp, 1, 200 ); | |
| 338 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blk bad ercd !E_NOEXS" ); | |
| 339 ercd = pget_blk( &vp, 2, 20 ); | |
| 340 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blk bad ercd !E_NOEXS" ); | |
| 341 | |
| 342 // re-create and do it again | |
| 343 ercd = cre_mpl( 1, &t_cmpl ); | |
| 344 CYG_TEST_CHECK( E_OK == ercd, "cre_mpl bad ercd" ); | |
| 345 ercd = cre_mpl( 2, &t_cmpl ); | |
| 346 CYG_TEST_CHECK( E_OK == ercd, "cre_mpl bad ercd" ); | |
| 347 | |
| 348 // In order to wait on the pools, we must first consume all they have: | |
| 349 while ( E_OK == (ercd = pget_blk( &vp, 1, 20 )) ) /* nothing */; | |
| 350 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" ); | |
| 351 while ( E_OK == (ercd = tget_blk( &vp, 2, 400, 1 )) ) /* nothing */; | |
| 352 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk bad ercd !E_TMOUT" ); | |
| 353 // now wait while task 2 deletes the wait objects | |
| 354 ercd = wup_tsk( 2 ); | |
| 355 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 356 ercd = get_blk( &vp, 1, 200 ); | |
| 357 CYG_TEST_CHECK( E_DLT == ercd, "get_blk bad ercd !E_DLT" ); | |
| 358 ercd = wup_tsk( 2 ); | |
| 359 CYG_TEST_CHECK( E_OK == ercd, "wup_tsk bad ercd" ); | |
| 360 ercd = tget_blk( &vp, 2, 500, 20 ); | |
| 361 CYG_TEST_CHECK( E_DLT == ercd, "tget_blk bad ercd !E_DLT" ); | |
| 362 // check they are deleted | |
| 363 ercd = tget_blk( &vp, 1, 200, 1 ); | |
| 364 CYG_TEST_CHECK( E_NOEXS == ercd, "get_blk bad ercd !E_NOEXS" ); | |
| 365 ercd = get_blk( &vp, 2, 20 ); | |
| 366 CYG_TEST_CHECK( E_NOEXS == ercd, "pget_blk bad ercd !E_NOEXS" ); | |
| 367 | |
| 368 CYG_TEST_PASS("create/delete variable mempools"); | |
| 369 #endif // CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE | |
| 370 | |
| 371 ercd = ter_tsk( 2 ); | |
| 372 CYG_TEST_CHECK( E_OK == ercd, "ter_tsk bad ercd" ); | |
| 373 ercd = dly_tsk( 5 ); | |
| 374 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" ); | |
| 375 | |
| 376 // all done | |
| 377 if ( 0 == tests ) { | |
| 2 | 378 CYG_TEST_NA( "No objects have create/delete enabled" ); |
| 0 | 379 } |
| 380 else { | |
| 381 CYG_TEST_EXIT( "All done" ); | |
| 382 } | |
| 383 ext_tsk(); | |
| 384 } | |
| 385 | |
| 386 | |
| 387 | |
| 388 void task2( unsigned int arg ) | |
| 389 { | |
| 390 ER ercd; | |
| 391 int i; | |
| 392 CYG_TEST_INFO( "Task 2 running" ); | |
| 393 ercd = get_tid( &i ); | |
| 394 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" ); | |
| 395 CYG_TEST_CHECK( 2 == i, "tid not 2" ); | |
| 396 if ( 22222 != arg ) | |
| 397 CYG_TEST_FAIL( "Task 2 arg not 22222" ); | |
| 398 | |
| 399 ercd = slp_tsk(); | |
| 400 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 401 | |
| 402 #ifdef CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE | |
| 403 ercd = del_mpf( 1 ); | |
| 404 CYG_TEST_CHECK( E_OK == ercd, "del_mpf bad ercd" ); | |
| 405 ercd = slp_tsk(); | |
| 406 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 407 ercd = del_mpf( 2 ); | |
| 408 CYG_TEST_CHECK( E_OK == ercd, "del_mpf bad ercd" ); | |
| 409 ercd = slp_tsk(); | |
| 410 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 411 ercd = del_mpf( 1 ); | |
| 412 CYG_TEST_CHECK( E_OK == ercd, "del_mpf bad ercd" ); | |
| 413 ercd = slp_tsk(); | |
| 414 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 415 ercd = del_mpf( 2 ); | |
| 416 CYG_TEST_CHECK( E_OK == ercd, "del_mpf bad ercd" ); | |
| 417 ercd = slp_tsk(); | |
| 418 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 419 #endif // CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE | |
| 420 | |
| 421 #ifdef CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE | |
| 422 ercd = del_mpl( 1 ); | |
| 423 CYG_TEST_CHECK( E_OK == ercd, "del_mpl bad ercd" ); | |
| 424 ercd = slp_tsk(); | |
| 425 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 426 ercd = del_mpl( 2 ); | |
| 427 CYG_TEST_CHECK( E_OK == ercd, "del_mpl bad ercd" ); | |
| 428 ercd = slp_tsk(); | |
| 429 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 430 ercd = del_mpl( 1 ); | |
| 431 CYG_TEST_CHECK( E_OK == ercd, "del_mpl bad ercd" ); | |
| 432 ercd = slp_tsk(); | |
| 433 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 434 ercd = del_mpl( 2 ); | |
| 435 CYG_TEST_CHECK( E_OK == ercd, "del_mpl bad ercd" ); | |
| 436 ercd = slp_tsk(); | |
| 437 CYG_TEST_CHECK( E_OK == ercd, "slp_tsk bad ercd" ); | |
| 438 #endif // CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE | |
| 439 | |
| 440 // we expect task2 to be killed here | |
| 441 CYG_TEST_FAIL( "Task 2 ran to completion!" ); | |
| 442 } | |
| 443 | |
| 444 void task3( unsigned int arg ) | |
| 445 { | |
| 446 } | |
| 447 | |
| 448 void task4( unsigned int arg ) | |
| 449 { | |
| 450 } | |
| 451 | |
| 452 #else // not enough (or too many) uITRON objects configured in | |
| 453 #define N_A_MSG "not enough uITRON objects to run test" | |
| 454 #endif // not enough (or too many) uITRON objects configured in | |
| 455 #else // not C++ and some C++ specific options enabled | |
| 456 #define N_A_MSG "C++ specific options selected but this is C" | |
| 457 #endif // not C++ and some C++ specific options enabled | |
| 458 #else // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 459 #define N_A_MSG "no CYGVAR_KERNEL_COUNTERS_CLOCK" | |
| 460 #endif // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it | |
| 461 #else // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it | |
| 462 #define N_A_MSG "no CYGFUN_KERNEL_THREADS_TIMER" | |
| 463 #endif // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it | |
| 464 #else // ! CYGIMP_THREAD_PRIORITY - can't test without it | |
| 465 #define N_A_MSG "no CYGSEM_KERNEL_SCHED_MLQUEUE" | |
| 466 #endif // ! CYGSEM_KERNEL_SCHED_MLQUEUE - can't test without it | |
| 467 #else // ! CYGPKG_UITRON | |
| 468 #define N_A_MSG "uITRON Compatibility layer disabled" | |
| 469 #endif // CYGPKG_UITRON | |
| 470 | |
| 471 #ifdef N_A_MSG | |
| 472 void | |
| 473 cyg_start( void ) | |
| 474 { | |
| 475 CYG_TEST_INIT(); | |
| 2 | 476 CYG_TEST_NA( N_A_MSG ); |
| 0 | 477 } |
| 478 #endif // N_A_MSG defined ie. we are N/A. | |
| 479 | |
| 480 // EOF test9.c |