branch master updated: * tp/t/test_utils.pl (test): destroy PlainTexinfo converter.

[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 dc8f295bd1 * tp/t/test_utils.pl (test): destroy PlainTexinfo converter.
dc8f295bd1 is described below

commit dc8f295bd14dde76981c779fa4e1fe36af7bb63e
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 13 20:56:44 2024 +0200

    * tp/t/test_utils.pl (test): destroy PlainTexinfo converter.
---
 ChangeLog          | 4 ++++
 tp/t/test_utils.pl | 7 ++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index aee121313f..5035e33678 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-08-13  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/t/test_utils.pl (test): destroy PlainTexinfo converter.
+
 2024-08-12  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/convert/ConvertXS.xs: reindent.
diff --git a/tp/t/test_utils.pl b/tp/t/test_utils.pl
index 0324816293..c494497d71 100644
--- a/tp/t/test_utils.pl
+++ b/tp/t/test_utils.pl
@@ -1509,6 +1509,8 @@ sub test($$)
 
     my $converter_to_texinfo = Texinfo::Convert::PlainTexinfo->converter();
     my $texi_string_result = $converter_to_texinfo->convert($document);
+    $converter_to_texinfo->reset_converter();
+    $converter_to_texinfo->destroy();
     #my $texi_string_result
     #    = Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
     $out_result .= "\n".'$result_texis{\''.$test_name.'\'} = \''
@@ -1644,12 +1646,15 @@ sub test($$)
     # NOTE either a PlainTexinfo converter or a direct call to
     # convert_to_texinfo can be used to test conversion to raw text,
     # both for pure Perl and XS.
+    #my $texi_result = Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
     my $converter_to_texinfo = Texinfo::Convert::PlainTexinfo->converter();
     my $texi_result;
     if ($document) {
       $texi_result = $converter_to_texinfo->convert($document);
     }
-    #my $texi_result = Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
+    $converter_to_texinfo->reset_converter();
+    $converter_to_texinfo->destroy();
+
     is ($texi_result, $result_texis{$test_name}, $test_name.' texi');
     if ($todos{'text'}) {
       SKIP: {