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
55 lines
1.5 KiB
Ada
55 lines
1.5 KiB
Ada
with DOM.Core; use DOM.Core;
|
|
with DOM.Core.Documents; use DOM.Core.Documents;
|
|
with DOM.Core.Nodes; use DOM.Core.Nodes;
|
|
with Sax.Encodings; use Sax.Encodings;
|
|
with Unicode.CES; use Unicode.CES;
|
|
with Unicode.CES.Basic_8bit; use Unicode.CES.Basic_8bit;
|
|
with DOM.Core.Character_Datas; use DOM.Core.Character_Datas;
|
|
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure Test_Chardata is
|
|
|
|
function "-" (Str : String) return Byte_Sequence;
|
|
procedure Expect (Got, Expected : DOM_String);
|
|
|
|
---------
|
|
-- Str --
|
|
---------
|
|
|
|
function "-" (Str : String) return Byte_Sequence is
|
|
begin
|
|
return Sax.Encodings.From_Utf32 (Unicode.CES.Basic_8bit.To_Utf32 (Str));
|
|
end "-";
|
|
|
|
------------
|
|
-- Expect --
|
|
------------
|
|
|
|
procedure Expect (Got, Expected : DOM_String) is
|
|
begin
|
|
if Got /= Expected then
|
|
Put_Line ("Expected: --" & Expected & "--");
|
|
Put_Line ("Got : --" & Got & "--");
|
|
end if;
|
|
end Expect;
|
|
|
|
Implementation : DOM_Implementation;
|
|
Doc : Node;
|
|
Elem : Node;
|
|
begin
|
|
Doc := Create_Document (Implementation);
|
|
Elem := Append_Child (Doc, Create_Element (Doc, -"elem"));
|
|
Elem := Append_Child (Elem, Create_Text_Node (Doc, -"Dummy text"));
|
|
|
|
Append_Data (Elem, -"appended");
|
|
Expect (Data (Elem), -"Dummy textappended");
|
|
|
|
Delete_Data (Elem, 3, 3);
|
|
Expect (Data (Elem), -"Dumtextappended");
|
|
|
|
Replace_Data (Elem, 3, 3, -"replaced");
|
|
Expect (Data (Elem), -"Dumreplacedtappended");
|
|
Free (Doc);
|
|
end Test_Chardata;
|