Natools

Check-in [c707170a93]
Login
Overview
Comment:smaz_tests: test base-256 multi-block verbatim sequence
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c707170a93a17cab54788ba4fc5c6f651b8f8de5
User & Date: nat on 2017-02-23 22:37:39
Other Links: manifest | tags
Context
2017-02-24
20:21
smaz_tests: check constraint error in hash-to-code conversion check-in: ec0159cb57 user: nat tags: trunk
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
Changes

Modified tests/natools-smaz_tests.adb from [42bdaafbcb] to [2539e4e08e].

575
576
577
578
579
580
581




582
583
584
585
586
587
588
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592







+
+
+
+







         "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, Smaz_Original.Dictionary,
         ": : : :",
         (255, 6, 58, 32, 58, 32, 58, 32, 58));
      Roundtrip_Test (Test, Smaz_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_VLV_256;


   procedure Test_Validity_256 (Report : in out NT.Reporter'Class) is
      Test : NT.Test := Report.Item ("Test dictionary validity");