From: Aaron Trevena <aaron.trevena@gmail.com>
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/?p=maypole.git;a=commitdiff_plain;h=a542064c7699bbb4773d878d9a161f02542b9fbc

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()