|
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 - downloadIndex: ┃ B T ┃
Length: 38856 (0x97c8)
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_Event3;
with Xlbt_Key;
with Xlbt_Misc;
with Xlbt_Pointer;
with Xlbt_Window;
with Xlbmt_Network_Types;
with Xlbip_Event_Converters;
procedure Cvt_040 is
------------------------------------------------------------------------------
-- Tests for Xlbip_Event_Converters
------------------------------------------------------------------------------
-- 09/11/90 DRK | Created.
------------------------------------------------------------------------------
---------------------------------
-- Handy constants and renames --
---------------------------------
package Utils renames Cvt_Test_Utilities;
package Tests renames Utils.Raw_Data_Tests;
use Utils.Raw_Data_Constants;
----------------------------------------------------------------------
-------------------------
-- Major test sections --
-------------------------
procedure Test_X_Button_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Button_Event, "X_Button_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Button_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Pointer.Any_Button,
0, 0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0),
(1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Reply_Event, Xlbt_Pointer.Button_2,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 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 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Button_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Circulate_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Circulate_Notify_Event,
"X_Circulate_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Circulate_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Window.Place_On_Top, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))),
Xlbt_Window.Place_On_Bottom, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Circulate_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Circulate_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Circulate_Request_Event,
"X_Circulate_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Circulate_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0),
Xlbt_Window.Place_On_Top, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.-1.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (others => 255),
Xlbt_Window.Place_On_Bottom, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
(1 .. 4 => Raw_Ff) & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Circulate_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Client_Message_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Client_Message_Event,
"X_Client_Message_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Client_Message_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Number => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.2.3.4.5.6-25",
(Xlbt_Event3.Reply_Event, 2, 3,
(Drawable => (Id => (Number => 4))), (Number => 5),
(6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
((6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25)));
Test_Io.New_Line;
end Test_X_Client_Message_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Colormap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Colormap_Notify_Event,
"X_Colormap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Colormap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Id => (Number => 0)), Xlbt_Misc.False,
Xlbt_Event3.Colormap_Uninstalled, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.0.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Id => (Number => 4)), Xlbt_Misc.False,
Xlbt_Event3.Colormap_Installed, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & ((0, 1)) & (1 .. 18 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Colormap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Configure_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Configure_Notify_Event,
"X_Configure_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Configure_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.10.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), 6, 7, 8, 9, 10,
Xlbt_Misc.True, (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_00_07 & Swab_00_08 &
Swab_00_09 & Swab_00_0a & (1 => 1, 2 .. 6 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Configure_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Configure_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Configure_Request_Event,
"X_Configure_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Configure_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Window.Above,
0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
0, (others => False), (others => 0)), (1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.-1",
(Xlbt_Event3.Reply_Event, Xlbt_Window.Top_If,
3, (Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))), 7, 8, 9, 10, 11,
(Xlbt_Window.Cw_Height | Xlbt_Window.Cw_Width => True,
others => False), (others => 255)),
((1, 2)) & 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_00_0c & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Configure_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Create_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Create_Notify_Event,
"X_Create_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Create_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), 5, 6, 7, 8, 9,
Xlbt_Misc.True, (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 & (1 => 1, 2 .. 10 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Create_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Destroy_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Destroy_Notify_Event,
"X_Destroy_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Destroy_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (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_Destroy_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Enter_Leave_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Enter_Leave_Event,
"X_Enter_Leave_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Enter_Leave_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event,
Xlbt_Event3.Enter_Leave_Notify_Ancestor, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0,
0, 0, (others => False),
Xlbt_Event3.Enter_Leave_Notify_Normal, (others => False)),
(1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.49",
(Xlbt_Event3.Reply_Event, Xlbt_Event3.Enter_Leave_Notify_Inferior,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False),
Xlbt_Event3.Enter_Leave_Notify_Grab,
(Xlbt_Event3.Xelfi4 | Xlbt_Event3.Xelfi5 |
Xlbt_Event3.Enter_Leave_Focus => True,
others => False)),
((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 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, 49)));
Test_Io.New_Line;
end Test_X_Enter_Leave_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Expose_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Expose_Event, "X_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
0, 0, 0, 0, 0, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
4, 5, 6, 7, 8, (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 & (1 .. 14 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Focus_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Focus_Event, "X_Focus_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Focus_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Event3.Focus_Notify_Ancestor,
0, (Drawable => (Id => (Number => 0))),
Xlbt_Event3.Focus_Notify_Normal, (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event,
Xlbt_Event3.Focus_Notify_Inferior, 3,
(Drawable => (Id => (Number => 4))),
Xlbt_Event3.Focus_Notify_Grab, (1 .. 23 => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &
(1 => 1, 2 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Focus_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Graphics_Expose_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Graphics_Expose_Event,
"X_Graphics_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Graphics_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, (Id => (Number => 0)), 0,
0, 0, 0, 0, 0, Xlbt_Event3.Error_Event, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.10.-1",
(Xlbt_Event3.Reply_Event, 255, 2, (Id => (Number => 3)), 4,
5, 6, 7, 8, 9, Xlbt_Event3.Focus_Out, (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 => 10, 2 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Graphics_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Gravity_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Gravity_Notify_Event,
"X_Gravity_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Gravity_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), 5, 6, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_05 & Swab_00_06 & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Gravity_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Keymap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Keymap_Notify_Event,
"X_Keymap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Keymap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, (others => False)),
(1 .. 32 => 0));
Test ("1.2.-1.3", (Xlbt_Event3.Reply_Event,
(14 | 16 .. 247 | 254 | 255 => True,
others => False)),
(1 => 1, 2 => 2, 3 .. 31 => Raw_Ff, 32 => 3));
Test_Io.New_Line;
end Test_X_Keymap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Key_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Key_Event, "X_Key_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Key_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0), (1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Reply_Event, 2, 3, 4,
(Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 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 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Key_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Mapping_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Mapping_Notify_Event,
"X_Mapping_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Mapping_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
Xlbt_Event3.Mapping_Modifier, 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.1.4.5.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
Xlbt_Event3.Mapping_Keyboard, 4, 5, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & ((1, 4, 5)) & (1 .. 25 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Mapping_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Map_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Map_Notify_Event,
"X_Map_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Map_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 => 1, 2 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Map_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Map_Request_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Map_Request_Event,
"X_Map_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Map_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (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_Map_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Motion_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Motion_Notify_Event,
"X_Motion_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Motion_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Event3.Motion_Notify_Normal,
0, 0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0), (1 .. 32 => 0));
Test ("0.1.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Error_Event, Xlbt_Event3.Motion_Notify_Hint,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 255),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Motion_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_No_Expose_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_No_Expose_Event,
"X_No_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_No_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, (Id => (Number => 0)),
0, Xlbt_Event3.Error_Event, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event3.Reply_Event, 255,
2, (Id => (Number => 3)), 4,
Xlbt_Event3.Button_Release, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & (1 => 5, 2 .. 22 => Raw_Ff));
Test_Io.New_Line;
end Test_X_No_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Property_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Property_Notify_Event,
"X_Property_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Property_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))), (Number => 0), 0,
Xlbt_Window.Property_New_Value, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))), (Number => 4), 5,
Xlbt_Window.Property_Delete, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Property_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Reparent_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Reparent_Notify_Event,
"X_Reparent_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Reparent_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), 6,
7, Xlbt_Misc.True, (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_00_07 & (1 => 1, 2 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Reparent_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Resize_Request_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Resize_Request_Event,
"X_Resize_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Resize_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))), 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))), 4, 5, (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_Resize_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Clear_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Selection_Clear_Event,
"X_Selection_Clear_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Clear_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Number => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Number => 5), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Clear_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Selection_Notify_Event,
"X_Selection_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))), (Number => 0),
(Number => 0), (Number => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.-1", (Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Number => 5), (Number => 6),
(Number => 7), (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_00_00_06 &
Swab_00_00_00_07 & (1 .. 8 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Selection_Request_Event,
"X_Selection_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (Number => 0),
(Number => 0), (Number => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.-1",
(Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), (Number => 6),
(Number => 7), (Number => 8), (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_00_00_06 &
Swab_00_00_00_07 & Swab_00_00_00_08 & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Unmap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Unmap_Notify_Event,
"X_Unmap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Unmap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 => 1, 2 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Unmap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Visibility_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Visibility_Notify_Event,
"X_Visibility_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Visibility_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
Xlbt_Event3.Visibility_Unobscured, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
Xlbt_Event3.Visibility_Partially_Obscured, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
(1 => 1, 2 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Visibility_Notify_Event;
begin
Test_X_Button_Event;
Test_X_Circulate_Notify_Event;
Test_X_Circulate_Request_Event;
Test_X_Client_Message_Event;
Test_X_Colormap_Notify_Event;
Test_X_Configure_Notify_Event;
Test_X_Configure_Request_Event;
Test_X_Create_Notify_Event;
Test_X_Destroy_Notify_Event;
Test_X_Enter_Leave_Event;
Test_X_Expose_Event;
Test_X_Focus_Event;
Test_X_Graphics_Expose_Event;
Test_X_Gravity_Notify_Event;
Test_X_Keymap_Notify_Event;
Test_X_Key_Event;
Test_X_Mapping_Notify_Event;
Test_X_Map_Notify_Event;
Test_X_Map_Request_Event;
Test_X_Motion_Notify_Event;
Test_X_No_Expose_Event;
Test_X_Property_Notify_Event;
Test_X_Reparent_Notify_Event;
Test_X_Resize_Request_Event;
Test_X_Selection_Clear_Event;
Test_X_Selection_Notify_Event;
Test_X_Selection_Request_Event;
Test_X_Unmap_Notify_Event;
Test_X_Visibility_Notify_Event;
end Cvt_040;