Differences From Artifact [24dd943433]:
- File tests/natools-reference_tests.adb — part of check-in [8292cedaee] at 2014-07-15 20:07:29 on branch trunk — reference_tests: add a task-safety test (that isn't relevant on single-core) (user: nat, size: 14944) [annotate] [blame] [check-ins using]
To Artifact [2ff64e22d8]:
- File tests/natools-reference_tests.adb — part of check-in [111a93ca40] at 2014-08-25 19:57:12 on branch trunk — reference_tests: also test the new Is_Last function (user: nat, size: 15281) [annotate] [blame] [check-ins using]
| ︙ | |||
144 145 146 147 148 149 150 151 152 153 154 155 156 157 | 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 | + + + + + + + + + |
NT.Item (Report, Name, NT.Fail);
NT.Info (Report,
"Unexpected reference count"
& Natural'Image (Actual_Count)
& " instead of"
& Natural'Image (Expected_Count));
Continue := False;
elsif not Ref.Is_Empty and then Ref.Is_Last /= (Actual_Count = 1) then
NT.Item (Report, Name, NT.Fail);
NT.Info (Report,
"Unexpected result of Is_Last ("
& Boolean'Image (Ref.Is_Last)
& ") while counter is"
& Natural'Image (Actual_Count));
Continue := False;
end if;
end Check_Ref;
--------------------
-- Invidual tests --
|
| ︙ |