Overview
| Comment: | smaz-tests: add a test of multi-block verbatim sequence |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3b0fbf12a913d3928de5fa798bba81a5 |
| User & Date: | nat on 2017-02-22 22:45:42 |
| Other Links: | manifest | tags |
Context
|
2017-02-23
| ||
| 22:37 | smaz_tests: test base-256 multi-block verbatim sequence check-in: c707170a93 user: nat tags: trunk | |
|
2017-02-22
| ||
| 22:45 | smaz-tests: add a test of multi-block verbatim sequence check-in: 3b0fbf12a9 user: nat tags: trunk | |
|
2017-02-21
| ||
| 21:11 | smaz_implementations-base_256: fix exception on 1-byte non-VLV blocks check-in: baef3cc8be user: nat tags: trunk | |
Changes
Modified tests/natools-smaz-tests.adb from [c4839bfc52] to [3d3eab90c3].
| ︙ | ︙ | |||
184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
"1000 numbers 2000 will 10 20 30 compress very little",
(255, 3, 49, 48, 48, 48, 236, 38, 45, 92, 221, 0, 255, 3, 50, 48, 48,
48, 243, 152, 0, 255, 7, 49, 48, 32, 50, 48, 32, 51,
48, 161, 45, 60, 33, 166, 0, 231, 71, 151, 3, 3, 87));
Roundtrip_Test (Test, Original.Dictionary,
": : : :",
(255, 6, 58, 32, 58, 32, 58, 32, 58));
exception
when Error : others => Test.Report_Exception (Error);
end Sample_Strings;
procedure Sample_Strings_Without_VLV (Report : in out NT.Reporter'Class) is
Test : NT.Test
| > > > > | 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 |
"1000 numbers 2000 will 10 20 30 compress very little",
(255, 3, 49, 48, 48, 48, 236, 38, 45, 92, 221, 0, 255, 3, 50, 48, 48,
48, 243, 152, 0, 255, 7, 49, 48, 32, 50, 48, 32, 51,
48, 161, 45, 60, 33, 166, 0, 231, 71, 151, 3, 3, 87));
Roundtrip_Test (Test, Original.Dictionary,
": : : :",
(255, 6, 58, 32, 58, 32, 58, 32, 58));
Roundtrip_Test (Test, Original.Dictionary,
(1 .. 300 => ':'),
(1 .. 2 => 255, 3 .. 258 => 58,
259 => 255, 260 => 43, 261 .. 304 => 58));
exception
when Error : others => Test.Report_Exception (Error);
end Sample_Strings;
procedure Sample_Strings_Without_VLV (Report : in out NT.Reporter'Class) is
Test : NT.Test
|
| ︙ | ︙ |