Overview
| Comment: | s_expressions-lockable-tests: fix bad expected value in interface test |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
98b6fee05f460c41348aabdccacf8cb6 |
| User & Date: | nat on 2014-03-03 20:56:21 |
| Other Links: | manifest | tags |
Context
|
2014-03-04
| ||
| 19:18 | s_expressions-lockable: new function to help invalidate popped states check-in: 5d63dd5d69 user: nat tags: trunk | |
|
2014-03-03
| ||
| 20:56 | s_expressions-lockable-tests: fix bad expected value in interface test check-in: 98b6fee05f user: nat tags: trunk | |
|
2014-03-02
| ||
| 17:03 | s_expressions-lockable-tests: add a test suite for Loackable.Descriptor objects and use it to tester Wrapper check-in: 5fce88a981 user: nat tags: trunk | |
Changes
Modified tests/natools-s_expressions-lockable-tests.adb from [a15e290edf] to [6bef92fef0].
| ︙ | ︙ | |||
100 101 102 103 104 105 106 |
Event : constant Events.Event := Object.Current_Event;
Level : constant Natural := Object.Current_Level;
begin
if Event /= Events.Close_List then
Test.Fail ("Current event is " & Events.Event'Image (Event)
& ", expected Close_List");
end if;
| | | | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
Event : constant Events.Event := Object.Current_Event;
Level : constant Natural := Object.Current_Level;
begin
if Event /= Events.Close_List then
Test.Fail ("Current event is " & Events.Event'Image (Event)
& ", expected Close_List");
end if;
if Level /= 0 then
Test.Fail ("Current level is" & Natural'Image (Level)
& ", expected 0");
end if;
end;
Object.Unlock (Level_1);
Test_Tools.Next_And_Check (Test, Object, To_Atom ("end"), Base);
Test_Tools.Next_And_Check (Test, Object, Events.Close_List, Base - 1);
|
| ︙ | ︙ |