Natools

Check-in [3b0fbf12a9]
Login
Overview
Comment:smaz-tests: add a test of multi-block verbatim sequence
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3b0fbf12a913d3928de5fa798bba81a53085e728
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
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