branch master updated: * tp/t/test_utils.pl (test): use document registrar in tree transformation test.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new de591c4cc8 * tp/t/test_utils.pl (test): use document registrar in tree 
transformation test.
de591c4cc8 is described below

commit de591c4cc890d2e6d54734e3b7c28885f5cf0a10
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Mar 3 21:16:58 2024 +0100

    * tp/t/test_utils.pl (test): use document registrar in tree
    transformation test.
    
    * tp/t/test_utils.pl (test): rename $registrar as $parser_registrar.
---
 ChangeLog          |  7 +++++++
 tp/t/test_utils.pl | 10 +++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 085c955c32..78c52f1d5b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-03-03  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/t/test_utils.pl (test): use document registrar in tree
+       transformation test.
+
+       * tp/t/test_utils.pl (test): rename $registrar as $parser_registrar.
+
 2024-03-03  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Document.pm (_existing_label_error)
diff --git a/tp/t/test_utils.pl b/tp/t/test_utils.pl
index 260bebbf7e..f5cb4f5c38 100644
--- a/tp/t/test_utils.pl
+++ b/tp/t/test_utils.pl
@@ -1034,17 +1034,17 @@ sub test($$)
     $document = $parser->parse_texi_file($test_file, $XS_structuring);
   }
   my $tree = $document->tree();
-  my $registrar = $parser->registered_errors();
+  my $parser_registrar = $parser->registered_errors();
 
   if (not defined($tree)) {
     print STDERR "ERROR: parsing result undef\n";
-    my ($parser_errors, $parser_error_count) = $registrar->errors();
+    my ($parser_errors, $parser_error_count) = $parser_registrar->errors();
     foreach my $error_message (@$parser_errors) {
       warn $error_message->{'error_line'}
         if ($error_message->{'type'} eq 'error');
     }
   }
-  my ($errors, $error_nrs) = $registrar->errors();
+  my ($errors, $error_nrs) = $parser_registrar->errors();
 
   if ($tree_transformations{'fill_gaps_in_sectioning'}) {
     Texinfo::Transformations::fill_gaps_in_sectioning($tree);
@@ -1124,8 +1124,8 @@ sub test($$)
     foreach my $transformation (@$additional_tree_transformations) {
       my $tree_transformation_sub = $tested_transformations{$transformation};
       if ($transformation eq 'protect_hashchar_at_line_beginning') {
-        &$tree_transformation_sub($document->tree(), $registrar,
-                                         $main_configuration);
+        &$tree_transformation_sub($document->tree(), $document->registrar(),
+                                  $main_configuration);
       } else {
         &$tree_transformation_sub($document->tree());
       }