Hosted by
-- $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;