Natools

Check-in [b4e3aec058]
Login
Overview
Comment:smaz_tests: fix base-4096 sample string test by actually calling it
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b4e3aec0587fc8fa66b43aa1a42c938a1736a328
User & Date: nat on 2017-02-03 21:08:10
Other Links: manifest | tags
Context
2017-02-04
22:25
smaz_tests: fix endianness of the hand-encoded base-4096 streams check-in: 97980e3f18 user: nat tags: trunk
2017-02-03
21:08
smaz_tests: fix base-4096 sample string test by actually calling it check-in: b4e3aec058 user: nat tags: trunk
2017-02-02
20:16
smaz_tests: check base-4096 roundtrip of a few sample strings check-in: 46b1fe3862 user: nat tags: trunk
Changes

Modified tests/natools-smaz_tests.adb from [e310324b1a] to [86f3ec8f2c].

401
402
403
404
405
406
407

408
409
410
411
412
413
414
   procedure All_Tests_4096 (Report : in out NT.Reporter'Class) is
   begin
      declare
         Dict : constant Smaz_4096.Dictionary := Dictionary_4096 (False);
      begin
         Report.Section ("Without variable-length verbatim");
         Test_Validity_4096 (Report, Dict);

         Report.End_Section;
      end;

      declare
         Dict : constant Smaz_4096.Dictionary := Dictionary_4096 (True);
      begin
         Report.Section ("With variable-length verbatim");







>







401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
   procedure All_Tests_4096 (Report : in out NT.Reporter'Class) is
   begin
      declare
         Dict : constant Smaz_4096.Dictionary := Dictionary_4096 (False);
      begin
         Report.Section ("Without variable-length verbatim");
         Test_Validity_4096 (Report, Dict);
         Sample_Strings_4096 (Report, Dict);
         Report.End_Section;
      end;

      declare
         Dict : constant Smaz_4096.Dictionary := Dictionary_4096 (True);
      begin
         Report.Section ("With variable-length verbatim");