update -mutt test

diff --git a/t/snippets/expect/mutt.def b/t/snippets/expect/mutt.def
index fd5d87139f657285de61ebb84ce0058b2141f3cb..187e5287e84c97e3278cef5cebbddff668df3108 100644 (file)
--- 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 d5f44bac2aba511a509c125a959f865c7a9fde3d..777aa45f8e4743bdf43d1a375f66450d872cf5b1 100644 (file)
--- 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 fd5d87139f657285de61ebb84ce0058b2141f3cb..8c87c53e7c045eb8bfa0382747a9c0f65d277d46 100644 (file)
--- 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 c5ddfe7c2d5629c61f9933be894e5013880a4277..cc791b3723f577ca723014b759ea064dc4d6d1fb 100644 (file)
--- 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 6f095d4c6b04be6601c22aaca69a8d2e753a0f09..a3719b6c46369a7650afecf7b228ee98b6af89c5 100644 (file)
--- 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...........
         },
     };