with GF_Stress;
with Diff_Car_Stress;
with Car_Stress;
with Pack_Stress;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Exceptions; use Ada.Exceptions;
with GNAT.Traceback.Symbolic; use GNAT.Traceback.Symbolic;
procedure Stressall
is
begin
Put_Line ("GF Stress");
GF_Stress;
Put_Line ("Diff Car Stress");
Diff_Car_Stress;
Put_Line ("Car Stress");
Car_Stress;
Put_Line ("Pack Stress");
Pack_Stress;
exception
when E : others =>
Put_Line (Exception_Message (E));
Put_Line (Exception_Information (E));
Put_Line (Symbolic_Traceback (E));
end Stressall;