From ada0a388f0c447a2866dbc380441a085d5939388 Mon Sep 17 00:00:00 2001
From: Mathias Kende <mathias@kende.fr>
Date: Sun, 24 Mar 2024 23:17:06 +0100
Subject: [PATCH] Print some progress details when running the fuzzing test
 with MAXI_TEST=1.

---
 t/801-fuzzing.t | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/t/801-fuzzing.t b/t/801-fuzzing.t
index 7b77524..f690dd6 100644
--- a/t/801-fuzzing.t
+++ b/t/801-fuzzing.t
@@ -9,11 +9,12 @@ use Test2::V0;
 my $maxi_test = !!$ENV{MAXI_TEST};
 
 my @token = (
-  'foo', 'bar', ' ', '  ', '   ', '    ', "\n", "\t", '"', '>', "\n>", '- ',
-  "\n- ", '1. ', "\n1. ", '[', ']', '[]', '[foo]', '\n[foo]:', ':', '/url',
-  'http://url', '<', '>', '<http://url>', '(', ')', '(http://url)', '*',
-  '*foo*', '**', '_', '`', '```', "\n```", '---', '--', '#', '##', '<div>',
-  '</div>', "\n\n", '![', '](', '](http://url)', "  \n", "\\\n",
+  'foo', 'bar', 'baz', ' ', '  ', '   ', '    ', "\n", "\t", '"', '>', "\n>",
+  '- ', "\n- ", '1. ', "\n1. ", '[', ']', '[]', '[foo]', '\n[foo]:', ':',
+  '/url','http://url', '<', '>', '<http://url>', '(', ')', '(http://url)', '*',
+  '*foo*', '**', '_', '`', '```', "\n```", '---', '--', '-', '#', '##', '<div>',
+  '</div>', "\n\n", '![', '](', '](http://url)', "  \n", "\\\n", '.',
+  'www.foo.fr', '&lt;', '&Amp;', '&', '+',
 );
 
 my $num_tests = $maxi_test ? 100000 : $ENV{EXTENDED_TESTING} ? 4000 : 500;
@@ -41,6 +42,9 @@ for (1 .. $num_tests) {
   if (!$failed && !$maxi_test) {
     pass('fuzz test');
   }
+  if ($_ % 1000 == 0 && $maxi_test) {
+    note('Ran '.($_ / 1000).'% of the test');
+  }
 }
 
 if ($maxi_test) {