Exceptions from supplied testing functions now caught as test fails

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");