source: rtems/testsuites/sptests/sp09/screen09.c @ 3235ad9

4.104.114.84.95
Last change on this file since 3235ad9 was 3235ad9, checked in by Joel Sherrill <joel.sherrill@…>, on 08/23/95 at 19:30:23

Support for variable length names added to Object Handler. This supports
both fixed length "raw" names and strings from the API's point of view.

Both inline and macro implementations were tested.

  • Property mode set to 100644
File size: 3.5 KB
Line 
1/*  Screen9
2 *
3 *  This routine generates error screen 9 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 *  $Id$
18 */
19
20#include "system.h"
21
22void Screen9()
23{
24  void              *converted;
25  rtems_status_code status;
26  rtems_isr_entry   old_service_routine;
27
28  status = rtems_interrupt_catch( Service_routine, 500, &old_service_routine );
29  fatal_directive_status(
30    status,
31    RTEMS_INVALID_NUMBER,
32    "rtems_interrupt_catch with invalid vector"
33  );
34  puts( "TA1 - rtems_interrupt_catch - RTEMS_INVALID_NUMBER" );
35
36  status = rtems_interrupt_catch( NULL, 3, &old_service_routine );
37  fatal_directive_status(
38    status,
39    RTEMS_INVALID_ADDRESS,
40    "rtems_interrupt_catch with invalid handler"
41  );
42  puts( "TA1 - rtems_interrupt_catch - RTEMS_INVALID_ADDRESS" );
43
44  status = rtems_signal_send( 100, RTEMS_SIGNAL_1 );
45  fatal_directive_status(
46    status,
47    RTEMS_INVALID_ID,
48    "rtems_signal_send with illegal id"
49  );
50  puts( "TA1 - rtems_signal_send - RTEMS_INVALID_ID" );
51
52  status = rtems_signal_send( RTEMS_SELF, RTEMS_SIGNAL_16 );
53  fatal_directive_status(
54    status,
55    RTEMS_NOT_DEFINED,
56    "rtems_signal_send with no handler"
57  );
58  puts( "TA1 - rtems_signal_send - RTEMS_NOT_DEFINED" );
59
60  status = rtems_port_create(
61     0,
62     Internal_port_area,
63     External_port_area,
64     sizeof( Internal_port_area ),
65     &Junk_id
66  );
67  fatal_directive_status(
68    status,
69    RTEMS_INVALID_NAME,
70    "rtems_port_create with illegal name"
71  );
72  puts( "TA1 - rtems_port_create - RTEMS_INVALID_NAME" );
73
74  status = rtems_port_create(
75     Port_name[ 1 ],
76     &((char *)Internal_port_area)[ 1 ],
77     External_port_area,
78     sizeof( Internal_port_area ),
79     &Junk_id
80  );
81  fatal_directive_status(
82    status,
83    RTEMS_INVALID_ADDRESS,
84    "rtems_port_create with illegal address"
85  );
86  puts( "TA1 - rtems_port_create - RTEMS_INVALID_ADDRESS" );
87
88  status = rtems_port_create(
89     Port_name[ 1 ],
90     Internal_port_area,
91     External_port_area,
92     sizeof( Internal_port_area ),
93     &Junk_id
94  );
95  fatal_directive_status(
96    status,
97    RTEMS_TOO_MANY,
98    "rtems_port_create of too many"
99  );
100  puts( "TA1 - rtems_port_create - RTEMS_TOO_MANY" );
101
102  status = rtems_port_delete( 0 );
103  fatal_directive_status(
104    status,
105    RTEMS_INVALID_ID,
106    "rtems_port_delete with illegal id"
107  );
108  puts( "TA1 - rtems_port_delete - RTEMS_INVALID_ID" );
109
110  status = rtems_port_ident( 0, &Junk_id );
111  fatal_directive_status(
112    status,
113    RTEMS_INVALID_NAME,
114    "rtems_port_ident with illegal name"
115  );
116  puts( "TA1 - rtems_port_ident - RTEMS_INVALID_NAME" );
117
118  status = rtems_port_external_to_internal(
119    100,
120    Internal_port_area,
121    &converted
122  );
123  fatal_directive_status(
124    status,
125    RTEMS_INVALID_ID,
126    "rtems_port_external_to_internal with illegal id"
127  );
128  puts( "TA1 - rtems_port_external_to_internal - RTEMS_INVALID_ID" );
129  status = rtems_port_internal_to_external(
130    100,
131    Internal_port_area,
132    &converted
133  );
134  fatal_directive_status(
135    status,
136    RTEMS_INVALID_ID,
137    "rtems_port_internal_to_external with illegal id"
138  );
139  puts( "TA1 - rtems_port_internal_to_external - RTEMS_INVALID_ID" );
140}
Note: See TracBrowser for help on using the repository browser.