-- $Date: 2003/12/22 13:52:26 $
-- $Revision: 1.5 $
-- $Author: jcrocholl $

with Ada.Text_IO;

with XML_Parsers;

procedure Test_Suite is
   X : XML_Parsers.XML_Parser;
begin
   X := XML_Parsers.Current_Input;
   XML_Parsers.Close(X);
   pragma Debug(Ada.Text_IO.Put_Line("all tests succeeded"));
end Test_Suite;