with Ada.Calendar;                use Ada.Calendar;
with text_io,integer_io;          use text_io,integer_io;
with Time_Stamps;                 use Time_Stamps;

procedure ts_stamps is

-- DESCRIPTION : test on Ada.Calendar.

  procedure Main is

  -- DESCRIPTION :
  --   Test on measuring the elapsed wall clock time.

    start_moment,end_moment : Time;
    ans : character;

  begin
    start_moment := Clock;
    new_line;
    put("Session starts at ");
    Write_Time_Stamp(Standard_Output,start_moment);
    put_line(".");
    new_line;
    loop
      put("Have you waited long enough ? (y/n) "); get(ans);
      exit when ans = 'y';
    end loop;
    new_line;
    end_moment := Clock;
    put("Session ends at ");
    Write_Time_Stamp(Standard_Output,end_moment);
    put_line(".");
    put("The elapsed time is ");
    put(Elapsed_Time(start_moment,end_moment),1);
    put_line(" seconds.");
    new_line;
  end Main;

begin
  Main;
end ts_stamps;