mirror of
https://github.com/AdaCore/xmlada.git
synced 2026-02-12 12:30:28 -08:00
63b47c6599
Move all the */test/ directories to tests/* Move all tests that potentially contain customer code or data to tests/adacore These will be moved to a separate git repository Part of O527-038 git-svn-id: svn+ssh://svn.eu.adacore.com/Dev/trunk/xmlada@240170 936e1b1b-40f2-da11-902a-00137254ae57
22 lines
593 B
Ada
22 lines
593 B
Ada
|
|
with DOM.Readers;
|
|
with GNAT.OS_Lib;
|
|
with Sax.Exceptions;
|
|
|
|
package Testxml_Support is
|
|
|
|
type My_Tree_Reader is new DOM.Readers.Tree_Reader with record
|
|
Had_Error : Boolean := False;
|
|
-- Whether any recoverable error was seen
|
|
|
|
Error_Msg : GNAT.OS_Lib.String_Access;
|
|
-- The whole cumulative error messages
|
|
end record;
|
|
procedure Error
|
|
(Handler : in out My_Tree_Reader;
|
|
Except : Sax.Exceptions.Sax_Parse_Exception'Class);
|
|
-- Override Error so as to make sure recoverable errors are reported as
|
|
-- such. It raises XML_Error
|
|
|
|
end Testxml_Support;
|