>># 
>># 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: stfnt.m,v 1.9 92/06/29 19:02:57 rws Exp $
>># 
>>#      SCCS:  @(#)  EAll.mc Rel 1.5	    (3/12/92)
>>#      SCCS:  @(#)  EFon1.mc Rel 1.5	    (9/20/91)
>>#      SCCS:  @(#)  EGC.mc Rel 1.5	    (10/25/91)
>>#
>>TITLE XSetFont CH05
>>ASSERTION A XSetFont-1
A call to XSetFont sets the font component of the specified
GC to the value of the font argument.
>>STRATEGY
Create window.
Load font 1.
Load font 2.
Create GC with font = font1, fn = GXxor.
Draw string with glyph differing between font 1 and 2.
Set font component of GC to font2 with XSetFont.
Draw string with glyph differing between font 1 and 2.
Verify that not all pixels in the window are set to bg.
>>ASSERTION B XSetFont-2
When the server fails to allocate a required resource, then
a BadAlloc error occurs.
>>STRATEGY
Report UNTESTED
>>ASSERTION A XSetFont-3
When a font argument does not name a valid font, then a
BadFont error occurs.
>>STRATEGY
Create a bad font by loading and freeing a font.
Call test function using bad font as the font argument.
Verify that a BadFont error occurs.
>>ASSERTION A XSetFont-4
When the GC argument does not name a defined GC, then a
BadGC error occurs.
>>STRATEGY
Create a GC.
Set GC id to -1 using XTestSetGContextOfGC.
Call test function using bad GC as the GC argument.
Verify that a BadGC error occurs.
