>># 
>># 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: stwmprtcls.m,v 1.6 92/06/11 17:32:09 rws Exp $
>># 
>>#      SCCS:  @(#)  EAll.mc Rel 1.5	    (3/12/92)
>>#      SCCS:  @(#)  EWin.mc Rel 1.4	    (7/19/91)
>>#
>>TITLE XSetWMProtocols CH09
>>ASSERTION A XSetWMProtocols-1
A call to XSetWMProtocols sets the WM_PROTOCOLS property
for the window w, to be of type ATOM, format 32 and to
have value set to the list of count atoms specified by the
protocols argument and returns non-zero.
>>STRATEGY
Create a window with XCreateWindow.
Set the WM_PROTOCOLS property using XSetWMProtocols.
Verify that the call returned non-zero.
Obtain the WM_PROTOCOLS atom using XInternAtom.
Obtain the WM_PROTOCOLS property using XGetWindowProperty.
Verify that the property type is ATOM
Verify that the property format is 32.
Verify that the returned number of elements is correct.
Verify that the property value is correct.
>>ASSERTION B XSetWMProtocols-2
When the atom name (lqWM_PROTOCOLS(rq cannot be interned,
then a call to XSetWMProtocols returns zero.
>>STRATEGY
Report UNTESTED
>>ASSERTION B XSetWMProtocols-3
When the server fails to allocate a required resource, then
a BadAlloc error occurs.
>>STRATEGY
Report UNTESTED
>>ASSERTION A XSetWMProtocols-4
When a window argument does not name a valid Window, then a
BadWindow error occurs.
>>STRATEGY
Create a bad window by creating and destroying a window.
Call test function using bad window as the window argument.
Verify that a BadWindow error occurs.
