From: Aaron Trevena Date: Tue, 2 Aug 2005 18:20:26 +0000 (+0000) Subject: fixed cgi_maypole header test! X-Git-Tag: 2.11~152 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=a542064c7699bbb4773d878d9a161f02542b9fbc;p=maypole.git fixed cgi_maypole header test! git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@366 48953598-375a-da11-a14b-00016c27c3ee --- 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()