Overview
| Comment: | test_all: add Chunked_String test suite |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
163510fb35c9bedbc29e870e9c89d79d |
| User & Date: | nat on 2011-11-29 14:41:47 |
| Other Links: | manifest | tags |
Context
|
2011-12-08
| ||
| 18:17 | natools-getopt_long: callback mechanism changed from access-to-subprograms to dispatching calls check-in: 4d813ad137 user: nat tags: trunk | |
|
2011-11-29
| ||
| 14:41 | test_all: add Chunked_String test suite check-in: 163510fb35 user: nat tags: trunk | |
| 14:41 | natools-chunked_strings-tests*: test suite for Chunked_String, derived from ACATS tests for Unbounded_String check-in: 26186560cc user: nat tags: trunk | |
Changes
Modified test_all.adb from [81fd786cd3] to [2d7c0309a9].
| ︙ | |||
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | 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 56 57 58 59 60 61 62 63 64 65 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
-----------------------------------------------------------------------
-- Test_All is a binary gathering all tests from Natools components. --
-----------------------------------------------------------------------
with Ada.Command_Line;
with Ada.Text_IO;
with Natools.Chunked_Strings.Tests;
with Natools.Getopt_Long_Tests;
with Natools.Tests.Text_IO;
procedure Test_All is
package Uneven_Chunked_Strings is new Natools.Chunked_Strings
(Default_Allocation_Unit => 7,
Default_Chunk_Size => 15);
package Uneven_Chunked_Strings_Tests is new Uneven_Chunked_Strings.Tests;
package Even_Chunked_Strings is new Natools.Chunked_Strings
(Default_Allocation_Unit => 6,
Default_Chunk_Size => 18);
package Even_Chunked_Strings_Tests is new Even_Chunked_Strings.Tests;
package Single_Chunked_Strings is new Natools.Chunked_Strings
(Default_Allocation_Unit => 10,
Default_Chunk_Size => 10);
package Single_Chunked_Strings_Tests is new Single_Chunked_Strings.Tests;
Report : Natools.Tests.Text_IO.Text_Reporter;
begin
Ada.Text_IO.Set_Line_Length (80);
Report.Section ("All Tests");
Report.Section ("Chunked_String with uneven allocation unit");
Uneven_Chunked_Strings_Tests.All_Tests (Report);
Report.End_Section;
Report.Section ("Chunked_String with even allocation unit");
Even_Chunked_Strings_Tests.All_Tests (Report);
Report.End_Section;
Report.Section ("Chunked_String with single allocation unit");
Single_Chunked_Strings_Tests.All_Tests (Report);
Report.End_Section;
Report.Section ("Getopt_Long");
Natools.Getopt_Long_Tests.All_Tests (Report);
Report.End_Section;
Natools.Tests.Text_IO.Print_Results (Report.Total_Results);
|
| ︙ |