diff options
author | Eric Wong <e@80x24.org> | 2015-08-12 22:41:10 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-12 22:41:42 +0000 |
commit | 2981d6929f400630e575bcc8fc1851bc531e73e9 (patch) | |
tree | 288eed02c331341ccd9daeda455c0804996f9d70 | |
parent | eb7d646477c5b514c340f66da1be04c754879e17 (diff) | |
download | public-inbox-2981d6929f400630e575bcc8fc1851bc531e73e9.tar.gz |
This fixes a minor test failure in t/cgi.t Tested with perl 5.18.2-2ubuntu1 on Ubuntu 14.04.3 LTS
-rw-r--r-- | lib/PublicInbox/View.pm | 2 | ||||
-rw-r--r-- | t/cgi.t | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index c0f3e9f9..30759a30 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -349,7 +349,7 @@ sub html_footer { $to = uri_escape_utf8($to); $subj = uri_escape_utf8($subj); - my $cc = uri_escape_utf8(join(',', values %cc)); + my $cc = uri_escape_utf8(join(',', sort values %cc)); my $href = "mailto:$to?In-Reply-To=$irp&Cc=${cc}&Subject=$subj"; my $idx = $standalone ? " <a\nhref=\"../\">index</a>" : ''; @@ -120,7 +120,9 @@ EOF like($res->{head}, qr/Status: 200 OK/, "index returns 200"); my $idx = cgi_run("/test/index.html"); - $idx->{body} =~ s!/index.html(\?r=)!/$1!; # dirty... + $idx->{body} =~ s!/index.html(\?r=)!/$1!g; # dirty... + $idx->{body} = [ split(/\n/, $idx->{body}) ]; + $res->{body} = [ split(/\n/, $res->{body}) ]; is_deeply($res, $idx, '/$LISTNAME/ and /$LISTNAME/index.html are nearly identical'); # more checks in t/feed.t |