#######################################################################
##
#W  test.gd          GAP OpenMath Share Package           Andrew Solomon
##
#H  @(#)$Id: test.gd,v 1.1 2000/03/10 00:05:53 andrews Exp $
##
#Y  Copyright (C)  1997,  Lehrstuhl D fuer Mathematik,  RWTH Aachen,  Germany
#Y  (C) 1998 School Math and Comp. Sci., University of St.  Andrews, Scotland
##
##
##
Revision.("openmath/gap/test.gd") :=
"@(#)$Id: test.gd,v 1.1 2000/03/10 00:05:53 andrews Exp $";



#######################################################################
##
#F  OMTest( <obj> )
##
##  
##  Converts <obj> to OpenMath and back. Returns true iff <obj> is unchanged
##  (as a GAP object) by this operation. The OpenMath standard does not 
##  stipulate that converting to and from OpenMath should be the identity
##  function so this is a useful diagnostic tool.
##

DeclareGlobalFunction("OMTest");


#######################################################################
#E

