Overview
| Comment: | chunked_strings-tests: run String_Accumulator tests on Chunked_String objects |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1ac63b419476f890fb200e5cff9ec8dd |
| User & Date: | nat on 2013-09-10 17:50:18 |
| Other Links: | manifest | tags |
Context
|
2013-09-11
| ||
| 19:45 | chunked_strings: fix size after Hard_Reset check-in: c4b3d85973 user: nat tags: trunk | |
|
2013-09-10
| ||
| 17:50 | chunked_strings-tests: run String_Accumulator tests on Chunked_String objects check-in: 1ac63b4194 user: nat tags: trunk | |
| 17:49 | natools-accumulators-tests: New black-box test suite for string accumulators check-in: 28738393c8 user: nat tags: trunk | |
Changes
Modified tests/natools-chunked_strings-tests.adb from [3bb1f925d0] to [36de30eaa0].
| ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | + + + + + + + + + |
------------------------------------------------------------------------------
with Natools.Chunked_Strings.Tests.CXA4010;
with Natools.Chunked_Strings.Tests.CXA4011;
with Natools.Chunked_Strings.Tests.CXA4030;
with Natools.Chunked_Strings.Tests.CXA4031;
with Natools.Chunked_Strings.Tests.CXA4032;
with Natools.Accumulators.Tests;
package body Natools.Chunked_Strings.Tests is
package NT renames Natools.Tests;
procedure All_Blackbox_Tests (Report : in out Natools.Tests.Reporter'Class)
is
procedure Test_CXA4010 is new CXA4010;
procedure Test_CXA4011 is new CXA4011;
procedure Test_CXA4030 is new CXA4030;
procedure Test_CXA4031 is new CXA4031;
procedure Test_CXA4032 is new CXA4032;
begin
NT.Section (Report, "Blackbox tests of Chunked_Strings");
Test_CXA4010 (Report);
Test_CXA4011 (Report);
Test_CXA4030 (Report);
Test_CXA4031 (Report);
Test_CXA4032 (Report);
NT.Section (Report, "String_Accumulator interface");
declare
Acc : Chunked_String;
begin
Accumulators.Tests.Test (Report, Acc);
end;
NT.End_Section (Report);
NT.End_Section (Report);
end All_Blackbox_Tests;
procedure All_Tests (Report : in out Natools.Tests.Reporter'Class) is
begin
NT.Section (Report, "All tests of Chunked_Strings");
|
| ︙ |