From 4bb00b502616373c04d5322f969c3d1144386857 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 3 Dec 2024 20:31:07 -0800
Subject: [PATCH] update -mutt test

---
 t/snippets/expect/mutt.def   | 2 ++
 t/snippets/expect/mutt.mutt1 | 2 ++
 t/snippets/mutt.in           | 2 ++
 t/snippets/packing_list.txt  | 4 ++--
 t/snippets31.t               | 6 ++++++
 5 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/t/snippets/expect/mutt.def b/t/snippets/expect/mutt.def
index fd5d8713..187e5287 100644
--- a/t/snippets/expect/mutt.def
+++ b/t/snippets/expect/mutt.def
@@ -1 +1,3 @@
 my $rlist = [qw(alpha beta gamma)];
+$aqx->appendChild(
+    $parser->parse_balanced_chunk(qq(<param name="skv">$skv</param>)) );
diff --git a/t/snippets/expect/mutt.mutt1 b/t/snippets/expect/mutt.mutt1
index d5f44bac..777aa45f 100644
--- a/t/snippets/expect/mutt.mutt1
+++ b/t/snippets/expect/mutt.mutt1
@@ -1 +1,3 @@
 my $rlist = [ qw(alpha beta gamma) ];
+$aqx->appendChild(
+    $parser->parse_balanced_chunk( qq(<param name="skv">$skv</param>) ) );
diff --git a/t/snippets/mutt.in b/t/snippets/mutt.in
index fd5d8713..8c87c53e 100644
--- a/t/snippets/mutt.in
+++ b/t/snippets/mutt.in
@@ -1 +1,3 @@
 my $rlist = [qw(alpha beta gamma)];
+$aqx->appendChild(
+        $parser->parse_balanced_chunk(qq(<param name="skv">$skv</param>)) );
diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index c5ddfe7c..cc791b37 100644
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -468,6 +468,8 @@
 ../snippets31.t	c424.def
 ../snippets31.t	ils.def
 ../snippets31.t	ils.ils
+../snippets31.t	mutt.def
+../snippets31.t	mutt.mutt1
 ../snippets4.t	gnu1.gnu
 ../snippets4.t	gnu2.def
 ../snippets4.t	gnu2.gnu
@@ -588,5 +590,3 @@
 ../snippets9.t	rt98902.def
 ../snippets9.t	rt98902.rt98902
 ../snippets9.t	rt99961.def
-../snippets31.t	mutt.def
-../snippets31.t	mutt.mutt1
diff --git a/t/snippets31.t b/t/snippets31.t
index 6f095d4c..a3719b6c 100644
--- a/t/snippets31.t
+++ b/t/snippets31.t
@@ -70,6 +70,8 @@ $z = sqrt( $x**2 + $y**2 )
 
         'mutt' => <<'----------',
 my $rlist = [qw(alpha beta gamma)];
+$aqx->appendChild(
+        $parser->parse_balanced_chunk(qq(<param name="skv">$skv</param>)) );
 ----------
     };
 
@@ -202,6 +204,8 @@ $z = sqrt( $x**2 + $y**2 )
             params => "def",
             expect => <<'#8...........',
 my $rlist = [qw(alpha beta gamma)];
+$aqx->appendChild(
+    $parser->parse_balanced_chunk(qq(<param name="skv">$skv</param>)) );
 #8...........
         },
 
@@ -210,6 +214,8 @@ my $rlist = [qw(alpha beta gamma)];
             params => "mutt1",
             expect => <<'#9...........',
 my $rlist = [ qw(alpha beta gamma) ];
+$aqx->appendChild(
+    $parser->parse_balanced_chunk( qq(<param name="skv">$skv</param>) ) );
 #9...........
         },
     };
-- 
2.39.5