diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2020-12-19 18:55:21 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2020-12-19 18:55:21 +1100 |
| commit | bf8e7781e9f6b4aab48e8f0401920f1b8ad681c5 (patch) | |
| tree | 76f80d3063e265a3b831b111f4a76dd18d0c0c7e /src/unit_tests.ads | |
| parent | ea705bc9c754164d673d611585a22d020b0c94f4 (diff) | |
Abort timer for long running tests added, but won't deal with infinite loops yet
Diffstat (limited to 'src/unit_tests.ads')
| -rw-r--r-- | src/unit_tests.ads | 12 |
1 files changed, 8 insertions, 4 deletions
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); |