summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/unit_tests.adb6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/unit_tests.adb b/src/unit_tests.adb
index 452721e..97ce570 100644
--- a/src/unit_tests.adb
+++ b/src/unit_tests.adb
@@ -25,7 +25,11 @@ package body Unit_Tests is
if Verbose = Strong then
Put ("Running test " & (-To_Run.Name) & "...");
end if;
- Result := To_Run.Func.all;
+ begin
+ Result := To_Run.Func.all;
+ exception
+ when others => Result := Fail;
+ end;
if Verbose = Strong then
if Result = Pass then
Put_Line (" Pass");