annotate packages/compat/uitron/current/tests/testcx2.cxx @ 2:443894e2e912 ecos-v1_2_1-release

Block commit of eCos version 1.2.1
author jlarmour
date Tue, 11 May 1999 12:24:34 +0000
parents 3111d98ba7b3
children c38311975d4f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
1 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
2 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
3 // testcx2.cxx
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
4 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
5 // uITRON "C++" test program two
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
6 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
7 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
8 //####COPYRIGHTBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
9 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
10 // -------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
11 // The contents of this file are subject to the Cygnus eCos Public License
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
12 // Version 1.0 (the "License"); you may not use this file except in
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
13 // compliance with the License. You may obtain a copy of the License at
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
14 // http://sourceware.cygnus.com/ecos
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
15 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
16 // Software distributed under the License is distributed on an "AS IS"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
18 // License for the specific language governing rights and limitations under
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
19 // the License.
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
20 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
21 // The Original Code is eCos - Embedded Cygnus Operating System, released
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
22 // September 30, 1998.
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
23 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
24 // The Initial Developer of the Original Code is Cygnus. Portions created
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
25 // by Cygnus are Copyright (C) 1998,1999 Cygnus Solutions. All Rights Reserved.
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
26 // -------------------------------------------
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
27 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
28 //####COPYRIGHTEND####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
29 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
30 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
31 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
32 // Author(s): hmt
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
33 // Contributors: hmt
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
34 // Date: 1998-03-13
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
35 // Purpose: uITRON API testing
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
36 // Description:
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
37 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
38 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
39 //
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
40 //===========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
41
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
42 #include <pkgconf/uitron.h> // uITRON setup CYGNUM_UITRON_SEMAS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
43 // CYGPKG_UITRON et al
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
44 #include <cyg/infra/testcase.h> // testing infrastructure
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
45
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
46 #ifdef CYGPKG_UITRON // we DO want the uITRON package
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
47
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
48 #ifdef CYGSEM_KERNEL_SCHED_MLQUEUE // we DO want prioritized threads
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
49
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
50 #ifdef CYGFUN_KERNEL_THREADS_TIMER // we DO want timout-able calls
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
51
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
52 #ifdef CYGVAR_KERNEL_COUNTERS_CLOCK // we DO want the realtime clock
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
53
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
54 // we're OK if it's C++ or neither of those two is defined:
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
55 #if defined( __cplusplus ) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
56 (!defined( CYGIMP_UITRON_INLINE_FUNCS ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
57 !defined( CYGIMP_UITRON_CPP_OUTLINE_FUNCS) )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
58
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
59 // =================== TEST CONFIGURATION ===================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
60 #if \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
61 /* test configuration for enough tasks */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
62 (CYGNUM_UITRON_TASKS >= 4) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
63 (CYGNUM_UITRON_TASKS < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
64 (CYGNUM_UITRON_START_TASKS == 1) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
65 ( !defined(CYGPKG_UITRON_TASKS_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
66 CYGNUM_UITRON_TASKS_INITIALLY >= 4 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
67 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
68 /* test configuration for enough semaphores */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
69 defined( CYGPKG_UITRON_SEMAS ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
70 (CYGNUM_UITRON_SEMAS >= 3) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
71 (CYGNUM_UITRON_SEMAS < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
72 ( !defined(CYGPKG_UITRON_SEMAS_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
73 CYGNUM_UITRON_SEMAS_INITIALLY >= 3 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
74 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
75 /* test configuration for enough flag objects */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
76 defined( CYGPKG_UITRON_FLAGS ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
77 (CYGNUM_UITRON_FLAGS >= 3) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
78 (CYGNUM_UITRON_FLAGS < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
79 ( !defined(CYGPKG_UITRON_FLAGS_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
80 CYGNUM_UITRON_FLAGS_INITIALLY >= 3 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
81 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
82 /* test configuration for enough message boxes */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
83 defined( CYGPKG_UITRON_MBOXES ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
84 (CYGNUM_UITRON_MBOXES >= 3) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
85 (CYGNUM_UITRON_MBOXES < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
86 ( !defined(CYGPKG_UITRON_MBOXES_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
87 CYGNUM_UITRON_MBOXES_INITIALLY >= 3 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
88 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
89 /* test configuration for enough fixed memory pools */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
90 defined( CYGPKG_UITRON_MEMPOOLFIXED ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
91 (CYGNUM_UITRON_MEMPOOLFIXED >= 3) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
92 (CYGNUM_UITRON_MEMPOOLFIXED < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
93 ( !defined(CYGPKG_UITRON_MEMPOOLFIXED_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
94 CYGNUM_UITRON_MEMPOOLFIXED_INITIALLY >= 3 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
95 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
96 /* test configuration for enough variable mempools */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
97 defined( CYGPKG_UITRON_MEMPOOLVAR ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
98 (CYGNUM_UITRON_MEMPOOLVAR >= 3) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
99 (CYGNUM_UITRON_MEMPOOLVAR < 90) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
100 ( !defined(CYGPKG_UITRON_MEMPOOLVAR_CREATE_DELETE) || \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
101 CYGNUM_UITRON_MEMPOOLVAR_INITIALLY >= 3 ) && \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
102 \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
103 /* the end of the large #if statement */ \
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
104 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
105
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
106 // ============================ END ============================
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
107
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
108
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
109
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
110 #include <cyg/compat/uitron/uit_func.h> // uITRON
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
111
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
112 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
113 cyg_package_start( void )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
114 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
115 CYG_TEST_INIT();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
116 CYG_TEST_INFO( "Calling cyg_uitron_start()" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
117 cyg_uitron_start();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
118 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
119
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
120 int intercom = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
121 int intercount = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
122 INT scratch = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
123
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
124 extern "C" {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
125 void task1( unsigned int arg );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
126 void task2( unsigned int arg );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
127 void task3( unsigned int arg );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
128 void task4( unsigned int arg );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
129 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
130
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
131 void task1( unsigned int arg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
132 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
133 ER ercd;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
134
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
135 T_RSEM sem_info;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
136 T_RFLG flg_info;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
137 T_RMBX mbx_info;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
138 T_RMPF mpf_info;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
139 T_RMPL mpl_info;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
140 UINT flagptn;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
141 static char foo[] = "Test message";
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
142 T_MSG *msgptr = (T_MSG *)foo;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
143 T_MSG *rxptr = NULL;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
144 VP blfptr = (VP)foo;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
145 VP blkptr = (VP)foo;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
146
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
147 int delay = 10;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
148 if (cyg_test_is_simulator)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
149 delay = 3;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
150
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
151 CYG_TEST_INFO( "Task 1 running" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
152 ercd = get_tid( &scratch );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
153 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
154 CYG_TEST_CHECK( 1 == scratch, "tid not 1" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
155
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
156 // start a lower prio task to interact with
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
157 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
158 ercd = sta_tsk( 2, 222 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
159 CYG_TEST_CHECK( E_OK == ercd, "sta_tsk bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
160 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
161 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
162
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
163 // Semaphores; all the illegal argument combinations first
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
164 CYG_TEST_INFO( "Testing semaphore ops" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
165 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
166 ercd = sig_sem( -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
167 CYG_TEST_CHECK( E_ID == ercd, "sig_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
168 ercd = sig_sem( 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
169 CYG_TEST_CHECK( E_ID == ercd, "sig_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
170 ercd = wai_sem( -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
171 CYG_TEST_CHECK( E_ID == ercd, "wai_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
172 ercd = wai_sem( 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
173 CYG_TEST_CHECK( E_ID == ercd, "wai_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
174 ercd = preq_sem( -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
175 CYG_TEST_CHECK( E_ID == ercd, "preq_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
176 ercd = preq_sem( 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
177 CYG_TEST_CHECK( E_ID == ercd, "preq_sem bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
178 ercd = twai_sem( -6, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
179 CYG_TEST_CHECK( E_ID == ercd, "twai_sem bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
180 ercd = twai_sem( 99, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
181 CYG_TEST_CHECK( E_ID == ercd, "twai_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
182 ercd = twai_sem( 2, -999 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
183 CYG_TEST_CHECK( E_PAR == ercd, "twai_sem bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
184 ercd = ref_sem( &sem_info, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
185 CYG_TEST_CHECK( E_ID == ercd, "ref_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
186 ercd = ref_sem( &sem_info, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
187 CYG_TEST_CHECK( E_ID == ercd, "ref_sem bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
188 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
189 ercd = ref_sem( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
190 CYG_TEST_CHECK( E_PAR == ercd, "ref_sem bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
191 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
192 CYG_TEST_PASS( "bad calls: sig_sem, [t]wai_sem, preq_sem, ref_sem" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
193 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
194
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
195 // check the waitable functions versus dispatch disable
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
196 ercd = preq_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
197 CYG_TEST_CHECK( E_TMOUT == ercd, "preq_sem bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
198 ercd = twai_sem( 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
199 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_sem bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
200 ercd = twai_sem( 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
201 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_sem(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
202 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
203 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
204 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
205 ercd = wai_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
206 CYG_TEST_CHECK( E_CTX == ercd, "wai_sem bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
207 ercd = twai_sem( 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
208 CYG_TEST_CHECK( E_CTX == ercd, "twai_sem bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
209 ercd = twai_sem( 2, TMO_FEVR );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
210 CYG_TEST_CHECK( E_CTX == ercd, "twai_sem(FEVR) bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
211 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
212 ercd = twai_sem( 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
213 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_sem(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
214 ercd = preq_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
215 CYG_TEST_CHECK( E_TMOUT == ercd, "preq_sem bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
216 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
217 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
218 ercd = preq_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
219 CYG_TEST_CHECK( E_TMOUT == ercd, "preq_sem bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
220 ercd = twai_sem( 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
221 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_sem bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
222 ercd = twai_sem( 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
223 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_sem(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
224 CYG_TEST_PASS( "bad calls: wai_sem, twai_sem with dis_dsp" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
225
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
226 // check ref_sem with various states
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
227 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
228 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
229 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
230 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
231 ercd = sig_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
232 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
233 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
234 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
235 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
236 CYG_TEST_CHECK( 1 == sem_info.semcnt, "semcnt should be 1" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
237 ercd = preq_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
238 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
239 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
240 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
241 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
242 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
243 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
244 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
245 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
246 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
247 ercd = sig_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
248 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
249 ercd = sig_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
250 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
251 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
252 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
253 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
254 CYG_TEST_CHECK( 2 == sem_info.semcnt, "semcnt should be 2" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
255 ercd = wai_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
256 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
257 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
258 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
259 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
260 CYG_TEST_CHECK( 1 == sem_info.semcnt, "semcnt should be 1" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
261 ercd = twai_sem( 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
262 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
263 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
264 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
265 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
266 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
267 intercom = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
268 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
269 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
270 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
271 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
272 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
273 CYG_TEST_CHECK( 0 != sem_info.wtsk, "sem.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
274 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
275 ercd = sig_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
276 CYG_TEST_CHECK( E_OK == ercd, "sig_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
277 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
278 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
279 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
280 #if 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
281 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
282 #else // old, non-uITRON semantics
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
283 CYG_TEST_CHECK( 1 == sem_info.semcnt, "semcnt should be 1" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
284 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
285 ercd = dly_tsk( delay ); // let task 2 pick up the signal
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
286 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
287 ercd = ref_sem( &sem_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
288 CYG_TEST_CHECK( E_OK == ercd, "ref_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
289 CYG_TEST_CHECK( 0 == sem_info.wtsk, "sem.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
290 CYG_TEST_CHECK( 0 == sem_info.semcnt, "semcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
291 CYG_TEST_PASS( "good calls: sig_sem, [t]wai,preq_sem with ref_sem" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
292
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
293 // Flags; all the illegal argument combinations first
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
294 CYG_TEST_INFO( "Testing flag ops" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
295 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
296 ercd = set_flg( -6, 1 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
297 CYG_TEST_CHECK( E_ID == ercd, "set_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
298 ercd = set_flg( 99, 1 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
299 CYG_TEST_CHECK( E_ID == ercd, "set_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
300 ercd = clr_flg( -6, 1 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
301 CYG_TEST_CHECK( E_ID == ercd, "clr_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
302 ercd = clr_flg( 99, 1 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
303 CYG_TEST_CHECK( E_ID == ercd, "sig_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
304 ercd = wai_flg( &flagptn, -6, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
305 CYG_TEST_CHECK( E_ID == ercd, "wai_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
306 ercd = wai_flg( &flagptn, 99, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
307 CYG_TEST_CHECK( E_ID == ercd, "wai_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
308 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
309 ercd = wai_flg( NULL, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
310 CYG_TEST_CHECK( E_PAR == ercd, "wai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
311 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
312 ercd = wai_flg( &flagptn, 2, 7, 34657 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
313 CYG_TEST_CHECK( E_PAR == ercd, "wai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
314 ercd = wai_flg( &flagptn, 2, 0, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
315 CYG_TEST_CHECK( E_PAR == ercd, "wai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
316 ercd = pol_flg( &flagptn, -6, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
317 CYG_TEST_CHECK( E_ID == ercd, "pol_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
318 ercd = pol_flg( &flagptn, 99, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
319 CYG_TEST_CHECK( E_ID == ercd, "pol_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
320 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
321 ercd = pol_flg( NULL, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
322 CYG_TEST_CHECK( E_PAR == ercd, "pol_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
323 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
324 ercd = pol_flg( &flagptn, 2, 7, 34657 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
325 CYG_TEST_CHECK( E_PAR == ercd, "pol_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
326 ercd = pol_flg( &flagptn, 2, 0, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
327 CYG_TEST_CHECK( E_PAR == ercd, "pol_flg bad ercd !E_PAR" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
328 ercd = twai_flg( &flagptn, -6, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
329 CYG_TEST_CHECK( E_ID == ercd, "twai_flg bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
330 ercd = twai_flg( &flagptn, 99, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
331 CYG_TEST_CHECK( E_ID == ercd, "twai_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
332 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
333 ercd = twai_flg( NULL, 2, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
334 CYG_TEST_CHECK( E_PAR == ercd, "twai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
335 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
336 ercd = twai_flg( &flagptn, 2, 7, 34657, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
337 CYG_TEST_CHECK( E_PAR == ercd, "twai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
338 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, -999 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
339 CYG_TEST_CHECK( E_PAR == ercd, "twai_flg bad ercd !E_PAR" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
340 ercd = twai_flg( &flagptn, 2, 0, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
341 CYG_TEST_CHECK( E_PAR == ercd, "twai_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
342 ercd = ref_flg( &flg_info, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
343 CYG_TEST_CHECK( E_ID == ercd, "ref_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
344 ercd = ref_flg( &flg_info, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
345 CYG_TEST_CHECK( E_ID == ercd, "ref_flg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
346 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
347 ercd = ref_flg( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
348 CYG_TEST_CHECK( E_PAR == ercd, "ref_flg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
349 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
350 CYG_TEST_PASS( "bad calls: set_flg, clr_flg, [t]wai,pol_flg, ref_flg" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
351 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
352
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
353 // check the waitable functions versus dispatch disable
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
354 ercd = pol_flg( &flagptn, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
355 CYG_TEST_CHECK( E_TMOUT == ercd, "pol_flg bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
356 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
357 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_flg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
358 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
359 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_flg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
360 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
361 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
362 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
363 ercd = wai_flg( &flagptn, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
364 CYG_TEST_CHECK( E_CTX == ercd, "wai_flg bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
365 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
366 CYG_TEST_CHECK( E_CTX == ercd, "twai_flg bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
367 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, TMO_FEVR );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
368 CYG_TEST_CHECK( E_CTX == ercd, "twai_flg(FEVR) bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
369 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
370 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
371 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_flg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
372 ercd = pol_flg( &flagptn, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
373 CYG_TEST_CHECK( E_TMOUT == ercd, "pol_flg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
374 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
375 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
376 ercd = pol_flg( &flagptn, 2, 7, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
377 CYG_TEST_CHECK( E_TMOUT == ercd, "pol_flg bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
378 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
379 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_flg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
380 ercd = twai_flg( &flagptn, 2, 7, TWF_ANDW, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
381 CYG_TEST_CHECK( E_TMOUT == ercd, "twai_flg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
382 CYG_TEST_PASS( "bad calls: wai_flg, twai_flg with dis_dsp" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
383
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
384 // check ref_flg with various states
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
385 ercd = ref_flg( &flg_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
386 CYG_TEST_CHECK( E_OK == ercd, "ref_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
387 CYG_TEST_CHECK( 0 == flg_info.wtsk, "flg.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
388 CYG_TEST_CHECK( 0 == flg_info.flgptn, "flgptn should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
389 intercom = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
390 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
391 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
392 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
393 ercd = ref_flg( &flg_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
394 CYG_TEST_CHECK( E_OK == ercd, "ref_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
395 CYG_TEST_CHECK( 0 != flg_info.wtsk, "flg.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
396 CYG_TEST_CHECK( 0 == flg_info.flgptn, "flgptn should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
397 ercd = set_flg( 2, 0x5555 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
398 CYG_TEST_CHECK( E_OK == ercd, "sig_flg bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
399 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
400 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
401 ercd = ref_flg( &flg_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
402 CYG_TEST_CHECK( E_OK == ercd, "ref_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
403 CYG_TEST_CHECK( 0 != flg_info.wtsk, "flg.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
404 CYG_TEST_CHECK( 0x5555 == flg_info.flgptn, "flgptn should be 0x5555" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
405 ercd = clr_flg( 2, 0xF0F0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
406 CYG_TEST_CHECK( E_OK == ercd, "clr_flg bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
407 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
408 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
409 ercd = ref_flg( &flg_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
410 CYG_TEST_CHECK( E_OK == ercd, "ref_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
411 CYG_TEST_CHECK( 0 != flg_info.wtsk, "flg.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
412 CYG_TEST_CHECK( 0x5050 == flg_info.flgptn, "flgptn should be 0x5050" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
413 ercd = set_flg( 2, 0xFFFF );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
414 CYG_TEST_CHECK( E_OK == ercd, "sig_flg bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
415 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
416 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
417 ercd = ref_flg( &flg_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
418 CYG_TEST_CHECK( E_OK == ercd, "ref_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
419 CYG_TEST_CHECK( 0 == flg_info.wtsk, "flg.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
420 CYG_TEST_CHECK( 0xFFFF == flg_info.flgptn, "flgptn should be 0xFFFF" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
421 CYG_TEST_PASS( "good calls: clr_flg, set_flg, wai_flg with ref_flg" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
422
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
423 // Mailboxes; all the illegal argument combinations first
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
424 CYG_TEST_INFO( "Testing mailbox ops" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
425 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
426 ercd = snd_msg( -6, msgptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
427 CYG_TEST_CHECK( E_ID == ercd, "snd_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
428 ercd = snd_msg( 99, msgptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
429 CYG_TEST_CHECK( E_ID == ercd, "snd_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
430 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
431 ercd = snd_msg( 2, NULL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
432 CYG_TEST_CHECK( E_PAR == ercd, "snd_msg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
433 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
434 ercd = rcv_msg( &rxptr, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
435 CYG_TEST_CHECK( E_ID == ercd, "rcv_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
436 ercd = rcv_msg( &rxptr, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
437 CYG_TEST_CHECK( E_ID == ercd, "rcv_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
438 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
439 ercd = rcv_msg( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
440 CYG_TEST_CHECK( E_PAR == ercd, "rcv_msg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
441 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
442 ercd = prcv_msg( &rxptr, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
443 CYG_TEST_CHECK( E_ID == ercd, "prcv_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
444 ercd = prcv_msg( &rxptr, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
445 CYG_TEST_CHECK( E_ID == ercd, "prcv_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
446 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
447 ercd = prcv_msg( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
448 CYG_TEST_CHECK( E_PAR == ercd, "prcv_msg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
449 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
450 ercd = trcv_msg( &rxptr, -6, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
451 CYG_TEST_CHECK( E_ID == ercd, "trcv_msg bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
452 ercd = trcv_msg( &rxptr, 99, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
453 CYG_TEST_CHECK( E_ID == ercd, "trcv_msg bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
454 ercd = trcv_msg( &rxptr, 2, -999 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
455 CYG_TEST_CHECK( E_PAR == ercd, "trcv_msg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
456 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
457 ercd = trcv_msg( NULL, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
458 CYG_TEST_CHECK( E_PAR == ercd, "trcv_msg bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
459 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
460 ercd = ref_mbx( &mbx_info, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
461 CYG_TEST_CHECK( E_ID == ercd, "ref_mbx bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
462 ercd = ref_mbx( &mbx_info, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
463 CYG_TEST_CHECK( E_ID == ercd, "ref_mbx bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
464 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
465 ercd = ref_mbx( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
466 CYG_TEST_CHECK( E_PAR == ercd, "ref_mbx bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
467 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
468 CYG_TEST_PASS( "bad calls: snd_msg, [pt]rcv_msg, ref_mbx" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
469 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
470
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
471 // check the waitable functions versus dispatch disable
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
472 ercd = prcv_msg( &rxptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
473 CYG_TEST_CHECK( E_TMOUT == ercd, "prcv_msg bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
474 ercd = trcv_msg( &rxptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
475 CYG_TEST_CHECK( E_TMOUT == ercd, "trcv_msg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
476 ercd = trcv_msg( &rxptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
477 CYG_TEST_CHECK( E_TMOUT == ercd, "trcv_msg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
478 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
479 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
480 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
481 ercd = rcv_msg( &rxptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
482 CYG_TEST_CHECK( E_CTX == ercd, "rcv_msg bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
483 ercd = trcv_msg( &rxptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
484 CYG_TEST_CHECK( E_CTX == ercd, "trcv_msg bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
485 ercd = trcv_msg( &rxptr, 2, TMO_FEVR );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
486 CYG_TEST_CHECK( E_CTX == ercd, "trcv_msg(FEVR) bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
487 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
488 ercd = trcv_msg( &rxptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
489 CYG_TEST_CHECK( E_TMOUT == ercd, "trcv_msg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
490 ercd = prcv_msg( &rxptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
491 CYG_TEST_CHECK( E_TMOUT == ercd, "prcv_msg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
492 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
493 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
494 ercd = prcv_msg( &rxptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
495 CYG_TEST_CHECK( E_TMOUT == ercd, "prcv_msg bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
496 ercd = trcv_msg( &rxptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
497 CYG_TEST_CHECK( E_TMOUT == ercd, "trcv_msg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
498 ercd = trcv_msg( &rxptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
499 CYG_TEST_CHECK( E_TMOUT == ercd, "trcv_msg(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
500 CYG_TEST_PASS( "bad calls: rcv_msg, trcv_msg with dis_dsp" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
501
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
502 // check ref_mbx with various states
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
503 ercd = ref_mbx( &mbx_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
504 CYG_TEST_CHECK( E_OK == ercd, "ref_mbx bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
505 CYG_TEST_CHECK( 0 == mbx_info.wtsk, "mbx.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
506 CYG_TEST_CHECK( NADR == mbx_info.pk_msg, "mbx peek should be NADR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
507 intercom = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
508 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
509 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
510 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
511 ercd = ref_mbx( &mbx_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
512 CYG_TEST_CHECK( E_OK == ercd, "ref_mbx bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
513 CYG_TEST_CHECK( 0 != mbx_info.wtsk, "mbx.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
514 CYG_TEST_CHECK( NADR == mbx_info.pk_msg, "mbx peek should be NADR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
515 ercd = snd_msg( 2, msgptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
516 CYG_TEST_CHECK( E_OK == ercd, "snd_msg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
517 ercd = ref_mbx( &mbx_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
518 CYG_TEST_CHECK( E_OK == ercd, "ref_mbx bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
519 CYG_TEST_CHECK( 0 == mbx_info.wtsk, "mbx.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
520 #if 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
521 CYG_TEST_CHECK( NADR == mbx_info.pk_msg, "mbx peek should be NADR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
522 #else // old, non-uITRON semantics
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
523 CYG_TEST_CHECK( msgptr == mbx_info.pk_msg, "mbx peek should be msgptr" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
524 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
525 ercd = dly_tsk( delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
526 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
527 ercd = ref_mbx( &mbx_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
528 CYG_TEST_CHECK( E_OK == ercd, "ref_mbx bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
529 CYG_TEST_CHECK( 0 == mbx_info.wtsk, "mbx.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
530 CYG_TEST_CHECK( NADR == mbx_info.pk_msg, "mbx peek should be NADR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
531 // fill the message box, expect E_QOVR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
532 for ( scratch = 0 ; scratch < 100 ; scratch++ ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
533 if ( E_OK != ( ercd = snd_msg( 2, msgptr ) ) )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
534 break;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
535 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
536 CYG_TEST_CHECK( (100 == scratch) || (E_QOVR == ercd),
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
537 "snd_msg bad ercd !E_QOVR/E_OK" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
538 // empty the message box, expect the right number and E_TMOUT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
539 for ( ; 1 ; scratch-- ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
540 if ( E_OK != ( ercd = prcv_msg( &rxptr, 2 ) ) )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
541 break;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
542 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
543 CYG_TEST_CHECK( 0 == scratch, "rcv_msg count bad scratch!=0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
544 CYG_TEST_CHECK( E_TMOUT == ercd, "rcv_msg bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
545
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
546 CYG_TEST_PASS( "good calls: rcv_msg, snd_msg with ref_msg" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
547
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
548 // Fixed block memory pools: all the illegal argument combinations first
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
549 CYG_TEST_INFO( "Testing fixed block memory ops" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
550 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
551 ercd = rel_blf( -6, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
552 CYG_TEST_CHECK( E_ID == ercd, "rel_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
553 ercd = rel_blf( 99, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
554 CYG_TEST_CHECK( E_ID == ercd, "rel_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
555 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
556 ercd = rel_blf( 2, NULL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
557 CYG_TEST_CHECK( E_PAR == ercd, "rel_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
558 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
559 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
560 ercd = rel_blf( 2, blfptr ); // it did not come from a mpf
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
561 CYG_TEST_CHECK( E_PAR == ercd, "rel_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
562 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
563 ercd = get_blf( &blfptr, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
564 CYG_TEST_CHECK( E_ID == ercd, "get_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
565 ercd = get_blf( &blfptr, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
566 CYG_TEST_CHECK( E_ID == ercd, "get_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
567 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
568 ercd = get_blf( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
569 CYG_TEST_CHECK( E_PAR == ercd, "get_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
570 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
571 ercd = pget_blf( &blfptr, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
572 CYG_TEST_CHECK( E_ID == ercd, "pget_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
573 ercd = pget_blf( &blfptr, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
574 CYG_TEST_CHECK( E_ID == ercd, "pget_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
575 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
576 ercd = pget_blf( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
577 CYG_TEST_CHECK( E_PAR == ercd, "pget_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
578 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
579 ercd = tget_blf( &blfptr, -6, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
580 CYG_TEST_CHECK( E_ID == ercd, "tget_blf bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
581 ercd = tget_blf( &blfptr, 99, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
582 CYG_TEST_CHECK( E_ID == ercd, "tget_blf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
583 ercd = tget_blf( &blfptr, 2, -999 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
584 CYG_TEST_CHECK( E_PAR == ercd, "tget_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
585 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
586 ercd = tget_blf( NULL, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
587 CYG_TEST_CHECK( E_PAR == ercd, "tget_blf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
588 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
589 ercd = ref_mpf( &mpf_info, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
590 CYG_TEST_CHECK( E_ID == ercd, "ref_mpf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
591 ercd = ref_mpf( &mpf_info, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
592 CYG_TEST_CHECK( E_ID == ercd, "ref_mpf bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
593 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
594 ercd = ref_mpf( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
595 CYG_TEST_CHECK( E_PAR == ercd, "ref_mpf bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
596 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
597 CYG_TEST_PASS( "bad calls: rel_blf, [pt]get_blf, ref_mpf " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
598 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
599
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
600 // check the waitable functions versus dispatch disable
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
601 ercd = pget_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
602 CYG_TEST_CHECK( E_OK == ercd, "pget_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
603 ercd = rel_blf( 2, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
604 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
605 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
606 CYG_TEST_CHECK( E_OK == ercd, "tget_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
607 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
608 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
609 ercd = rel_blf( 2, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
610 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
611 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
612 ercd = get_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
613 CYG_TEST_CHECK( E_CTX == ercd, "get_blf bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
614 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
615 CYG_TEST_CHECK( E_CTX == ercd, "tget_blf bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
616 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
617 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
618 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
619 ercd = pget_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
620 CYG_TEST_CHECK( E_OK == ercd, "pget_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
621 ercd = rel_blf( 2, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
622 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
623 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
624 CYG_TEST_CHECK( E_OK == ercd, "tget_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
625 ercd = rel_blf( 2, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
626 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
627 // consume the whole thing then do it again, expecting E_TMOUT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
628 while ( E_OK == (ercd = pget_blf( &blfptr, 2 ) ) )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
629 continue;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
630 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
631 ercd = pget_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
632 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
633 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
634 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
635 ercd = tget_blf( &blfptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
636 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
637 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
638 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
639 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
640 ercd = get_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
641 CYG_TEST_CHECK( E_CTX == ercd, "get_blf bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
642 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
643 CYG_TEST_CHECK( E_CTX == ercd, "tget_blf bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
644 ercd = tget_blf( &blfptr, 2, TMO_FEVR );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
645 CYG_TEST_CHECK( E_CTX == ercd, "tget_blf(FEVR) bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
646 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
647 ercd = tget_blf( &blfptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
648 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
649 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
650 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
651 ercd = pget_blf( &blfptr, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
652 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
653 ercd = tget_blf( &blfptr, 2, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
654 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blf bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
655 ercd = tget_blf( &blfptr, 2, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
656 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blf(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
657 CYG_TEST_PASS( "bad calls: rel_blf, [pt]get_blf with ena_dsp" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
658
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
659 // check ref_mpf with various states
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
660 ercd = ref_mpf( &mpf_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
661 CYG_TEST_CHECK( E_OK == ercd, "ref_mpf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
662 CYG_TEST_CHECK( 0 == mpf_info.wtsk, "mpf.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
663 CYG_TEST_CHECK( 0 == mpf_info.frbcnt, "mpf.frbcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
664 intercom = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
665 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
666 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
667 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
668 ercd = ref_mpf( &mpf_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
669 CYG_TEST_CHECK( E_OK == ercd, "ref_mpf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
670 CYG_TEST_CHECK( 0 != mpf_info.wtsk, "mpf.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
671 CYG_TEST_CHECK( 0 == mpf_info.frbcnt, "mpf.frbcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
672 ercd = rel_blf( 2, blfptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
673 CYG_TEST_CHECK( E_OK == ercd, "rel_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
674 ercd = ref_mpf( &mpf_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
675 CYG_TEST_CHECK( E_OK == ercd, "ref_mpf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
676 CYG_TEST_CHECK( 0 == mpf_info.wtsk, "mpf.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
677 #if 1
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
678 CYG_TEST_CHECK( 0 == mpf_info.frbcnt, "mpf.frbcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
679 #else // old, non-uITRON semantics
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
680 CYG_TEST_CHECK( 0 != mpf_info.frbcnt, "mpf.frbcnt should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
681 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
682 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
683 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
684 ercd = ref_mpf( &mpf_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
685 CYG_TEST_CHECK( E_OK == ercd, "ref_mpf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
686 CYG_TEST_CHECK( 0 == mpf_info.wtsk, "mpf.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
687 CYG_TEST_CHECK( 0 == mpf_info.frbcnt, "mpf.frbcnt should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
688 CYG_TEST_PASS( "good calls: rel_blf, get_blf with ref_mpf" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
689
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
690 // Variable block memory pools; illegal arguments
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
691 CYG_TEST_INFO( "Testing variable block memory ops" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
692 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
693 ercd = rel_blk( -6, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
694 CYG_TEST_CHECK( E_ID == ercd, "rel_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
695 ercd = rel_blk( 99, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
696 CYG_TEST_CHECK( E_ID == ercd, "rel_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
697 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
698 ercd = rel_blk( 2, NULL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
699 CYG_TEST_CHECK( E_PAR == ercd, "rel_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
700 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
701 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
702 ercd = rel_blk( 2, blkptr ); // it did not come from a mpl
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
703 CYG_TEST_CHECK( E_PAR == ercd, "rel_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
704 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
705 ercd = get_blk( &blkptr, -6, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
706 CYG_TEST_CHECK( E_ID == ercd, "get_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
707 ercd = get_blk( &blkptr, 99, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
708 CYG_TEST_CHECK( E_ID == ercd, "get_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
709 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
710 ercd = get_blk( NULL, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
711 CYG_TEST_CHECK( E_PAR == ercd, "get_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
712 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
713 ercd = pget_blk( &blkptr, -6, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
714 CYG_TEST_CHECK( E_ID == ercd, "pget_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
715 ercd = pget_blk( &blkptr, 99, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
716 CYG_TEST_CHECK( E_ID == ercd, "pget_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
717 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
718 ercd = pget_blk( NULL, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
719 CYG_TEST_CHECK( E_PAR == ercd, "pget_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
720 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
721 ercd = tget_blk( &blkptr, -6, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
722 CYG_TEST_CHECK( E_ID == ercd, "tget_blk bad ercd !E_ID" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
723 ercd = tget_blk( &blkptr, 99, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
724 CYG_TEST_CHECK( E_ID == ercd, "tget_blk bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
725 ercd = tget_blk( &blkptr, 2, 100, -999 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
726 CYG_TEST_CHECK( E_PAR == ercd, "tget_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
727 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
728 ercd = tget_blk( NULL, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
729 CYG_TEST_CHECK( E_PAR == ercd, "tget_blk bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
730 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
731 ercd = ref_mpl( &mpl_info, -6 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
732 CYG_TEST_CHECK( E_ID == ercd, "ref_mpl bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
733 ercd = ref_mpl( &mpl_info, 99 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
734 CYG_TEST_CHECK( E_ID == ercd, "ref_mpl bad ercd !E_ID" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
735 #ifndef CYGSEM_UITRON_PARAMS_NULL_IS_GOOD_PTR
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
736 ercd = ref_mpl( NULL, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
737 CYG_TEST_CHECK( E_PAR == ercd, "ref_mpl bad ercd !E_PAR" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
738 #endif
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
739 CYG_TEST_PASS( "bad calls: rel_blk, [pt]get_blk, ref_mpl " );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
740 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
741
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
742 // check the waitable functions versus dispatch disable
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
743 ercd = pget_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
744 CYG_TEST_CHECK( E_OK == ercd, "pget_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
745 ercd = rel_blk( 2, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
746 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
747 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
748 CYG_TEST_CHECK( E_OK == ercd, "tget_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
749 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
750 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
751 ercd = rel_blk( 2, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
752 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
753 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
754 ercd = get_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
755 CYG_TEST_CHECK( E_CTX == ercd, "get_blk bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
756 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
757 CYG_TEST_CHECK( E_CTX == ercd, "tget_blk bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
758 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
759 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
760 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
761 ercd = pget_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
762 CYG_TEST_CHECK( E_OK == ercd, "pget_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
763 ercd = rel_blk( 2, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
764 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
765 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
766 CYG_TEST_CHECK( E_OK == ercd, "tget_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
767 ercd = rel_blk( 2, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
768 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
769 // consume the whole thing then do it again, expecting E_TMOUT
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
770 while ( E_OK == (ercd = pget_blk( &blkptr, 2, 100 ) ) )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
771 continue;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
772 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
773 ercd = pget_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
774 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
775 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
776 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
777 ercd = tget_blk( &blkptr, 2, 100, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
778 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
779 ercd = dis_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
780 CYG_TEST_CHECK( E_OK == ercd, "dis_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
781 #ifdef CYGSEM_UITRON_BAD_PARAMS_RETURN_ERRORS
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
782 ercd = get_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
783 CYG_TEST_CHECK( E_CTX == ercd, "get_blk bad ercd !E_CTX" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
784 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
785 CYG_TEST_CHECK( E_CTX == ercd, "tget_blk bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
786 ercd = tget_blk( &blkptr, 2, 100, TMO_FEVR );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
787 CYG_TEST_CHECK( E_CTX == ercd, "tget_blk(FEVR) bad ercd !E_CTX" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
788 #endif // we can test bad param error returns
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
789 ercd = tget_blk( &blkptr, 2, 100, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
790 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
791 ercd = ena_dsp();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
792 CYG_TEST_CHECK( E_OK == ercd, "ena_dsp bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
793 ercd = pget_blk( &blkptr, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
794 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
795 ercd = tget_blk( &blkptr, 2, 100, delay );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
796 CYG_TEST_CHECK( E_TMOUT == ercd, "pget_blk bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
797 ercd = tget_blk( &blkptr, 2, 100, TMO_POL );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
798 CYG_TEST_CHECK( E_TMOUT == ercd, "tget_blk(POL) bad ercd !E_TMOUT" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
799 CYG_TEST_PASS( "bad calls: rel_blk, [pt]get_blk with ena_dsp" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
800
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
801 // check ref_mpl with various states
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
802 ercd = ref_mpl( &mpl_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
803 CYG_TEST_CHECK( E_OK == ercd, "ref_mpl bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
804 CYG_TEST_CHECK( 0 == mpl_info.wtsk, "mpl.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
805 CYG_TEST_CHECK( mpl_info.maxsz <= mpl_info.frsz,
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
806 "mpl.maxsz not < mpl.frsz" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
807 intercom = 0;
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
808 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
809 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
810 intercom = 1;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
811 ercd = ref_mpl( &mpl_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
812 CYG_TEST_CHECK( E_OK == ercd, "ref_mpl bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
813 CYG_TEST_CHECK( 0 != mpl_info.wtsk, "mpl.wtsk should be non0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
814 ercd = rel_blk( 2, blkptr );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
815 CYG_TEST_CHECK( E_OK == ercd, "rel_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
816 ercd = ref_mpl( &mpl_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
817 CYG_TEST_CHECK( E_OK == ercd, "ref_mpl bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
818 CYG_TEST_CHECK( 0 == mpl_info.wtsk, "mpl.wtsk should be 0" );
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
819 ercd = dly_tsk( delay ); // let task 2 start waiting
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
820 CYG_TEST_CHECK( E_OK == ercd, "dly_tsk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
821 ercd = ref_mpl( &mpl_info, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
822 CYG_TEST_CHECK( E_OK == ercd, "ref_mpl bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
823 CYG_TEST_CHECK( 0 == mpl_info.wtsk, "mpl.wtsk should be 0" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
824 CYG_TEST_PASS( "good calls: rel_blk, get_blk with ref_mpl" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
825
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
826 // all done
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
827 CYG_TEST_EXIT( "All done" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
828 ext_tsk();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
829 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
830
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
831
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
832
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
833 void task2( unsigned int arg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
834 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
835 ER ercd;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
836 T_MSG *msgp = NULL;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
837 UINT flgval = 0;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
838 VP blfp = NULL;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
839 VP blkp = NULL;
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
840
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
841 CYG_TEST_INFO( "Task 2 running" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
842 ercd = get_tid( &scratch );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
843 CYG_TEST_CHECK( E_OK == ercd, "get_tid bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
844 CYG_TEST_CHECK( 2 == scratch, "tid not 2" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
845 if ( 222 != arg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
846 CYG_TEST_FAIL( "Task 2 arg not 222" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
847
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
848 while ( intercom ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
849 ercd = rot_rdq( 0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
850 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
851 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
852 ercd = wai_sem( 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
853 CYG_TEST_CHECK( E_OK == ercd, "wai_sem bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
854 while ( intercom ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
855 ercd = rot_rdq( 0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
856 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
857 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
858 ercd = wai_flg( &flgval, 2, 99, TWF_ANDW );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
859 CYG_TEST_CHECK( E_OK == ercd, "wai_flg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
860 CYG_TEST_CHECK( 99 == (99 & flgval), "flg value no good" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
861 while ( intercom ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
862 ercd = rot_rdq( 0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
863 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
864 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
865 ercd = rcv_msg( &msgp, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
866 CYG_TEST_CHECK( E_OK == ercd, "rcv_msg bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
867 CYG_TEST_CHECK( NULL != msgp, "no msg received" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
868 CYG_TEST_CHECK( NADR != msgp, "no msg received" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
869 while ( intercom ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
870 ercd = rot_rdq( 0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
871 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
872 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
873 ercd = get_blf( &blfp, 2 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
874 CYG_TEST_CHECK( E_OK == ercd, "get_blf bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
875 CYG_TEST_CHECK( NULL != blfp, "no blf allocated" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
876 CYG_TEST_CHECK( NADR != blfp, "no blf allocated" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
877 while ( intercom ) {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
878 ercd = rot_rdq( 0 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
879 CYG_TEST_CHECK( E_OK == ercd, "rot_rdq bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
880 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
881 ercd = get_blk( &blkp, 2, 100 );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
882 CYG_TEST_CHECK( E_OK == ercd, "get_blk bad ercd" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
883 CYG_TEST_CHECK( NULL != blkp, "no blk allocated" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
884 CYG_TEST_CHECK( NADR != blkp, "no blk allocated" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
885
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
886 ext_tsk();
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
887 CYG_TEST_FAIL( "Task 2 failed to exit" );
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
888 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
889
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
890 void task3( unsigned int arg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
891 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
892 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
893
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
894 void task4( unsigned int arg )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
895 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
896 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
897
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
898 #else // not enough (or too many) uITRON objects configured in
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
899 #define N_A_MSG "not enough uITRON objects to run test"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
900 #endif // not enough (or too many) uITRON objects configured in
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
901 #else // not C++ and some C++ specific options enabled
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
902 #define N_A_MSG "C++ specific options selected but this is C"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
903 #endif // not C++ and some C++ specific options enabled
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
904 #else // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
905 #define N_A_MSG "no CYGVAR_KERNEL_COUNTERS_CLOCK "
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
906 #endif // ! CYGVAR_KERNEL_COUNTERS_CLOCK - can't test without it
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
907 #else // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
908 #define N_A_MSG "no CYGFUN_KERNEL_THREADS_TIMER"
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
909 #endif // ! CYGFUN_KERNEL_THREADS_TIMER - can't test without it
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
910 #else // ! CYGIMP_THREAD_PRIORITY - can't test without it
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
911 #define N_A_MSG "no CYGSEM_KERNEL_SCHED_MLQUEUE"
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
912 #endif // ! CYGSEM_KERNEL_SCHED_MLQUEUE - can't test without it
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
913 #else // ! CYGPKG_UITRON
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
914 #define N_A_MSG "uITRON Compatibility layer disabled"
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
915 #endif // CYGPKG_UITRON
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
916
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
917 #ifdef N_A_MSG
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
918 externC void
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
919 cyg_start( void )
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
920 {
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
921 CYG_TEST_INIT();
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents: 0
diff changeset
922 CYG_TEST_NA( N_A_MSG );
0
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
923 }
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
924 #endif // N_A_MSG defined ie. we are N/A.
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
925
3111d98ba7b3 Initial commit of eCos version 1.1
jlarmour
parents:
diff changeset
926 // EOF testcx2.cxx