Overview
| Comment: | cron-tests: lengthen test to help it pass on slow busy machines |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b3f94db9ebffeef045c76741ae41a155 |
| User & Date: | nat on 2016-01-08 18:05:29 |
| Other Links: | manifest | tags |
Context
|
2016-01-09
| ||
| 20:43 | time_keys-tests: add test for leap second to reach full coverage check-in: a193bf89b9 user: nat tags: trunk | |
|
2016-01-08
| ||
| 18:05 | cron-tests: lengthen test to help it pass on slow busy machines check-in: b3f94db9eb user: nat tags: trunk | |
|
2016-01-07
| ||
| 18:02 | cron-tests: test the new one-time events check-in: 10169cb96a user: nat tags: trunk | |
Changes
Modified tests/natools-cron-tests.adb from [33ff9efeb4] to [060da149fb].
| ︙ | ︙ | |||
183 184 185 186 187 188 189 |
exception
when Error : others => Test.Report_Exception (Error);
end Delete_While_Busy;
procedure Insert_While_Busy (Report : in out NT.Reporter'Class) is
Test : NT.Test := Report.Item ("Insert entry while callback is running");
| | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
exception
when Error : others => Test.Report_Exception (Error);
end Delete_While_Busy;
procedure Insert_While_Busy (Report : in out NT.Reporter'Class) is
Test : NT.Test := Report.Item ("Insert entry while callback is running");
Total : constant Duration := 1.0;
Log : aliased Bounded_String (256);
begin
declare
Long, Short : Cron_Entry;
begin
Long.Set
(Total / 8,
|
| ︙ | ︙ |