From c0d82f08b4fa5876236edd8346d1fd62347d8d62 Mon Sep 17 00:00:00 2001
From: Eric Covener <ecovener@us.ibm.com>
Date: Mon, 1 Jun 2026 13:15:23 -0400
Subject: [PATCH] allow some matches to tolerate different output

don't require the document name in the output
---
 t/modules/include.t | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/t/modules/include.t b/t/modules/include.t
index 99644971..c11f89f5 100644
--- a/t/modules/include.t
+++ b/t/modules/include.t
@@ -85,7 +85,7 @@ my %test = (
 "echo3.shtml"           =>    ['<!--#echo var="DOCUMENT_NAME" -->', "retagged1"], 
 "notreal.shtml"         =>    "pass <!--",
 "malformed.shtml"       =>    "[an error occurred while processing this ".
-                              "directive] malformed.shtml",
+                              "directive]",
 "exec/off/cmd.shtml"    =>    "[an error occurred while processing this ".
                               "directive]",
 "exec/on/cmd.shtml"     =>    "pass",
@@ -107,9 +107,9 @@ my %test = (
 my %ap_expr_test = (
 "apexpr/if1.shtml"      =>    "pass",
 "apexpr/err.shtml"      =>    "[an error occurred while processing this ".
-                              "directive] err.shtml",
+                              "directive]",
 "apexpr/restrict.shtml" =>    "[an error occurred while processing this ".
-                              "directive] restrict.shtml",
+                              "directive]",
 "apexpr/var.shtml"      =>    "pass   pass   pass",
 "apexpr/lazyvar.shtml"  =>    "pass",
 );
@@ -303,6 +303,12 @@ foreach $doc (sort keys %tests) {
             skip "Skipping 'exec cgi' test; no cgi module.", 2;
         }
     }
+    elsif ($doc =~ m/malformed|apexpr/) {
+        ok t_cmp(super_chomp(GET_BODY "$dir$doc"),
+                 qr/\Q$tests{$doc}\E/,
+                 "GET $dir$doc"
+                );
+    }
     else {
         ok t_cmp(super_chomp(GET_BODY "$dir$doc"),
                  $tests{$doc},