From a542064c7699bbb4773d878d9a161f02542b9fbc Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Tue, 2 Aug 2005 18:20:26 +0000 Subject: [PATCH] fixed cgi_maypole header test! git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@366 48953598-375a-da11-a14b-00016c27c3ee --- t/cgi_maypole.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/t/cgi_maypole.t b/t/cgi_maypole.t index e179866..22a50b3 100644 --- a/t/cgi_maypole.t +++ b/t/cgi_maypole.t @@ -108,11 +108,13 @@ SKIP: { }; diag $@ if $@; - $compare = join "\cM\cJ", 'Content-length: 12', - 'X-bender: kiss my shiny metal ass', + my $CL = 'Content-length: 12'; + my $XB = 'X-bender: kiss my shiny metal ass'; + my $nl = "\cM\cJ"; + my $re = join $nl, "($CL$nl$XB)|($XB$nl$CL)", 'Content-Type: text/plain; charset=iso8859-1', '', 'Hello World!'; - is($stdout, $compare, '... prints output, including custom headers'); + like($stdout, qr/$re/, '... prints output, including custom headers'); } # get_template_root() -- 2.39.2