|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 62463 (0xf3ff)
Types: TextFile
Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
└─⟦0c20f784e⟧ »DATA«
└─⟦1abbe589f⟧
└─⟦49e7f20b9⟧
└─⟦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;