DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦1dbf1bb06⟧ TextFile

    Length: 15223 (0x3b77)
    Types: TextFile
    Names: »B«

Derivation

└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
    └─ ⟦0c20f784e⟧ »DATA« 
        └─⟦1abbe589f⟧ 
            └─⟦49e7f20b9⟧ 
                └─⟦this⟧ 

TextFile

with Test_Io;  
with Cvt_Test_Utilities;

with Xlbt_Arithmetic;  
with Xlbt_Basic;  
with Xlbt_Color;  
with Xlbt_Gc;  
with Xlbt_Grab;  
with Xlbt_Graphics;  
with Xlbt_Host;  
with Xlbt_Image;  
with Xlbt_Input_Focus;  
with Xlbt_Key;  
with Xlbt_Keyboard;  
with Xlbt_Misc;  
with Xlbt_Pointer;  
with Xlbt_Request;  
with Xlbt_Screen_Saver;  
with Xlbt_Window;  
with Xlbmt_Network_Types;

with Xlbip_Request_Converters;


procedure Cvt_122 is
------------------------------------------------------------------------------
-- Tests for Xlbip_Request_Converters
--
-- Xlbip_Request_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.
-- ****************************************************************************
-- * Date      - /Name/ Comment
-- *
-- * 18-SEP-90 - /DRK/ Created.
-- *  4-APR-91 - /GEB/ HPUX CDF chokes on the original unit, too big.  Break
-- *           -  it into 12-15 different units.
-- ****************************************************************************
------------------------------------------------------------------------------

--\f


---------------------------------
-- 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 --
-------------------------

