with Test_Type_Definitions;
use  Test_Type_Definitions;

with Test_Log_Family;
use  Test_Log_Family;


with Text_IO;
use  Text_IO;

procedure  Log_Test  is

   N_Intervals, N_Arguments : Int_Type;
   package Int_IO is new Integer_IO( Int_Type );
   use Int_IO;

begin

   Put(" Number of Intervals to be tested : ");
   Get(N_Intervals); Put(N_Intervals); New_Line;

   Put(" Number of Arguments per Interval to be tested : ");
   Get(N_Arguments); Put(N_Arguments); New_Line;


------------------------------------------------
   Test_Log    (N_Intervals, N_Arguments);
   Test_Log2   (N_Intervals, N_Arguments);
   Test_Log10  (N_Intervals, N_Arguments);
   Test_LogBase(N_Intervals, N_Arguments);
--------------------------------------------------


end Log_Test;