Overview
| Comment: | s_expressions-parsers-tests: use the new capacity accessor instead of "=" to test buffers |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bec485b991f4b74d30e3b5cca2955897 |
| User & Date: | nat on 2014-08-11 17:30:48 |
| Other Links: | manifest | tags |
Context
|
2014-08-12
| ||
| 21:06 | s_expressions-atom_buffers: make Atom_Buffer type limited, since copying such objects would cause complex and useless consequences check-in: 190e69b741 user: nat tags: trunk | |
|
2014-08-11
| ||
| 17:30 | s_expressions-parsers-tests: use the new capacity accessor instead of "=" to test buffers check-in: bec485b991 user: nat tags: trunk | |
|
2014-08-10
| ||
| 17:13 | s_expressions-atom_buffers-tests: use the new capacity accessor in tests check-in: b0c9543345 user: nat tags: trunk | |
Changes
Modified tests/natools-s_expressions-parsers-tests.adb from [a0aaebe821] to [d7b21f3cbc].
| ︙ | ︙ | |||
250 251 252 253 254 255 256 |
Test_Tools.Next_And_Check (Test, Parser, To_Atom ("list"), 1);
Test_Tools.Next_And_Check (Test, Parser, Events.Close_List, 0);
Parser.Reset (Hard => True);
if Parser.Internal /= Empty.Internal
or else Parser.Next_Event /= Empty.Next_Event
or else Parser.Latest /= Empty.Latest
| | | | 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 |
Test_Tools.Next_And_Check (Test, Parser, To_Atom ("list"), 1);
Test_Tools.Next_And_Check (Test, Parser, Events.Close_List, 0);
Parser.Reset (Hard => True);
if Parser.Internal /= Empty.Internal
or else Parser.Next_Event /= Empty.Next_Event
or else Parser.Latest /= Empty.Latest
or else Parser.Pending.Capacity /= 0
or else Parser.Buffer.Capacity /= 0
or else Parser.Level /= Empty.Level
or else Parser.Lock_Stack /= Empty.Lock_Stack
or else Parser.Locked /= Empty.Locked
then
Test.Fail ("Parser after hard reset is not empty");
end if;
end;
|
| ︙ | ︙ |