--\f

    procedure Test_X_Copy_Area_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Copy_Area_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Copy_Area_Request,  
                                  "X_Copy_Area_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Copy_Area_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Id => (Number => 0)), (Id => (Number => 0)),  
                    (Id => (Number => 0)), 0, 0, 0, 0, 0, 0), (1 .. 28 => 0));  
        Test ("1.-1.2.3.4.5.6.7.8.9.10.11",  
              (Xlbt_Request.Create_Window, 255, 2,  
               (Id => (Number => 3)), (Id => (Number => 4)),  
               (Id => (Number => 5)), 6, 7, 8, 9, 10, 11),  
              ((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 & Swab_00_0b);  
        Test_Io.New_Line;  
    end Test_X_Copy_Area_Request;

--\f

    procedure Test_X_Copy_Colormap_And_Free_Request is  
        procedure From_Raw is  
           new Dummy.Convert_To_Private  
                  (Xlbt_Request.X_Copy_Colormap_And_Free_Request,  
                   Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Copy_Colormap_And_Free_Request,  
                                  "X_Copy_Colormap_And_Free_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Copy_Colormap_And_Free_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Id => (Number => 0)), (Id => (Number => 0))),  
              (1 .. 12 => 0));  
        Test ("1.-1.2.3.4", (Xlbt_Request.Create_Window, 255, 2,  
                             (Id => (Number => 3)), (Id => (Number => 4))),  
              ((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04);  
        Test_Io.New_Line;  
    end Test_X_Copy_Colormap_And_Free_Request;

--\f

    procedure Test_X_Copy_Gc_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Copy_Gc_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Copy_Gc_Request,  
                                  "X_Copy_Gc_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Copy_Gc_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0, (Id => (Number => 0)),  
                    (Id => (Number => 0)), (others => False)), (1 .. 16 => 0));  
        Test ("1.-1.2.3.4.5",  
              (Xlbt_Request.Create_Window, 255, 2,  
               (Id => (Number => 3)), (Id => (Number => 4)),  
               (Xlbt_Gc.Gc_Foreground | Xlbt_Gc.Gc_Function => True,  
                others => False)),  
              ((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &  
                 Swab_00_00_00_04 & Swab_00_00_00_05);  
        Test_Io.New_Line;  
    end Test_X_Copy_Gc_Request;

--\f

    procedure Test_X_Copy_Plane_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Copy_Plane_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Copy_Plane_Request,  
                                  "X_Copy_Plane_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Copy_Plane_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Id => (Number => 0)), (Id => (Number => 0)),  
                    (Id => (Number => 0)), 0, 0, 0, 0, 0, 0, 0),  
              (1 .. 32 => 0));  
        Test ("1.-1.2.3.4.5.6.7.8.9.10.11.12",  
              (Xlbt_Request.Create_Window, 255, 2,  
               (Id => (Number => 3)), (Id => (Number => 4)),  
               (Id => (Number => 5)), 6, 7, 8, 9, 10, 11, 12),  
              ((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 & Swab_00_0b & Swab_00_00_00_0c);  
        Test_Io.New_Line;  
    end Test_X_Copy_Plane_Request;

--\f

    procedure Test_X_Create_Colormap_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Create_Colormap_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Colormap_Request,  
                                  "X_Create_Colormap_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Colormap_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request,  
                    Xlbt_Color.Alloc_None, 0, (Id => (Number => 0)),  
                    (Drawable => (Id => (Number => 0))), (Number => 0)),  
              (1 .. 16 => 0));  
        Test ("0.1.3.4.5.6",  
              (Xlbt_Request.Invalid_Request,  
               Xlbt_Color.Alloc_All, 3, (Id => (Number => 4)),  
               (Drawable => (Id => (Number => 5))), (Number => 6)),  
              ((0, 1)) & Swab_00_03 & Swab_00_00_00_04 &  
                 Swab_00_00_00_05 & Swab_00_00_00_06);  
        Test_Io.New_Line;  
    end Test_X_Create_Colormap_Request;

--\f

    procedure Test_X_Create_Cursor_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Create_Cursor_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Cursor_Request,  
                                  "X_Create_Cursor_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Cursor_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0, (Id => (Number => 0)),  
                    (Drawable => (Id => (Number => 0))),  
                    (Drawable => (Id => (Number => 0))),  
                    0, 0, 0, 0, 0, 0, 0, 0), (1 .. 32 => 0));  
        Test ("1.-1.2.3.4.5.6.7.8.9.10.11.12.13",  
              (Xlbt_Request.Create_Window, 255, 2, (Id => (Number => 3)),  
               (Drawable => (Id => (Number => 4))),  
               (Drawable => (Id => (Number => 5))), 6, 7, 8, 9, 10, 11, 12, 13),  
              ((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 &  
                 Swab_00_0b & Swab_00_0c & Swab_00_0d);  
        Test_Io.New_Line;  
    end Test_X_Create_Cursor_Request;

--\f

    procedure Test_X_Create_Gc_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Create_Gc_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Gc_Request,  
                                  "X_Create_Gc_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Gc_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Id => (Number => 0)), (Number => 0), (others => False)),  
              (1 .. 16 => 0));  
        Test ("1.-1.2.3.4.5",  
              (Xlbt_Request.Create_Window, 255, 2,  
               (Id => (Number => 3)), (Number => 4),  
               (Xlbt_Gc.Gc_Foreground | Xlbt_Gc.Gc_Function => True,  
                others => False)),  
              ((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &  
                 Swab_00_00_00_04 & Swab_00_00_00_05);  
        Test_Io.New_Line;  
    end Test_X_Create_Gc_Request;

--\f

    procedure Test_X_Create_Glyph_Cursor_Request is  
        procedure From_Raw is  
           new Dummy.Convert_To_Private  
                  (Xlbt_Request.X_Create_Glyph_Cursor_Request,  
                   Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Glyph_Cursor_Request,  
                                  "X_Create_Glyph_Cursor_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Glyph_Cursor_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Id => (Number => 0)), (Id => (Number => 0)),  
                    (Id => (Number => 0)), 0, 0, 0, 0, 0, 0, 0, 0),  
              (1 .. 32 => 0));  
        Test ("1.-1.2.3.4.5.6.7.8.9.10.11.12.13",  
              (Xlbt_Request.Create_Window, 255, 2,  
               (Id => (Number => 3)), (Id => (Number => 4)),  
               (Id => (Number => 5)), 6, 7, 8, 9, 10, 11, 12, 13),  
              ((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 &  
                 Swab_00_0b & Swab_00_0c & Swab_00_0d);  
        Test_Io.New_Line;  
    end Test_X_Create_Glyph_Cursor_Request;

--\f

    procedure Test_X_Create_Pixmap_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Create_Pixmap_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Pixmap_Request,  
                                  "X_Create_Pixmap_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Pixmap_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Drawable => (Id => (Number => 0))),  
                    (Id => (Number => 0)), 0, 0), (1 .. 16 => 0));  
        Test ("1.2.3.4.5.6.7", (Xlbt_Request.Create_Window, 2, 3,  
                                (Drawable => (Id => (Number => 4))),  
                                (Id => (Number => 5)), 6, 7),  
              ((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &  
                 Swab_00_00_00_05 & Swab_00_06 & Swab_00_07);  
        Test_Io.New_Line;  
    end Test_X_Create_Pixmap_Request;

--\f

    procedure Test_X_Create_Window_Request is  
        procedure From_Raw is new Dummy.Convert_To_Private  
                                     (Xlbt_Request.X_Create_Window_Request,  
                                      Xlbmt_Network_Types.X_Raw_Data_Array);  
        procedure Test is new Tests.Tester  
                                 (Xlbt_Request.X_Create_Window_Request,  
                                  "X_Create_Window_Request",  
                                  Xlbip_Request_Converters.To_Raw, From_Raw);  
    begin  
        Test_Io.Section ("X_Create_Window_Request conversions");  
        Test ("0", (Xlbt_Request.Invalid_Request, 0, 0,  
                    (Drawable => (Id => (Number => 0))),  
                    (Drawable => (Id => (Number => 0))), 0, 0, 0,  
                    0, 0, Xlbt_Window.Copy_From_Parent,  
                    (Number => 0), (others => False)), (1 .. 32 => 0));  
        Test ("1.2.3.4.5.6.7.8.9.10.1.12.13",  
              (Xlbt_Request.Create_Window, 2, 3,  
               (Drawable => (Id => (Number => 4))),  
               (Drawable => (Id => (Number => 5))), 6, 7, 8, 9, 10,  
               Xlbt_Window.Input_Output, (Number => 12),  
               (Xlbt_Window.Cw_Border_Pixel | Xlbt_Window.Cw_Border_Pixmap |  
                Xlbt_Window.Cw_Background_Pixmap => True,  
                others => False)),  
              ((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_00_01 & Swab_00_00_00_0c & Swab_00_00_00_0d);  
        Test_Io.New_Line;  
    end Test_X_Create_Window_Request;

--\f

begin

    Test_X_Copy_Area_Request;  
    Test_X_Copy_Colormap_And_Free_Request;  
    Test_X_Copy_Gc_Request;  
    Test_X_Copy_Plane_Request;  
    Test_X_Create_Colormap_Request;  
    Test_X_Create_Cursor_Request;  
    Test_X_Create_Gc_Request;  
    Test_X_Create_Glyph_Cursor_Request;  
    Test_X_Create_Pixmap_Request;  
    Test_X_Create_Window_Request;

end Cvt_122;