Natools

Diff
Login

Differences From Artifact [c4839bfc52]:

To Artifact [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