11 lines
No EOL
418 B
Ada
11 lines
No EOL
418 B
Ada
with Ada.Text_Io;
|
|
|
|
procedure Afficher_Test(Objet_du_Test, Attendu, Obtenu : in String) is
|
|
begin
|
|
Ada.Text_Io.New_Line;
|
|
Ada.Text_Io.Put_Line("-----------------------------------------------------------");
|
|
Ada.Text_Io.Put_Line(Objet_du_Test);
|
|
Ada.Text_Io.Put_Line("Resultat attendu : " & Attendu);
|
|
Ada.Text_Io.Put_Line("Resultat obtenu : " & Obtenu);
|
|
Ada.Text_Io.New_Line;
|
|
end Afficher_Test; |