>># 
>># 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: frfnt.m,v 1.9 92/06/11 17:06:16 rws Exp $
>># 
>>#      SCCS:  @(#)  EFon1.mc Rel 1.5	    (9/20/91)
>>#
>>TITLE XFreeFont CH06
>>ASSERTION A XFreeFont-1
When another resource references the font with ID fid in
the font_struct argument, then a call to XFreeFont frees all
storage associated with the font_struct structure and
destroys the association between the Font ID and the font.
>>STRATEGY
Only the part about destroying the association between Font ID and font
is testable.
Create font_struct.
Save font ID from font_struct.
Call XFreeFont.
Create scratch drawable and gc.
Set font into gc.
Attempt to draw some text.
Verify that a BadFont error occurred.
>>ASSERTION B XFreeFont-2
When no other resource ID references the font with ID fid
in the font_struct argument, then a call to XFreeFont frees
all storage associated with the font_struct structure,
destroys the association between the Font ID and the font
and that font is unloaded.
>>STRATEGY
Report UNTESTED
>>ASSERTION A XFreeFont-3
When a font argument does not name a valid font, then a
BadFont error occurs.
>>STRATEGY
Call XLoadQueryFont to get font_struct.
Unload the font using the font ID.
Call XFreeFont.
Verify that a BadFont error is generated.
