From bf8e7781e9f6b4aab48e8f0401920f1b8ad681c5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 19 Dec 2020 18:55:21 +1100 Subject: Abort timer for long running tests added, but won't deal with infinite loops yet --- src/unit_tests.ads | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/unit_tests.ads') diff --git a/src/unit_tests.ads b/src/unit_tests.ads index 90eccee..adb10f9 100644 --- a/src/unit_tests.ads +++ b/src/unit_tests.ads @@ -34,21 +34,25 @@ package Unit_Tests is function Run_Test (To_Run : in Test; - Verbose : in Verbosity := Weak) + Verbose : in Verbosity := Weak; + Timeout : in Duration := 0.0) return Test_Result; procedure Run_Test (To_Run : in Test; - Verbose : in Verbosity := Weak); + Verbose : in Verbosity := Weak; + Timeout : in Duration := 0.0); function Run_Tests (To_Run : in Test_Array; - Verbose : in Verbosity := Weak) + Verbose : in Verbosity := Weak; + Timeout : in Duration := 0.0) return Test_Result_Array; procedure Run_Tests (To_Run : in Test_Array; - Verbose : in Verbosity := Weak); + Verbose : in Verbosity := Weak; + Timeout : in Duration := 0.0); -- cgit