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
20 lines
504 B
Ada
20 lines
504 B
Ada
with DOM.Core; use DOM.Core;
|
|
with DOM.Core.Documents; use DOM.Core.Documents;
|
|
with DOM.Core.Elements; use DOM.Core.Elements;
|
|
with DOM.Core.Nodes; use DOM.Core.Nodes;
|
|
|
|
procedure EA03_006 is
|
|
Impl : DOM_Implementation;
|
|
Doc : Document;
|
|
Child, Element : Node;
|
|
pragma Unreferenced (Child);
|
|
begin
|
|
Doc := Create_Document (Impl);
|
|
|
|
Element := Create_Element (Doc, "myelem");
|
|
Set_Attribute (Element, "id", "42");
|
|
Child := Append_Child (Doc, Element);
|
|
|
|
Print (Element);
|
|
end EA03_006;
|