>># 
>># 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: rmvhst.m,v 1.4 92/06/11 17:15:42 rws Exp $
>># 
>>#      SCCS:  @(#)  EAcc4.mc Rel 1.7	    (10/2/91)
>>#
>>TITLE XRemoveHost CH07
>>ASSERTION B XRemoveHost-1
A call to XRemoveHost removes the specified host from the
access control list for the display.
>>STRATEGY
Get current acl.
If current list is empty:
  Add a host with XAddHost.
  Get current acl.
  Check that it is not empty.
Call XRemoveHost to remove host.
If call fails with a BadAccess:
  Report that assertion can not be tested from this host.
Get new acl.
Verify that host is not in new acl.
>>ASSERTION A XRemoveHost-2
When an attempt is made to modify the access control list
from a client that is not authorised in a server-dependent
way to do so, then a BadAccess error occurs.
>>STRATEGY
Attempt to change access control list.
If an error occurs
  If error is BadAccess
    Report Pass.
  else
	Report Fail.
else
  Report that assertion is untestable for this host.
>>ASSERTION B XRemoveHost-3
When the host address format is invalid, then a BadValue
error occurs.
>>STRATEGY
Call XRemoveHost with known bad address data.
If BadAccess error:
  Report that assertion cannot be tested.
Verify that a BadValue error occurs.
