>># 
>># 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: addhst.m,v 1.5 92/06/11 17:10:40 rws Exp $
>># 
>>#      SCCS:  @(#)  EAcc4.mc Rel 1.7	    (10/2/91)
>>#
>>TITLE XAddHost CH07
>>ASSERTION B XAddHost-1
A call to XAddHost adds the specified host to the access
control list for the display.
>>STRATEGY
Get current acl.
If current list includes the host to be added:
  Remove host with XRemoveHost
  Get current acl.
  Check that host to be added is not in the list.
Call XAddHost to add host.
If call fails with a BadAccess:
  Report that assertion can not be tested from this host.
Get new acl.
Verify that host is in new acl.
>>ASSERTION A XAddHost-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 XAddHost-3
When the host family, address length and address data do
not form a valid address, then a BadValue error occurs.
>>STRATEGY
Call XAddHost with known bad address data.
If BadAccess error:
  Report that assertion cannot be tested.
Verify that a BadValue error occurs.
