source: rtems/c/src/tests/sptests/sp09/screen08.c @ 4b374f36

4.104.114.84.95
Last change on this file since 4b374f36 was 4b374f36, checked in by Joel Sherrill <joel.sherrill@…>, on 08/17/95 at 19:36:43

maximum number of messages removed and include statement cleanup
  • Property mode set to 100644
File size: 4.5 KB
Line 
1/*  Screen8
2 *
3 *  This routine generates error screen 8 for test 9.
4 *
5 *  Input parameters:  NONE
6 *
7 *  Output parameters:  NONE
8 *
9 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
10 *  On-Line Applications Research Corporation (OAR).
11 *  All rights assigned to U.S. Government, 1994.
12 *
13 *  This material may be reproduced by or for the U.S. Government pursuant
14 *  to the copyright license under the clause at DFARS 252.227-7013.  This
15 *  notice must appear in all copies of this file and its derivatives.
16 *
17 *  screen08.c,v 1.2 1995/05/31 17:09:05 joel Exp
18 */
19
20#include "system.h"
21
22void Screen8()
23{
24  long              buffer[ 4 ];
25  rtems_status_code status;
26
27  status = rtems_message_queue_delete( Queue_id[ 1 ] );
28  directive_failed( status, "rtems_message_queue_delete successful" );
29  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
30
31  status = rtems_message_queue_create(
32    Queue_name[ 1 ],
33    2,
34    16,
35    RTEMS_DEFAULT_ATTRIBUTES,
36    &Queue_id[ 1 ]
37  );
38  directive_failed( status, "rtems_message_queue_create successful" );
39  puts(
40    "TA1 - rtems_message_queue_create - Q 1 - 2 DEEP - RTEMS_SUCCESSFUL"
41  );
42
43  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
44  directive_failed( status, "rtems_message_queue_send successful" );
45  puts( "TA1 - rtems_message_queue_send - BUFFER 1 TO Q 1 - RTEMS_SUCCESSFUL" );
46
47  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
48  directive_failed( status, "rtems_message_queue_send successful" );
49  puts( "TA1 - rtems_message_queue_send - BUFFER 2 TO Q 1 - RTEMS_SUCCESSFUL" );
50
51  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
52  fatal_directive_status(
53    status,
54    RTEMS_TOO_MANY,
55    "rtems_message_queue_send too many to limited queue"
56  );
57  puts( "TA1 - rtems_message_queue_send - BUFFER 3 TO Q 1 - RTEMS_TOO_MANY" );
58
59  status = rtems_message_queue_delete( Queue_id[ 1 ] );
60  directive_failed( status, "rtems_message_queue_delete successful" );
61  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
62
63  status = rtems_message_queue_create(
64    Queue_name[ 1 ],
65    3,
66    16,
67    RTEMS_DEFAULT_ATTRIBUTES,
68    &Queue_id[ 1 ]
69  );
70  directive_failed( status, "rtems_message_queue_create successful" );
71  puts(
72    "TA1 - rtems_message_queue_create - Q 1 - 3 DEEP - RTEMS_SUCCESSFUL"
73  );
74
75  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
76  directive_failed( status, "rtems_message_queue_send successful" );
77  puts( "TA1 - rtems_message_queue_send - BUFFER 1 TO Q 1 - RTEMS_SUCCESSFUL" );
78
79  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
80  directive_failed( status, "rtems_message_queue_send successful" );
81  puts( "TA1 - rtems_message_queue_send - BUFFER 2 TO Q 1 - RTEMS_SUCCESSFUL" );
82
83  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
84  directive_failed( status, "rtems_message_queue_send successful" );
85  puts( "TA1 - rtems_message_queue_send - BUFFER 3 TO Q 1 - RTEMS_SUCCESSFUL" );
86
87  status = rtems_message_queue_send( Queue_id[ 1 ], (long (*)[4])buffer, 16 );
88  fatal_directive_status(
89    status,
90    RTEMS_TOO_MANY,
91    "rtems_message_queue_send too many to limited queue"
92  );
93  puts(
94    "TA1 - rtems_message_queue_send - BUFFER 4 TO Q 1 - RTEMS_TOO_MANY"
95  );
96
97  status = rtems_message_queue_delete( Queue_id[ 1 ] );
98  directive_failed( status, "rtems_message_queue_delete successful" );
99  puts( "TA1 - rtems_message_queue_delete - Q 1 - RTEMS_SUCCESSFUL" );
100
101  status = rtems_message_queue_create(
102    Queue_name[ 1 ],
103    3,
104    16,
105    RTEMS_DEFAULT_ATTRIBUTES,
106    &Queue_id[ 1 ]
107  );
108  directive_failed( status, "rtems_message_queue_create successful" );
109  puts(
110    "TA1 - rtems_message_queue_create - Q 1 - 3 DEEP - RTEMS_SUCCESSFUL"
111  );
112
113  puts( "TA1 - rtems_task_start - start TA3 - RTEMS_SUCCESSFUL" );
114  status = rtems_task_start( Task_id[ 3 ], Task_3, 0 );
115  directive_failed( status, "rtems_task_start of TA3" );
116
117  puts( "TA1 - rtems_task_wake_after - yield processor - RTEMS_SUCCESSFUL" );
118  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
119  directive_failed( status, "rtems_task_wake_after (yield)" );
120
121  puts( "TA1 - rtems_message_queue_delete - delete Q 1 - RTEMS_SUCCESSFUL" );
122  status = rtems_message_queue_delete( Queue_id[ 1 ] );
123  directive_failed( status, "rtems_message_queue_delete successful" );
124
125  puts( "TA1 - rtems_task_wake_after - yield processor - RTEMS_SUCCESSFUL" );
126  status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
127  directive_failed( status, "rtems_task_wake_after (yield)" );
128}
Note: See TracBrowser for help on using the repository browser.