Natools

Diff
Login

Differences From Artifact [6091be6ed9]:

To Artifact [4c1b4538bd]:


859
860
861
862
863
864
865
866
867
868
869
870
871
872






873
874
875
876
877
878
879
         "'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






   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







|






>
>
>
>
>
>







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