#######################################################################
##
#W  test.g          GAP OpenMath Package           Andrew Solomon
##
#H  @(#)$Id: test.g,v 1.3 2004/06/20 13:11:33 gap 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/tst/test.g") :=
"@(#)$Id: test.g,v 1.3 2004/06/20 13:11:33 gap Exp $";



#######################################################################
##
#F  OMTest( <object> )
##
##  
##  Converts to OpenMath and back. Returns true iff <object> is unchanged.
##

InstallGlobalFunction("OMTest",
function(o)

	local
		p,	# the object retrieved
		s, t; # stream and string resp.

	# output
	t := "";
	s := OutputTextString(t, false);
	OMPutObject(s, o);
	CloseStream(s);

	#input
	s := InputTextString(t);
	p := OMGetObject(s);
	CloseStream(s);

	return o = p;
	
end);


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

