Index: tests/natools-smaz_tests.adb
==================================================================
--- tests/natools-smaz_tests.adb
+++ tests/natools-smaz_tests.adb
@@ -443,11 +443,11 @@
    ------------------------------
 
    procedure All_Tests_256 (Report : in out NT.Reporter'Class) is
    begin
       Test_Validity_256 (Report);
-      Sample_Strings_256 (Report);
+      Sample_Strings_VLV_256 (Report);
    end All_Tests_256;
 
 
    procedure All_Tests_4096 (Report : in out NT.Reporter'Class) is
    begin
@@ -482,12 +482,13 @@
 
    -------------------------------
    -- Individual Base-256 Tests --
    -------------------------------
 
-   procedure Sample_Strings_256 (Report : in out NT.Reporter'Class) is
-      Test : NT.Test := Report.Item ("Roundtrip on sample strings");
+   procedure Sample_Strings_VLV_256 (Report : in out NT.Reporter'Class) is
+      Test : NT.Test := Report.Item
+        ("Roundtrip on sample strings with variable-length verbatim");
    begin
       Roundtrip_Test (Test, Smaz_Original.Dictionary,
          "This is a small string",
          (254, 84, 76, 56, 172, 62, 173, 152, 62, 195, 70));
       Roundtrip_Test (Test, Smaz_Original.Dictionary,
@@ -522,11 +523,11 @@
       Roundtrip_Test (Test, Smaz_Original.Dictionary,
          ": : : :",
          (255, 6, 58, 32, 58, 32, 58, 32, 58));
    exception
       when Error : others => Test.Report_Exception (Error);
-   end Sample_Strings_256;
+   end Sample_Strings_VLV_256;
 
 
    procedure Test_Validity_256 (Report : in out NT.Reporter'Class) is
       Test : NT.Test := Report.Item ("Test dictionary validity");
    begin

Index: tests/natools-smaz_tests.ads
==================================================================
--- tests/natools-smaz_tests.ads
+++ tests/natools-smaz_tests.ads
@@ -24,11 +24,11 @@
 
    procedure All_Tests_256 (Report : in out NT.Reporter'Class);
    procedure All_Tests_4096 (Report : in out NT.Reporter'Class);
    procedure All_Tests_64 (Report : in out NT.Reporter'Class);
 
-   procedure Sample_Strings_256 (Report : in out NT.Reporter'Class);
+   procedure Sample_Strings_VLV_256 (Report : in out NT.Reporter'Class);
    procedure Test_Validity_256 (Report : in out NT.Reporter'Class);
 
    procedure Sample_Strings_4096 (Report : in out NT.Reporter'Class);
    procedure Sample_Strings_VLV_4096 (Report : in out NT.Reporter'Class);
    procedure Test_Validity_4096 (Report : in out NT.Reporter'Class);