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