1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
use strict;
use Test::More;
use Plack::Builder;
my $app = sub {
return [ 200, [
'Last-Modified' => 'Wed, 23 Sep 2009 13:36:33 GMT',
'Content-Type' => 'text/plain',
'ETag' => 'foo bar',
], [ 'Hello Foo' ] ];
};
{
my $test = "Pre-test: test that header order is not changed by default.";
# Don't use Plack::Test since it uses HTTP::Headers to reorder itself
my $res = $app->({});
is_deeply $res->[1], [
'Last-Modified' => 'Wed, 23 Sep 2009 13:36:33 GMT',
'Content-Type' => 'text/plain',
'ETag' => 'foo bar',
],
$test;
}
{
my $test = "Rearrange Middleware changes the header order";
$app = builder {
enable "Plack::Middleware::RearrangeHeaders";
$app;
};
# Don't use Plack::Test since it uses HTTP::Headers to reorder itself
my $res = $app->({});
is_deeply $res->[1], [
'ETag' => 'foo bar',
'Content-Type' => 'text/plain',
'Last-Modified' => 'Wed, 23 Sep 2009 13:36:33 GMT',
],
$test;
}
done_testing;
|
