Index: tests/natools-smaz_tests.adb
==================================================================
--- tests/natools-smaz_tests.adb
+++ tests/natools-smaz_tests.adb
@@ -403,10 +403,11 @@
       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);