summaryrefslogtreecommitdiff
path: root/xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m
diff options
context:
space:
mode:
Diffstat (limited to 'xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m')
-rw-r--r--xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m218
1 files changed, 218 insertions, 0 deletions
diff --git a/xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m b/xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m
new file mode 100644
index 00000000..1118e2a0
--- /dev/null
+++ b/xts5/Xlib10/XEnableAccessControl/XEnableAccessControl.m
@@ -0,0 +1,218 @@
+Copyright (c) 2005 X.Org Foundation L.L.C.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+$Header: /cvs/xtest/xtest/xts5/tset/Xlib10/XEnableAccessControl/XEnableAccessControl.m,v 1.2 2005-11-03 08:42:16 jmichael Exp $
+
+Copyright (c) Applied Testing and Technology, Inc. 1995
+All Rights Reserved.
+
+>># Project: VSW5
+>>#
+>># File: xts5/tset/Xlib10/XEnableAccessControl/XEnableAccessControl.m
+>>#
+>># Description:
+>># Tests for XEnableAccessControl()
+>>#
+>># Modifications:
+>># $Log: enblaccssc.m,v $
+>># Revision 1.2 2005-11-03 08:42:16 jmichael
+>># clean up all vsw5 paths to use xts5 instead.
+>>#
+>># Revision 1.1.1.2 2005/04/15 14:05:15 anderson
+>># Reimport of the base with the legal name in the copyright fixed.
+>>#
+>># Revision 8.0 1998/12/23 23:30:56 mar
+>># Branch point for Release 5.0.2
+>>#
+>># Revision 7.0 1998/10/30 22:50:14 mar
+>># Branch point for Release 5.0.2b1
+>>#
+>># Revision 6.0 1998/03/02 05:22:41 tbr
+>># Branch point for Release 5.0.1
+>>#
+>># Revision 5.0 1998/01/26 03:19:13 tbr
+>># Branch point for Release 5.0.1b1
+>>#
+>># Revision 4.0 1995/12/15 09:00:33 tbr
+>># Branch point for Release 5.0.0
+>>#
+>># Revision 3.1 1995/12/15 00:56:19 andy
+>># Prepare for GA Release
+>>#
+/*
+Portions of this software are based on Xlib and X Protocol Test Suite.
+We have used this material under the terms of its copyright, which grants
+free use, subject to the conditions below. Note however that those
+portions of this software that are based on the original Test Suite have
+been significantly revised and that all such revisions are copyright (c)
+1995 Applied Testing and Technology, Inc. Insomuch as the proprietary
+revisions cannot be separated from the freely copyable material, the net
+result is that use of this software is governed by the ApTest copyright.
+
+Copyright (c) 1990, 1991 X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from the X Consortium.
+
+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 name of UniSoft not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission. UniSoft
+makes no representations about the suitability of this software for any
+purpose. It is provided "as is" without express or implied warranty.
+*/
+>>TITLE XEnableAccessControl Xlib10
+void
+
+Display *display = Dsp;
+>>ASSERTION Good B 1
+A call to xname
+enables the use of the access control list at each connection setup.
+>>STRATEGY
+Get current host list.
+Attempt to remove all hosts from list.
+If this fails with BadAccess:
+ Report that this host does not have permission to do this.
+ (Will not have permission for the next part either).
+ Result is untested.
+Enable access control with xname.
+Verify that state returned by XListHosts is EnableAccess.
+Verify that new connections can not be made.
+>>CODE
+#if 0
+XHostAddress *oldhosts;
+XHostAddress *list;
+Display *newclient;
+int nhosts;
+int njunk;
+Bool state;
+#endif
+
+ untested("There is no portable way to test this assertion");
+
+ /* -------- */
+
+#if 0
+ /*
+ * The following will work on some servers. However on other
+ * it can result in the client not being able to reset the state
+ * to disabled, and no more can be done without manual intervention
+ * to the server.
+ */
+ oldhosts = XListHosts(display, &nhosts, &state);
+
+ CATCH_ERROR(display);
+ XRemoveHosts(display, oldhosts, nhosts);
+ RESTORE_ERROR(display);
+
+ if (GET_ERROR(display) == BadAccess) {
+ report("The client does not have permission to disable the acl");
+ untested(" so this assertion cannot be tested.");
+ return;
+ }
+
+ XCALL;
+
+ list = XListHosts(display, &njunk, &state);
+ if (state == EnableAccess)
+ CHECK;
+ else {
+ report("Access control state was not EnableAccess (was %d)", state);
+ FAIL;
+ }
+
+ newclient = XOpenDisplay(config.display);
+ if (newclient == (Display*)0)
+ CHECK;
+ else {
+ report("Connections could be made to host");
+ FAIL;
+ }
+
+ CHECKPASS(2);
+
+ /*
+ * It is quite possible that the following will fail.
+ */
+ CATCH_ERROR(display);
+ XAddHosts(display, oldhosts, nhosts);
+ XDisableAccessControl(display);
+ RESTORE_ERROR(display);
+
+ XFree((char*)oldhosts);
+ XFree((char*)list);
+#endif
+>>ASSERTION Good B 1
+When an attempt is made to enable the use of the access control list
+from a client that is not authorised in a server-dependent way
+to do so, then a
+.S BadAccess
+error occurs.
+>>STRATEGY
+Call xname.
+If error occurs.
+ If error is BadAccess
+ Report Pass.
+ else
+ Report Fail.
+else
+ Report client is authorised.
+ Result is untested.
+>>CODE
+
+>>SET no-error-status-check
+ XCALL;
+
+ if (geterr() != Success) {
+ if (geterr() == BadAccess)
+ PASS;
+ else {
+ report("Expecting BadAccess, was %s", errorname(geterr()));
+ FAIL;
+ }
+ } else {
+ untested("This client is authorised to disable the access list");
+ untested(" so the assertion cannot be tested");
+
+ CATCH_ERROR(display);
+ XDisableAccessControl(display);
+ RESTORE_ERROR(display);
+ }
+