Overview
| Comment: | smaz_tests: new test showing a bug in multiblock base-64 encoding |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
84e2f2a874cfa2901ff7fc27be1979cd |
| User & Date: | nat on 2017-06-24 21:03:26 |
| Other Links: | manifest | tags |
Context
|
2017-06-25
| ||
| 21:14 | smaz_implementations-base_64: fix encoding issue with with multiblock check-in: 418ab16bcf user: nat tags: trunk | |
|
2017-06-24
| ||
| 21:03 | smaz_tests: new test showing a bug in multiblock base-64 encoding check-in: 84e2f2a874 user: nat tags: trunk | |
|
2017-06-23
| ||
| 20:00 | cron: fix fusion of even list check-in: 215f7beb0c user: nat tags: trunk | |
Changes
Modified tests/natools-smaz_tests.adb from [6091be6ed9] to [4c1b4538bd].
| ︙ | ︙ | |||
859 860 861 862 863 864 865 |
"'49 bytes of data to show a verbatim count issue'",
To_SEA ("090kTgIWenLK3NFEFAEKs/Ao92dAFAzo+iBF1SepHOvDJB0"));
-- '<49 by >tsof_ata_to_< how>_a_ve<b>atm_ontisue'
-- e_ d s r i cu _s
-- 49 001011_00 1001_1100 10
-- by 000001_00 0100_0110 10_011110
-- how 000101_10 1111_0110 11_101110
| | > > > > > > | 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 |
"'49 bytes of data to show a verbatim count issue'",
To_SEA ("090kTgIWenLK3NFEFAEKs/Ao92dAFAzo+iBF1SepHOvDJB0"));
-- '<49 by >tsof_ata_to_< how>_a_ve<b>atm_ontisue'
-- e_ d s r i cu _s
-- 49 001011_00 1001_1100 10
-- by 000001_00 0100_0110 10_011110
-- how 000101_10 1111_0110 11_101110
-- b 010001_10 0000
Roundtrip_Test (Test, Dict_64,
Character'Val (16#C3#) & Character'Val (16#A9#) & 'v'
& Character'Val (16#C3#) & Character'Val (16#A8#) & "nement",
To_SEA ("Uz9DjKHBi"));
-- év<è >nement
-- è 110000_11 0001_0101 00
Roundtrip_Test (Test, Dict_64,
"12345345345345345345345345",
To_SEA ("8xIzzQTNzQTNzQTNzQTNzQTNzQTNzQTN/AzQTN"));
-- Smallest 3n+2 that requires multiple verbatim blocks
-- 12 100011_00 0100_1100 nn
-- 345 110011_00 0010_1100 10_101100
exception
when Error : others => Test.Report_Exception (Error);
end Sample_Strings_64;
procedure Sample_Strings_VLV_64 (Report : in out NT.Reporter'Class) is
Test : NT.Test := Report.Item
|
| ︙ | ︙ |