summaryrefslogtreecommitdiff
path: root/xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m
diff options
context:
space:
mode:
Diffstat (limited to 'xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m')
-rw-r--r--xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m291
1 files changed, 291 insertions, 0 deletions
diff --git a/xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m b/xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m
new file mode 100644
index 000000000..c8b23b5b1
--- /dev/null
+++ b/xc/test/xsuite/xtest/tset/XPROTO/strclrs/strclrs.m
@@ -0,0 +1,291 @@
+/*
+ * Copyright 1990, 1991 by the Massachusetts Institute of Technology and
+ * UniSoft Group Limited.
+ *
+ * Permission to use, copy, modify, distribute, and sell this software and
+ * its documentation for any purpose is hereby granted without fee,
+ * provided that the above copyright notice appear in all copies and that
+ * both that copyright notice and this permission notice appear in
+ * supporting documentation, and that the names of MIT and UniSoft not be
+ * used in advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission. MIT and UniSoft
+ * make no representations about the suitability of this software for any
+ * purpose. It is provided "as is" without express or implied warranty.
+ *
+ * $XConsortium$
+ */
+>>TITLE StoreColors XPROTO
+>>SET startup protostartup
+>>SET cleanup protocleanup
+>>EXTERN
+/* Touch test for StoreColors request */
+
+/****************************************************************************
+ * Copyright 1989 by Sequent Computer Systems, Inc., Portland, Oregon *
+ * *
+ * *
+ * All Rights Reserved *
+ * *
+ * Permission to use, copy, modify, and distribute this software and its *
+ * documentation for any purpose and without fee is hereby granted, *
+ * provided that the above copyright notice appears in all copies and that *
+ * both that copyright notice and this permission notice appear in *
+ * supporting documentation, and that the name of Sequent not be used *
+ * in advertising or publicity pertaining to distribution or use of the *
+ * software without specific, written prior permission. *
+ * *
+ * SEQUENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING *
+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS; IN NO EVENT SHALL *
+ * SEQUENT BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR *
+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, *
+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, *
+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS *
+ * SOFTWARE. *
+ ****************************************************************************/
+
+#include "Xstlib.h"
+
+
+#define CLIENT 0
+static TestType test_type = SETUP;
+xResourceReq *req;
+xAllocColorCellsReply *acreply;
+xAllocNamedColorReply *anreply;
+xError *err;
+extern unsigned long reply_pixel;
+
+/*
+ intent: If a read-write color cell can be allocated:
+ Allocate read-write cell by sending an AllocColorCells request,
+ send a StoreColors request to the server and check no errors,
+ input:
+ output: none
+ global input:
+ side effects: creates a window resource
+ writes to global reply_pixel
+ methods:
+*/
+
+static
+void
+tester_rw()
+{
+ Create_Client(CLIENT);
+ if (!Allocatable (CLIENT)) {
+ unsupported("The visual class for screen zero is not writable");
+ Exit_OK();
+ }
+
+ (void) Create_Default_Window(CLIENT);
+ (void) Create_Default_Colormap(CLIENT);
+
+ /* allocate a color and store pixel from reply in global */
+
+ req = (xResourceReq *) Make_Req(CLIENT, X_AllocColorCells);
+ Send_Req(CLIENT, (xReq *) req);
+ Log_Trace("client %d sent default AllocColorCells request\n", CLIENT);
+ if ((acreply = (xAllocColorCellsReply *) Expect_Reply(CLIENT, X_AllocColorCells)) == NULL) {
+ Log_Err("client %d failed to receive AllocColorCells reply\n", CLIENT);
+ Exit();
+ } else {
+ Log_Trace("client %d received AllocColorCells reply\n", CLIENT);
+ /*
+ * This line gets the first pixel value OR'd with
+ * zero of the returned masks
+ */
+ reply_pixel = *(unsigned long*) (acreply + 1);
+ Free_Reply(acreply);
+ }
+
+ (void) Expect_Nothing(CLIENT);
+ Free_Req(req);
+
+ /* store a color in the pixel from the reply */
+
+ Set_Test_Type(CLIENT, test_type);
+ req = (xResourceReq *) Make_Req(CLIENT, X_StoreColors);
+ Send_Req(CLIENT, (xReq *) req);
+ Set_Test_Type(CLIENT, GOOD);
+ Log_Trace("client %d sent default StoreColors request\n", CLIENT);
+ (void) Expect_Nothing(CLIENT);
+ Free_Req(req);
+
+ Exit_OK();
+}
+
+/*
+ intent: Allocate read-only cell by sending an AllocNamedColor request,
+ send a StoreColors request to the server and check
+ that a BadAccess error is sent back.
+ input:
+ output: none
+ global input:
+ side effects: creates a window resource
+ writes to global reply_pixel
+ methods:
+*/
+static
+void
+tester()
+{
+ Create_Client(CLIENT);
+
+ (void) Create_Default_Window(CLIENT);
+ (void) Create_Default_Colormap(CLIENT);
+
+ /* allocate a color and store pixel from reply in global */
+
+ req = (xResourceReq *) Make_Req(CLIENT, X_AllocNamedColor);
+ Send_Req(CLIENT, (xReq *) req);
+ Log_Trace("client %d sent default AllocNamedColor request\n", CLIENT);
+ if ((anreply = (xAllocNamedColorReply *) Expect_Reply(CLIENT, X_AllocNamedColor)) == NULL) {
+ Log_Err("client %d failed to receive AllocNamedColor reply\n", CLIENT);
+ Exit();
+ } else {
+ Log_Trace("client %d received AllocNamedColor reply\n", CLIENT);
+ reply_pixel = anreply->pixel;
+ Free_Reply(anreply);
+ }
+
+ (void) Expect_Nothing(CLIENT);
+ Free_Req(req);
+
+ /* store a color in the pixel from the reply */
+
+ Set_Test_Type(CLIENT, test_type);
+ req = (xResourceReq *) Make_Req(CLIENT, X_StoreColors);
+ Send_Req(CLIENT, (xReq *) req);
+ Set_Test_Type(CLIENT, GOOD);
+ switch(test_type) {
+ case GOOD:
+ /*
+ * The default test code called Expect_Nothing() - this is
+ * not the case here, we expect BadAccess error.
+ */
+ Log_Trace("client %d sent default StoreColors request\n", CLIENT);
+ (void) Expect_BadAccess(CLIENT);
+ (void) Expect_Nothing(CLIENT);
+ break;
+ case BAD_LENGTH:
+ Log_Trace("client %d sent StoreColors request with bad length (%d)\n", CLIENT, req->length);
+ (void) Expect_BadLength(CLIENT);
+ (void) Expect_Nothing(CLIENT);
+ break;
+ case TOO_LONG:
+ case JUST_TOO_LONG:
+ Log_Trace("client %d sent overlong StoreColors request (%d)\n", CLIENT, req->length);
+ (void) Expect_BadLength(CLIENT);
+ (void) Expect_Nothing(CLIENT);
+ break;
+ default:
+ Log_Err("INTERNAL ERROR: test_type %d not one of GOOD(%d), BAD_LENGTH(%d), TOO_LONG(%d) or JUST_TOO_LONG(%d)\n",
+ test_type, GOOD, BAD_LENGTH, TOO_LONG, JUST_TOO_LONG);
+ Abort();
+ /*NOTREACHED*/
+ break;
+ }
+ Free_Req(req);
+ Exit_OK();
+}
+>>ASSERTION Good C
+If the default visual class for screen zero is
+.S DirectColor ,
+.S PseudoColor ,
+or
+.S GrayScale :
+When a client sends a valid xname protocol request to the X server,
+and the colour cell is read-write,
+then the X server does not send back an error, event or reply to the client.
+>>STRATEGY
+Call library function testfunc() to do the following:
+DirectColor, PseudoColor, or GrayScale :
+Open a connection to the X server using native byte sex.
+Send a valid xname protocol request to the X server.
+Verify that the X server does not send back an error, event or reply.
+Open a connection to the X server using reversed byte sex.
+Send a valid xname protocol request to the X server.
+Verify that the X server does not send back an error, event or reply.
+>>CODE
+
+ test_type = GOOD;
+
+ /* Call a library function to exercise the test code */
+ testfunc(tester_rw);
+
+>>ASSERTION Good A
+When a client sends a valid xname protocol request to the X server,
+and the colour cell is read-only,
+then the X server sends back a BadAccess error to the client.
+>>STRATEGY
+Call library function testfunc() to do the following:
+Open a connection to the X server using native byte sex.
+Send a valid xname protocol request to the X server.
+Verify that the X server sends back a BadAccess error.
+Open a connection to the X server using reversed byte sex.
+Send a valid xname protocol request to the X server.
+Verify that the X server sends back a BadAccess error.
+>>CODE
+
+ test_type = GOOD;
+
+ /* Call a library function to exercise the test code */
+ testfunc(tester);
+
+>>ASSERTION Bad A
+When a client sends an invalid xname protocol request to the X server,
+in which the length field of the request is not the minimum length required to
+contain the request
+plus zero or more colours,
+then the X server sends back a BadLength error to the client.
+>>STRATEGY
+Call library function testfunc() to do the following:
+Open a connection to the X server using native byte sex.
+Send an invalid xname protocol request to the X server with length
+ one less than the minimum length required to contain the request + zero colours.
+Verify that the X server sends back a BadLength error.
+Open a connection to the X server using reversed byte sex.
+Send an invalid xname protocol request to the X server with length
+ one less than the minimum length required to contain the request + zero colours.
+Verify that the X server sends back a BadLength error.
+
+Open a connection to the X server using native byte sex.
+Send an invalid xname protocol request to the X server with length
+ one greater than the minimum length required to contain the request + n colours.
+Verify that the X server sends back a BadLength error.
+Open a connection to the X server using reversed byte sex.
+Send an invalid xname protocol request to the X server with length
+ one greater than the minimum length required to contain the request + n colours.
+Verify that the X server sends back a BadLength error.
+>>CODE
+
+ test_type = BAD_LENGTH; /* < minimum */
+
+ /* Call a library function to exercise the test code */
+ testfunc(tester);
+
+ test_type = JUST_TOO_LONG; /* > minimum + n colours */
+
+ /* Call a library function to exercise the test code */
+ testfunc(tester);
+
+>>ASSERTION Bad B 1
+When a client sends an invalid xname protocol request to the X server,
+in which the length field of the request exceeds the maximum length accepted
+by the X server,
+then the X server sends back a BadLength error to the client.
+>>STRATEGY
+Call library function testfunc() to do the following:
+Open a connection to the X server using native byte sex.
+Send an invalid xname protocol request to the X server with length
+ one greater than the maximum length accepted by the server.
+Verify that the X server sends back a BadLength error.
+Open a connection to the X server using reversed byte sex.
+Send an invalid xname protocol request to the X server with length
+ one greater than the maximum length accepted by the server.
+Verify that the X server sends back a BadLength error.
+>>CODE
+
+ test_type = TOO_LONG;
+
+ /* Call a library function to exercise the test code */
+ testfunc(tester);
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-22 08:20:01 +0000