We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0a2c422 commit 4934dcaCopy full SHA for 4934dca
test/common/test_framework.adb
@@ -51,7 +51,18 @@ package body Test_Framework is
51
begin
52
Put_Line ("");
53
54
- if Passed = Total then
+ if Total = 0 then
55
+ -- No tests ran: Bright red box
56
+ Put_Line (Color_Red & "########################################");
57
+ Put_Line ("###");
58
+ Put_Line ("### " & Category_Name & ": FAILURE");
59
+ Put_Line ("### No tests were executed!");
60
61
+ Put_Line ("########################################" & Color_Reset);
62
+ Put_Line ("");
63
+ return 1; -- Failure exit code
64
+
65
+ elsif Passed = Total then
66
-- Success: Bright green box
67
Put_Line (Color_Green & "########################################");
68
Put_Line ("###");
0 commit comments