Add info to unit tests

rocher · Mar 3, 2023 · f8ebe05 · f8ebe05
1 parent d82c2ec
commit f8ebe05
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/tests/src/euler_tools_tests.adb b/tests/src/euler_tools_tests.adb
@@ -14,13 +14,15 @@
 
 with Ada.Command_Line;
 with Ada.Containers;
+with Ada.Text_IO;
 
 with AUnit.Run;
 with AUnit.Reporter.Text;
 with AUnit.Test_Results;
 
 with Euler_Test_Suite;
 with Euler_Tools_Tests_Config; use Euler_Tools_Tests_Config;
+with Euler_Tools;
 
 procedure Euler_Tools_Tests is
 
@@ -30,10 +32,10 @@ procedure Euler_Tools_Tests is
    Results  : AUnit.Test_Results.Result;
 
 begin
+   Ada.Text_IO.Put_Line
+     ("   " & Euler_Tools.Library_Name & " = " & Euler_Tools.Library_Version);
 
-   if Build_Profile = development then
-      Reporter.Set_Use_ANSI_Colors (True);
-   end if;
+   Reporter.Set_Use_ANSI_Colors (Build_Profile = development);
    Run (Reporter, Results);
 
    if not Results.Successful then