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' ] ];
  };

$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',
];

done_testing;