Comment : Charset=windows-1252
Comment : regular simple test cases for tclose
Request : inquire tclose(union(relation(heading(typename(name)basetype(name))body(tuple(typename(int)basetype(long)))),project(constrainedtype,(typename,basetype))),(typename,basetype))
Reply   : RELATION(HEADING(TYPENAME(NAME)BASETYPE(NAME))BODY(TUPLE(TYPENAME(INT)BASETYPE(LONG))))
END
