|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 102400 (0x19000)
Types: Ada Source
Notes: 03_class, FILE, Long Ada Source, R1k_Segment, e3_tag, procedure Cvt_060, seg_005499
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Test_Io;
with Cvt_Test_Utilities;
with Xlbt_Arithmetic;
with Xlbt_Basic;
with Xlbt_Error;
with Xlbt_Event;
with Xlbt_Font;
with Xlbt_Grab;
with Xlbt_Host;
with Xlbt_Input_Focus;
with Xlbt_Key;
with Xlbt_Keyboard;
with Xlbt_Misc;
with Xlbt_Reply;
with Xlbt_Request;
with Xlbt_Screen_Saver;
with Xlbt_Window;
with Xlbmt_Network_Types;
with Xlbip_Reply_Converters;
procedure Cvt_060 is
------------------------------------------------------------------------------
-- Tests for Xlbip_Reply_Converters
--
-- Xlbip_Reply_Converters only instantiates the converters actually
-- used by the protocol. The tester generics expect to have symmetric
-- converters for each type. Individual tests instantiate their own
-- dummy To_Raw and From_Raw converters when necessary.
------------------------------------------------------------------------------
-- 09/12/90 DRK | Created.
------------------------------------------------------------------------------
---------------------------------
-- Handy constants and renames --
---------------------------------
package Utils renames Cvt_Test_Utilities;
package Tests renames Utils.Raw_Data_Tests;
package Dummy renames Utils.Dummy_Converters;
use Utils.Raw_Data_Constants;
----------------------------------------------------------------------
-------------------------
-- Major test sections --
-------------------------
procedure Test_X_Alloc_Color_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Alloc_Color_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Alloc_Color_Reply,
"X_Alloc_Color_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Alloc_Color_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, 0, 0, 0,
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.-1.7.-1", (Xlbt_Event.Reply_Event, 255, 2, 3, 4,
5, 6, 16#FFFF#, 7, (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & Swab_00_06 & Swab_Ff_Ff &
Swab_00_00_00_07 & (1 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Alloc_Color_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Alloc_Color_Cells_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Alloc_Color_Cells_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Alloc_Color_Cells_Reply,
"X_Alloc_Color_Cells_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Alloc_Color_Cells_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event.Reply_Event, 255,
2, 3, 4, 5, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 255)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Alloc_Color_Cells_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Alloc_Color_Planes_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Alloc_Color_Planes_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Alloc_Color_Planes_Reply,
"X_Alloc_Color_Planes_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Alloc_Color_Planes_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0,
0, 0, 0, (others => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.-1.5.6.7.-1",
(Xlbt_Event.Reply_Event, 255, 2, 3, 4, 16#FFFF#,
5, 6, 7, (others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & (1 .. 8 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Alloc_Color_Planes_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Alloc_Named_Color_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Alloc_Named_Color_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Alloc_Named_Color_Reply,
"X_Alloc_Named_Color_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Alloc_Named_Color_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, (others => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.10.-1",
(Xlbt_Event.Reply_Event, 255, 2, 3, 4, 5, 6, 7,
8, 9, 10, (others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_05 & Swab_00_06 & Swab_00_07 & Swab_00_08 &
Swab_00_09 & Swab_00_0a & (1 .. 8 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Alloc_Named_Color_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Atom_Name_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Atom_Name_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Atom_Name_Reply,
"X_Get_Atom_Name_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Atom_Name_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Atom_Name_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Font_Path_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Font_Path_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Font_Path_Reply,
"X_Get_Font_Path_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Font_Path_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Font_Path_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Geometry_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Geometry_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Geometry_Reply,
"X_Get_Geometry_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Geometry_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0, 0,
0, (others => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.-1",
(Xlbt_Event.Reply_Event, 2, 3, 4,
(Drawable => (Id => (Number => 5))), 6, 7, 8, 9, 10, 16#FFFF#,
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_06 & Swab_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_Ff_Ff & (1 .. 8 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Geometry_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Image_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Image_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Image_Reply,
"X_Get_Image_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Image_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(Number => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.5.-1", (Xlbt_Event.Reply_Event, 2, 3, 4,
(Number => 5), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Image_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Input_Focus_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Input_Focus_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Input_Focus_Reply,
"X_Get_Input_Focus_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Input_Focus_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Input_Focus.Revert_To_None,
0, 0, (Drawable => (Id => (Number => 0))), (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.5.-1",
(Xlbt_Event.Reply_Event, Xlbt_Input_Focus.Revert_To_Parent,
3, 4, (Drawable => (Id => (Number => 5))),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Input_Focus_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Keyboard_Control_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Keyboard_Control_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Keyboard_Control_Reply,
"X_Get_Keyboard_Control_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Keyboard_Control_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Misc.False, 0, 0,
(others => False), 0, 0, 0, 0, 0, (others => False)),
(1 .. 52 => 0));
Test ("0.1.3.4.5.6.7.8.9.-1.10.-1.11",
(Xlbt_Event.Error_Event, Xlbt_Misc.True, 3,
4, (Xlbt_Keyboard.Led02 | Xlbt_Keyboard.Led00 => True,
others => False), 6, 7, 8, 9, 16#FFFF#,
(4 | 6 | 8 .. 247 | 252 | 254 | 255 => True, others => False)),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
((6, 7)) & Swab_00_08 & Swab_00_09 & Swab_Ff_Ff &
(1 => 10, 2 .. 31 => Raw_Ff, 32 => 11));
Test_Io.New_Line;
end Test_X_Get_Keyboard_Control_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Keyboard_Mapping_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Keyboard_Mapping_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Keyboard_Mapping_Reply,
"X_Get_Keyboard_Mapping_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Keyboard_Mapping_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event, 2, 3, 4, (others => 255),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Keyboard_Mapping_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Modifier_Mapping_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Modifier_Mapping_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Modifier_Mapping_Reply,
"X_Get_Modifier_Mapping_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Modifier_Mapping_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event, 2, 3, 4, (others => 255),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Modifier_Mapping_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Motion_Events_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Motion_Events_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Motion_Events_Reply,
"X_Get_Motion_Events_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Motion_Events_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255,
2, 3, 4, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Motion_Events_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Pointer_Control_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Pointer_Control_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Pointer_Control_Reply,
"X_Get_Pointer_Control_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Pointer_Control_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.-1", (Xlbt_Event.Reply_Event, 255, 2, 3, 4, 5, 6,
16#FFFF#, (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_04 &
Swab_00_05 & Swab_00_06 & Swab_Ff_Ff & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Pointer_Control_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Pointer_Mapping_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Pointer_Mapping_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Pointer_Mapping_Reply,
"X_Get_Pointer_Mapping_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Pointer_Mapping_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event, 2, 3, 4, (others => 255),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Pointer_Mapping_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Property_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Property_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Property_Reply,
"X_Get_Property_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Property_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, (Number => 0), 0,
0, (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.-1", (Xlbt_Event.Reply_Event, 2, 3, 4,
(Number => 5), 6, 7, (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & (1 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Property_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Screen_Saver_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Screen_Saver_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Get_Screen_Saver_Reply,
"X_Get_Screen_Saver_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Screen_Saver_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0,
Xlbt_Screen_Saver.Dont_Prefer_Blanking,
Xlbt_Screen_Saver.Dont_Allow_Exposures, 0, (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.1.2.-1",
(Xlbt_Event.Reply_Event, 255, 2, 3, 4,
5, Xlbt_Screen_Saver.Prefer_Blanking,
Xlbt_Screen_Saver.Default_Exposures, 16#FFFF#, (others => 255),
(others => 255), (others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_04 &
Swab_00_05 & ((1, 2)) & Swab_Ff_Ff & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Screen_Saver_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Selection_Owner_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Selection_Owner_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Selection_Owner_Reply,
"X_Get_Selection_Owner_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Selection_Owner_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))), (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1",
(Xlbt_Event.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Get_Selection_Owner_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Get_Window_Attributes_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Get_Window_Attributes_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Get_Window_Attributes_Reply,
"X_Get_Window_Attributes_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Get_Window_Attributes_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Window.Not_Useful, 0,
0, (Number => 0), Xlbt_Window.Copy_From_Parent,
Xlbt_Window.Forget_Bit_Gravity, Xlbt_Window.Unmap_Gravity,
0, 0, Xlbt_Misc.False, Xlbt_Misc.False,
Xlbt_Window.Is_Unmapped, Xlbt_Misc.False,
(Id => (Number => 0)), (others => False),
(others => False), (others => False), 0), (1 .. 44 => 0));
Test ("1.2.3.4.5.1.7.8.9.10.0.1.2.1.15.16.17.18.-1",
(Xlbt_Event.Reply_Event, Xlbt_Window.Always, 3,
4, (Number => 5), Xlbt_Window.Input_Output,
Xlbt_Window.South_West_Bit_Gravity, Xlbt_Window.South_Gravity, 9,
10, Xlbt_Misc.False, Xlbt_Misc.True, Xlbt_Window.Is_Viewable,
Xlbt_Misc.True, (Id => (Number => 15)),
(Xlbt_Basic.Enter_Window_Mask => True, others => False),
(Xlbt_Basic.Enter_Window_Mask | Xlbt_Basic.Key_Press_Mask =>
True,
others => False),
(Xlbt_Basic.Enter_Window_Mask | Xlbt_Basic.Key_Release_Mask =>
True,
others => False), 16#FFFF#),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_01 & ((7, 8)) & Swab_00_00_00_09 & Swab_00_00_00_0a &
((0, 1, 2, 1)) & Swab_00_00_00_0f & Swab_00_00_00_10 &
Swab_00_00_00_11 & Swab_00_12 & Swab_Ff_Ff);
Test_Io.New_Line;
end Test_X_Get_Window_Attributes_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Grab_Keyboard_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Grab_Keyboard_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Grab_Keyboard_Reply,
"X_Grab_Keyboard_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Grab_Keyboard_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Grab.Grab_Success, 0,
0, (others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event,
Xlbt_Grab.Grab_Invalid_Time, 3, 4,
(others => 255), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Grab_Keyboard_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Grab_Pointer_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Grab_Pointer_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Grab_Pointer_Reply,
"X_Grab_Pointer_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Grab_Pointer_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Grab.Grab_Success, 0,
0, (others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event,
Xlbt_Grab.Grab_Invalid_Time, 3, 4,
(others => 255), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Grab_Pointer_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Intern_Atom_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Intern_Atom_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Intern_Atom_Reply,
"X_Intern_Atom_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Intern_Atom_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(Number => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2, 3,
(Number => 4), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Intern_Atom_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Extensions_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Extensions_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_List_Extensions_Reply,
"X_List_Extensions_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Extensions_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event, 2, 3, 4, (others => 255),
(others => 255), (others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_List_Extensions_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Fonts_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Fonts_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_List_Fonts_Reply,
"X_List_Fonts_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Fonts_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_List_Fonts_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Fonts_With_Info_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Fonts_With_Info_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_List_Fonts_With_Info_Reply,
"X_List_Fonts_With_Info_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Fonts_With_Info_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(0, 0, 0, 0, 0, (others => False)), 0,
(0, 0, 0, 0, 0, (others => False)), 0, 0, 0, 0,
0, Xlbt_Font.Font_Left_To_Right,
0, 0, Xlbt_Misc.False, 0, 0, 0), (1 .. 60 => 0));
Test ("1.2.3.4.5.-1.6.-1.7.8.9.10.1.12.13.1.15.16.17",
(Xlbt_Event.Reply_Event, 2, 3, 4,
(0, 0, 0, 0, 0, (Xlbt_Font.Xpcfi02 | Xlbt_Font.Xpcfi00 => True,
others => False)), Minus_1,
(0, 0, 0, 0, 0, (Xlbt_Font.Xpcfi02 | Xlbt_Font.Xpcfi01 => True,
others => False)),
Minus_1, 7, 8, 9, 10, Xlbt_Font.Font_Right_To_Left,
12, 13, Xlbt_Misc.True, 15, 16, 17),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &
(Swab_00_00 & Swab_00_00 & Swab_00_00 &
Swab_00_00 & Swab_00_00 & Swab_00_05) & Swab_Ff_Ff_Ff_Ff &
(Swab_00_00 & Swab_00_00 & Swab_00_00 &
Swab_00_00 & Swab_00_00 & Swab_00_06) &
Swab_Ff_Ff_Ff_Ff & Swab_00_07 & Swab_00_08 &
Swab_00_09 & Swab_00_0a & ((1, 12, 13, 1)) &
Swab_00_0f & Swab_00_10 & Swab_00_00_00_11);
Test_Io.New_Line;
end Test_X_List_Fonts_With_Info_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Hosts_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Hosts_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_List_Hosts_Reply,
"X_List_Hosts_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Hosts_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Misc.False,
0, 0, 0, 0, (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("0.1.3.4.5.-1", (Xlbt_Event.Error_Event, Xlbt_Misc.True,
3, 4, 5, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 &
Swab_00_05 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_List_Hosts_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Wire_Host_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Wire_Host_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Wire_Host_Reply,
"X_Wire_Host_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Wire_Host_Reply conversions");
Test ("0", (Xlbt_Host.Family_Internet, 0, 0), (1 .. 4 => 0));
Test ("1.-1.2", (Xlbt_Host.Family_Decnet, 255, 2),
((1, Raw_Ff)) & Swab_00_02);
Test_Io.New_Line;
end Test_X_Wire_Host_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Installed_Colormaps_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Installed_Colormaps_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_List_Installed_Colormaps_Reply,
"X_List_Installed_Colormaps_Reply",
To_Raw, Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Installed_Colormaps_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_List_Installed_Colormaps_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_List_Properties_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_List_Properties_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_List_Properties_Reply,
"X_List_Properties_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_List_Properties_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_List_Properties_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Lookup_Color_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Lookup_Color_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Lookup_Color_Reply,
"X_Lookup_Color_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Lookup_Color_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, 0, 0, 0,
0, (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0)); Test ("1.-1.2.3.4.5.6.7.8.9.-1", (Xlbt_Event.Reply_Event, 255, 2, 3,
4, 5, 6, 7, 8, 9, (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & Swab_00_06 & Swab_00_07 &
Swab_00_08 & Swab_00_09 & (1 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Lookup_Color_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Best_Size_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Best_Size_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Best_Size_Reply,
"X_Query_Best_Size_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Best_Size_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event.Reply_Event, 255,
2, 3, 4, 5, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Best_Size_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Colors_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Colors_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Colors_Reply,
"X_Query_Colors_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Colors_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1", (Xlbt_Event.Reply_Event, 255, 2,
3, 4, 16#FFFF#, (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_Ff_Ff & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Colors_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Rgb is
procedure To_Raw is
new Dummy.Convert_From_Private
(Xlbt_Reply.X_Rgb, Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Rgb, "X_Rgb", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Rgb conversions");
Test ("0", (0, 0, 0, 0), (1 .. 8 => 0));
Test ("1.2.3.4", (1, 2, 3, 4),
Swab_00_01 & Swab_00_02 & Swab_00_03 & Swab_00_04);
Test_Io.New_Line;
end Test_X_Rgb;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Rgb_Array is
procedure To_Raw is new Dummy.Convert_From_Array
(Xlbt_Reply.X_Rgb, Xlbt_Arithmetic.S_Natural,
Xlbt_Reply.X_Rgb_Array,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester_1d
(Xlbt_Reply.X_Rgb, Xlbt_Arithmetic.S_Natural,
Xlbt_Reply.X_Rgb_Array, "X_Rgb_Array",
To_Raw, Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Rgb_Array conversions");
Test ("1..0 => 0", (1 .. 0 => (0, 0, 0, 0)), (1 .. 0 => 0));
Test ("2..2 => -1", (2 => (16#FFFF#, 16#FFFF#, 16#FFFF#, 16#FFFF#)),
(1 .. 8 => Raw_Ff));
Test ("0..0 => 1", (0 => (0, 0, 0, 1)), (1 .. 6 => 0) & Swab_00_01);
Test ("(1.2.3.-1, 4.5.6.-1)",
((1, 2, 3, 16#FFFF#), (4, 5, 6, 16#FFFF#)),
Swab_00_01 & Swab_00_02 & Swab_00_03 & Swab_Ff_Ff &
Swab_00_04 & Swab_00_05 & Swab_00_06 & Swab_Ff_Ff);
Test_Io.New_Line;
end Test_X_Rgb_Array;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Extension_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Extension_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Extension_Reply,
"X_Query_Extension_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Extension_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, Xlbt_Misc.False,
Xlbt_Request.Invalid_Request, Xlbt_Event.Error_Event,
Xlbt_Error.Success, (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.1.5.6.7.-1",
(Xlbt_Event.Reply_Event, 255, 2, 3, Xlbt_Misc.True,
Xlbt_Request.Destroy_Subwindows, Xlbt_Event.Motion_Notify,
Xlbt_Error.Bad_Font, (others => 255), (others => 255),
(others => 255), (others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
((1, 5, 6, 7)) & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Extension_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Font_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Font_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Font_Reply,
"X_Query_Font_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Font_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(0, 0, 0, 0, 0, (others => False)), 0,
(0, 0, 0, 0, 0, (others => False)), 0, 0, 0, 0,
0, Xlbt_Font.Font_Left_To_Right,
0, 0, Xlbt_Misc.False, 0, 0, 0), (1 .. 60 => 0));
Test ("1.-1.2.3.4.-1.5.-1.6.7.8.9.1.11.12.1.14.15.16",
(Xlbt_Event.Reply_Event, 255, 2, 3,
(0, 0, 0, 0, 0, (Xlbt_Font.Xpcfi02 => True, others => False)),
Minus_1,
(0, 0, 0, 0, 0, (Xlbt_Font.Xpcfi02 | Xlbt_Font.Xpcfi00 => True,
others => False)),
Minus_1, 6,
7, 8, 9,
Xlbt_Font.Font_Right_To_Left, 11, 12,
Xlbt_Misc.True, 14,
15, 16),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
(Swab_00_00 & Swab_00_00 & Swab_00_00 &
Swab_00_00 & Swab_00_00 & Swab_00_04) & Swab_Ff_Ff_Ff_Ff &
(Swab_00_00 & Swab_00_00 & Swab_00_00 &
Swab_00_00 & Swab_00_00 & Swab_00_05) & Swab_Ff_Ff_Ff_Ff &
Swab_00_06 & Swab_00_07 & Swab_00_08 & Swab_00_09 &
((1, 11, 12, 1)) & Swab_00_0e & Swab_00_0f & Swab_00_00_00_10);
Test_Io.New_Line;
end Test_X_Query_Font_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Keymap_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Keymap_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Keymap_Reply,
"X_Query_Keymap_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Keymap_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0, (others => False)),
(1 .. 40 => 0));
Test ("1.-1.2.3.4.-1.5",
(Xlbt_Event.Reply_Event, 255, 2, 3,
(5 | 8 .. 247 | 253 | 255 => True, others => False)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
(1 => 4, 2 .. 31 => Raw_Ff, 32 => 5));
Test_Io.New_Line;
end Test_X_Query_Keymap_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Pointer_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Pointer_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Pointer_Reply,
"X_Query_Pointer_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Pointer_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Misc.False,
0, 0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0,
0, (others => False), 0, (others => 0)), (1 .. 32 => 0));
Test ("0.1.3.4.5.6.7.8.9.10.11.-1",
(Xlbt_Event.Error_Event, Xlbt_Misc.True, 3,
4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))), 7, 8, 9, 10,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Lock_Mask |
Xlbt_Key.Shift_Mask => True,
others => False), 16#FFFF#, (others => 255)),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_Ff_Ff & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Pointer_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Text_Extents_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Text_Extents_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Query_Text_Extents_Reply,
"X_Query_Text_Extents_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Text_Extents_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Font.Font_Left_To_Right,
0, 0, 0, 0, 0, 0, 0, 0, 0, (others => 0)), (1 .. 32 => 0));
Test ("0.1.3.4.5.6.7.8.9.10.11.-1",
(Xlbt_Event.Error_Event, Xlbt_Font.Font_Right_To_Left,
3, 4, 5, 6, 7, 8, 9, 10, 11, (others => 255)),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_05 &
Swab_00_06 & Swab_00_07 & Swab_00_08 & Swab_00_00_00_09 &
Swab_00_00_00_0a & Swab_00_00_00_0b & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Text_Extents_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Query_Tree_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Query_Tree_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Query_Tree_Reply,
"X_Query_Tree_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Query_Tree_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0,
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.-1", (Xlbt_Event.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))),
6, 16#FFFF#, (others => 255),
(others => 255), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_06 & Swab_Ff_Ff & (1 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Query_Tree_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Set_Modifier_Mapping_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Set_Modifier_Mapping_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Set_Modifier_Mapping_Reply,
"X_Set_Modifier_Mapping_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Set_Modifier_Mapping_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Keyboard.Mapping_Success,
0, 0, (others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event,
Xlbt_Keyboard.Mapping_Failed, 3, 4,
(others => 255), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Set_Modifier_Mapping_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Set_Pointer_Mapping_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Set_Pointer_Mapping_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester
(Xlbt_Reply.X_Set_Pointer_Mapping_Reply,
"X_Set_Pointer_Mapping_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Set_Pointer_Mapping_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Keyboard.Mapping_Success,
0, 0, (others => 0), (others => 0), (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.-1", (Xlbt_Event.Reply_Event,
Xlbt_Keyboard.Mapping_Failed, 3, 4,
(others => 255), (others => 255),
(others => 255), (others => 255),
(others => 255), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & (1 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Set_Pointer_Mapping_Reply;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Translate_Coords_Reply is
procedure To_Raw is new Dummy.Convert_From_Private
(Xlbt_Reply.X_Translate_Coords_Reply,
Xlbmt_Network_Types.X_Raw_Data_Array);
procedure Test is new Tests.Tester (Xlbt_Reply.X_Translate_Coords_Reply,
"X_Translate_Coords_Reply", To_Raw,
Xlbip_Reply_Converters.From_Raw);
begin
Test_Io.Section ("X_Translate_Coords_Reply conversions");
Test ("0", (Xlbt_Event.Error_Event, Xlbt_Misc.False, 0, 0,
(Drawable => (Id => (Number => 0))), 0, 0, (others => 0),
(others => 0), (others => 0), (others => 0)),
(1 .. 32 => 0));
Test ("0.1.3.4.5.6.7.-1", (Xlbt_Event.Error_Event, Xlbt_Misc.True, 3,
4, (Drawable => (Id => (Number => 5))),
6, 7, (others => 255), (others => 255),
(others => 255), (others => 255)),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_06 & Swab_00_07 & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Translate_Coords_Reply;
begin
Test_X_Alloc_Color_Reply;
Test_X_Alloc_Color_Cells_Reply;
Test_X_Alloc_Color_Planes_Reply;
Test_X_Alloc_Named_Color_Reply;
Test_X_Get_Atom_Name_Reply;
Test_X_Get_Font_Path_Reply;
Test_X_Get_Geometry_Reply;
Test_X_Get_Image_Reply;
Test_X_Get_Input_Focus_Reply;
Test_X_Get_Keyboard_Control_Reply;
Test_X_Get_Keyboard_Mapping_Reply;
Test_X_Get_Modifier_Mapping_Reply;
Test_X_Get_Motion_Events_Reply;
Test_X_Get_Pointer_Control_Reply;
Test_X_Get_Pointer_Mapping_Reply;
Test_X_Get_Property_Reply;
Test_X_Get_Screen_Saver_Reply;
Test_X_Get_Selection_Owner_Reply;
Test_X_Get_Window_Attributes_Reply;
Test_X_Grab_Keyboard_Reply;
Test_X_Grab_Pointer_Reply;
Test_X_Intern_Atom_Reply;
Test_X_List_Extensions_Reply;
Test_X_List_Fonts_Reply;
Test_X_List_Fonts_With_Info_Reply;
Test_X_List_Hosts_Reply;
Test_X_Wire_Host_Reply;
Test_X_List_Installed_Colormaps_Reply;
Test_X_List_Properties_Reply;
Test_X_Lookup_Color_Reply;
Test_X_Query_Best_Size_Reply;
Test_X_Query_Colors_Reply;
Test_X_Rgb;
Test_X_Rgb_Array;
Test_X_Query_Extension_Reply;
Test_X_Query_Font_Reply;
Test_X_Query_Keymap_Reply;
Test_X_Query_Pointer_Reply;
Test_X_Query_Text_Extents_Reply;
Test_X_Query_Tree_Reply;
Test_X_Set_Modifier_Mapping_Reply;
Test_X_Set_Pointer_Mapping_Reply;
Test_X_Translate_Coords_Reply;
end Cvt_060;
nblk1=63
nid=0
hdr6=c6
[0x00] rec0=23 rec1=00 rec2=01 rec3=040
[0x01] rec0=18 rec1=00 rec2=02 rec3=054
[0x02] rec0=00 rec1=00 rec2=63 rec3=00c
[0x03] rec0=13 rec1=00 rec2=03 rec3=020
[0x04] rec0=0f rec1=00 rec2=04 rec3=048
[0x05] rec0=00 rec1=00 rec2=62 rec3=010
[0x06] rec0=12 rec1=00 rec2=05 rec3=08e
[0x07] rec0=00 rec1=00 rec2=61 rec3=00e
[0x08] rec0=12 rec1=00 rec2=06 rec3=094
[0x09] rec0=01 rec1=00 rec2=60 rec3=00e
[0x0a] rec0=12 rec1=00 rec2=07 rec3=05a
[0x0b] rec0=0f rec1=00 rec2=08 rec3=046
[0x0c] rec0=00 rec1=00 rec2=5f rec3=00c
[0x0d] rec0=12 rec1=00 rec2=09 rec3=058
[0x0e] rec0=00 rec1=00 rec2=5e rec3=00c
[0x0f] rec0=11 rec1=00 rec2=0a rec3=098
[0x10] rec0=00 rec1=00 rec2=5d rec3=00a
[0x11] rec0=14 rec1=00 rec2=0b rec3=024
[0x12] rec0=0f rec1=00 rec2=0c rec3=074
[0x13] rec0=01 rec1=00 rec2=5c rec3=00c
[0x14] rec0=11 rec1=00 rec2=0d rec3=066
[0x15] rec0=13 rec1=00 rec2=0e rec3=05e
[0x16] rec0=10 rec1=00 rec2=5b rec3=016
[0x17] rec0=00 rec1=00 rec2=0f rec3=010
[0x18] rec0=12 rec1=00 rec2=10 rec3=040
[0x19] rec0=01 rec1=00 rec2=5a rec3=00a
[0x1a] rec0=10 rec1=00 rec2=11 rec3=074
[0x1b] rec0=00 rec1=00 rec2=59 rec3=010
[0x1c] rec0=13 rec1=00 rec2=12 rec3=02a
[0x1d] rec0=10 rec1=00 rec2=13 rec3=00a
[0x1e] rec0=00 rec1=00 rec2=58 rec3=010
[0x1f] rec0=12 rec1=00 rec2=14 rec3=052
[0x20] rec0=00 rec1=00 rec2=57 rec3=010
[0x21] rec0=11 rec1=00 rec2=15 rec3=02a
[0x22] rec0=00 rec1=00 rec2=56 rec3=010
[0x23] rec0=12 rec1=00 rec2=16 rec3=08a
[0x24] rec0=10 rec1=00 rec2=17 rec3=010
[0x25] rec0=00 rec1=00 rec2=55 rec3=00c
[0x26] rec0=11 rec1=00 rec2=18 rec3=036
[0x27] rec0=12 rec1=00 rec2=19 rec3=07c
[0x28] rec0=13 rec1=00 rec2=54 rec3=040
[0x29] rec0=00 rec1=00 rec2=1a rec3=010
[0x2a] rec0=10 rec1=00 rec2=1b rec3=038
[0x2b] rec0=00 rec1=00 rec2=53 rec3=010
[0x2c] rec0=10 rec1=00 rec2=1c rec3=048
[0x2d] rec0=11 rec1=00 rec2=1d rec3=078
[0x2e] rec0=00 rec1=00 rec2=52 rec3=008
[0x2f] rec0=13 rec1=00 rec2=1e rec3=02a
[0x30] rec0=0f rec1=00 rec2=1f rec3=066
[0x31] rec0=00 rec1=00 rec2=51 rec3=00c
[0x32] rec0=13 rec1=00 rec2=20 rec3=030
[0x33] rec0=00 rec1=00 rec2=50 rec3=00c
[0x34] rec0=11 rec1=00 rec2=21 rec3=06e
[0x35] rec0=13 rec1=00 rec2=22 rec3=034
[0x36] rec0=0f rec1=00 rec2=23 rec3=036
[0x37] rec0=01 rec1=00 rec2=4f rec3=00c
[0x38] rec0=12 rec1=00 rec2=24 rec3=00c
[0x39] rec0=00 rec1=00 rec2=4e rec3=010
[0x3a] rec0=0f rec1=00 rec2=25 rec3=044
[0x3b] rec0=12 rec1=00 rec2=26 rec3=062
[0x3c] rec0=00 rec1=00 rec2=4c rec3=00c
[0x3d] rec0=12 rec1=00 rec2=27 rec3=088
[0x3e] rec0=13 rec1=00 rec2=4d rec3=024
[0x3f] rec0=00 rec1=00 rec2=28 rec3=01c
[0x40] rec0=12 rec1=00 rec2=29 rec3=068
[0x41] rec0=0f rec1=00 rec2=2a rec3=056
[0x42] rec0=13 rec1=00 rec2=2b rec3=002
[0x43] rec0=00 rec1=00 rec2=4b rec3=00c
[0x44] rec0=10 rec1=00 rec2=2c rec3=08e
[0x45] rec0=13 rec1=00 rec2=2d rec3=038
[0x46] rec0=0f rec1=00 rec2=2e rec3=032
[0x47] rec0=00 rec1=00 rec2=4a rec3=00c
[0x48] rec0=17 rec1=00 rec2=2f rec3=046
[0x49] rec0=01 rec1=00 rec2=49 rec3=008
[0x4a] rec0=0f rec1=00 rec2=30 rec3=05e
[0x4b] rec0=00 rec1=00 rec2=48 rec3=010
[0x4c] rec0=12 rec1=00 rec2=31 rec3=068
[0x4d] rec0=13 rec1=00 rec2=32 rec3=028
[0x4e] rec0=0f rec1=00 rec2=33 rec3=0a0
[0x4f] rec0=01 rec1=00 rec2=47 rec3=008
[0x50] rec0=14 rec1=00 rec2=34 rec3=022
[0x51] rec0=13 rec1=00 rec2=35 rec3=002
[0x52] rec0=00 rec1=00 rec2=46 rec3=00c
[0x53] rec0=0f rec1=00 rec2=36 rec3=044
[0x54] rec0=00 rec1=00 rec2=45 rec3=00c
[0x55] rec0=12 rec1=00 rec2=37 rec3=030
[0x56] rec0=10 rec1=00 rec2=44 rec3=084
[0x57] rec0=00 rec1=00 rec2=38 rec3=010
[0x58] rec0=11 rec1=00 rec2=39 rec3=088
[0x59] rec0=00 rec1=00 rec2=43 rec3=00c
[0x5a] rec0=12 rec1=00 rec2=3a rec3=05a
[0x5b] rec0=11 rec1=00 rec2=42 rec3=090
[0x5c] rec0=01 rec1=00 rec2=3b rec3=000
[0x5d] rec0=10 rec1=00 rec2=3c rec3=070
[0x5e] rec0=00 rec1=00 rec2=41 rec3=010
[0x5f] rec0=12 rec1=00 rec2=3d rec3=046
[0x60] rec0=13 rec1=00 rec2=3e rec3=02c
[0x61] rec0=1b rec1=00 rec2=3f rec3=00e
[0x62] rec0=0d rec1=00 rec2=40 rec3=000
tail 0x21500a14e81978a34b457 0x42a00088462063203