Lines Matching defs:Test

25 procedure Test is  subprogram
34    File_Size   : Count   := 100_000;
35    Continuous  : constant Boolean := False;
37    Header      : constant ZLib.Header_Type := ZLib.Default;
44    Strategy    : constant ZLib.Strategy_Type := ZLib.Default_Strategy;
45    Init_Random : constant := 10;
49    In_File_Name  : constant String := "testzlib.in";
52    Z_File_Name   : constant String := "testzlib.zlb";
55    Out_File_Name : constant String := "testzlib.out";
58    File_In   : File_Type;
59    File_Out  : File_Type;
60    File_Back : File_Type;
61    File_Z    : ZLib.Streams.Stream_Type;
63    Filter : ZLib.Filter_Type;
65    Time_Stamp : Ada.Calendar.Time;
67    procedure Generate_File;
71    procedure Compare_Streams
76    procedure Compare_Files (Left, Right : String);
79    procedure Copy_Streams
85    procedure Data_In
92    procedure Data_Out (Item : in Stream_Element_Array);
97    procedure Stamp;
100    procedure Print_Statistic (Msg : String; Data_Size : ZLib.Count);
103    procedure Translate is new ZLib.Generic_Translate
114    procedure Compare_Files (Left, Right : String) is
128    procedure Compare_Streams
162    procedure Copy_Streams
181    procedure Data_In
192    procedure Data_Out (Item : in Stream_Element_Array) is
201    procedure Generate_File is
261    procedure Print_Statistic (Msg : String; Data_Size : ZLib.Count) is
301          --  Test generic interface.  argument